• ベストアンサー

ファイルのダウンロード

Win2000　IE5.0で 下記のように指定しCSVファイルを取得したいのですが ファイルのダウンロードのダイアログが表示されてしまいます。 これを非表示にする方法は存在するのでしょうか？ Private Sub Form_Load() WebBrowser1.Navigate ("c:\test.csv") End Sub

質問者が選んだベストアンサー

  • ベストアンサー
  • todo36
  • ベストアンサー率58% (728/1234)
回答No.2

Internet Transfer ControlかInternetReadFile(Wininet.dll)でやればいいでしょう

参考URL：
http://oshiete1.goo.ne.jp/kotaeru.php3?q=174027

その他の回答 (1)

  • 2ch
  • ベストアンサー率51% (64/125)
回答No.1

>c:\test.csv これ、拡張子をtxtに変えちゃだめ？ 以前に同様のことで困ったことあるけど、レジストリに書き込んで、特定の拡張子をDLしないで、ブラウザで開くようにしたけど、、、どこか忘れてしまったサ ┐（´ー｀）┌フッ

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • アクセスのフォームに動画を入れたいと思っています。

    アクセスのフォームに動画を入れたいと思っています。 手順については、こちらのサイトで下記を見つけたのでそれを参考にしました。 (1)GIF動画を貼り付けたHTMLファイルを作成します。 例えば、C:\test.htm (2)Microsoft Web Browserをフォームの中に埋め込みます。 例えば、『WebBrowser0』という名前にします。 (3)フォーム読み込み時にそのページを呼び出します。 Private Sub Form_Load() WebBrowser0.Navigate "C:\test.htm" End Sub これで、フォームを開いたときに、test.htmが表示されるはずです。表示サイズなどは調整してください。 ここまでが参考にした文章です。それで、下記が私の作成したVBAです。 Private Sub Form_Load() WebBrowser0.Navigate "test.htm" End Sub test.htmという画像をファイルに保存しました。プロパティはインターネットエクスプローラーで、ダブルクリックすると動画になっています。 しかし、アクセスに上記のコードを入力すると、 Web ページへのナビゲーションは取り消されました と表示されます。（WEBページのように見えますので、一応、WebBrowser0.Navigate　は機能しているが、このtest.htmのファイルが何か悪いのでしょうか。 どなたか、何が間違いか教えていただけないでしょうか。

  • 現在開いているHTMLのソースを表示したい

    vb6を使用しています。 インターネット関連では初心者です。 Private Sub Command1_Click() WebBrowser1.Navigate "http://oshiete.goo.ne.jp/" End Sub 上記内容で表示させたWebBrowser1のソースをそのままの状態で取得する方法を探しています。又、表示中のものを保存する方法でもかまいません。 ＩＥで「表示→ソース」と同じものを取得したいです。 ご教授よろしくお願いします。

  • フリーズしてしまいます。

    アクセスでWebBrowserコントロールを使ってIE操作をしているのですが フリーズしてしまいます。 フォームに、WebBrowser0を配置して、 ---------------------------------- Private Sub Form_Load() Me.WebBrowser0.Navigate "http://login.yahoo.co.jp/config/login?logout=1" Call wait 省略・・・ End Sub ---------------------------------- Sub wait() Const READYSTATE_COMPLETE As Long = 4 Do Until Me.WebBrowser0.ReadyState = READYSTATE_COMPLETE Loop Do While Me.WebBrowser0.Busy = True DoEvents Loop End Sub ---------------------------------- を実行すると必ずフリーズします。 ---------------------------------- Sub wait() Do While Me.WebBrowser0.Busy = True DoEvents Loop End Sub ---------------------------------- にしたら問題なく表示されます。 でもこれだけだと、表示し終わりません。 表示されてないのに次のコードへ進んでしまいます。 そもそもなぜフリーズするのでしょうか？ アクセス２００７です。ご回答よろしくお願いします。

  • ファイル名の取得

    こんばんは。 指定したフォルダ（IEキャッシュ）のサブフォルダ以下のファイル名を取得しようとしています。 コードは次のとおりなのですが、ファイル名の取得ができません。どこがまずいのか、是非アドバイスを下さい。 よろしくお願いします。 -------------------------- Private Sub Form_Load() Dim FileName As String FileName = Dir("C:\WINDOWS\Temporary Internet Files\CONTENT.IE5\*\*.gif") MsgBox FileName End Sub --------------------------- **環境** Win98se , VB6.0sp5 ,IE5.5sp2

  • Formオブジェクトについて

    Formオブジェクトに関する質問です。 ある関数にフォームオブジェクトを引数として渡してやりたいのですが、何かよい方法はありますでしょうか？ 例） Private Sub cmdTest_Click(Index as Integer) Dim frm as Form If Index = 0 then Load_Test(Form 2) Else Load_Test(Form 3) End if End Sub Private Sub Load_Test(frm as Form) frm.Show frm.Label1.Caption = "TEST” End Sub

  • VB6のform Load

    Private Sub Form_Load() Form1.ScaleMode = 0 Form1.Scale (-10, 10)-(10, -10) Form1.Line (-10, 0)-(10, 0) Form1.Line (0, -10)-(0, 10) End Sub とやって座標画面を作ろうとしましたが Lineが表示されません。 仕方が無いので Private Sub Form_Load() Form1.ScaleMode = 0 Form1.Scale (-10, 10)-(10, -10) End Sub Private Sub Form_Activate() Form1.Line (-10, 0)-(10, 0) Form1.Line (0, -10)-(0, 10) End Sub とやりました。 そういうものだとあきらめるしかないのでしょうか？

  • ＵＲＬ名を取得するには？

    アクセスのフォームに Web Browserを設置して、 Me.WebBrowser1.Navigate　"http://www.yahoo.co.jp/" としました。 その時、サイト名（名前）を、タブに表示したいのですが、まず名前の取得ができません。 http://www.yahoo.co.jp/の名前は「Yahoo! JAPAN」です。 Sub a() Debug.Print Form_フォーム1.WebBrowser1.Navigate.Name Debug.Print Form_フォーム1.WebBrowser1.url.Name End Sub どちらもエラーになってしまいます。 ご教授よろしくお願いします。

  • WebBrowserコントロール（続き）（続き）

    QNo.746387で下記のコードを教えてもらいました。 これでwebbrowserに表示されました。 Private Sub Command1_Click() Open "temp.html" For Output As #1 Print #1, "<html><body>あいうえお</body></html>" Close #1 WebBrowser1.Navigate2 CurDir + "\temp.html" End Sub 保存場所を変えて Private Sub Command1_Click() Open "c:\temp.html" For Output As #1 Print #1, "<html><body>あいうえお</body></html>" Close #1 WebBrowser1.Navigate2 CurDir + "c:\temp.html" End Sub とやったのですが、保存はされますが、表示がされません。 WebBrowser1.Navigate2 CurDir + "c:\temp.html" が問題のようです。 どうしたらよいのでしょうか？

  • WebBrowserについて

    VB2005で、WebBrowserを使おうとしたところ次のような問題が発生しました。 フォームに、WebBrowserを貼り付けてボタンをクリックしたところsubの途中でStopさせるとWebBrowserに表示されません。どうしてでしょうか？教えてください。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") End Sub の状態だと表示されますが、 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click WebBrowser1.Navigate("http://www.goo.ne.jp/") 　　　　Stop End Sub で止めると表示されません。 教えていただけないでしょうか？宜しくお願い致します。

  • フォームのイベントを標準モジュールから呼び出す

    フォームのイベントを標準モジュールから呼び出す事は出来ないのでしょうか？ ちなみにアクセスです。 例えば、 Private Sub Form_Load() MsgBox "test" End Sub というのはフォームを開いたときにしか発生しないですよね。 でもフォームを開いている状態でForm_Loadと全く同じ事をしてほしい時は どうすればいいですか？ 標準モジュールで Sub a() Call Form_フォーム1.Form_Load End Sub としてみましたが、メソッドまたはデータ メンバが見つかりません。 (Error 461)になりました。 MsgBox "test" だけなら、 Sub a() MsgBox "test" End Sub にすりゃいいじゃん！って思われがちですが、 実際はForm_Loadイベントにはたくさんのコードが書かれています。 標準モジュールからイベントの呼び出しを教えてください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する