- ベストアンサー
WIN１０でエクセルＶＢＡでＩＥのインスタンス生成
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
Win10 エクセル2013で こちらのコードを実行しましたが大丈夫でした。 http://www.ken3.org/cgi-bin/group/vba_ie.asp
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17068)
参照設定が不要で、エラーにならないと思いますが、うまく行かない場合は、 https://web.biz-prog.net/readme/readme.html などを見て、COMのリストに、「Microsoft Internet Controls」「Microsoft HTML Object Library」などがあるか、そして参照の追加をしてみてはどうでしょう。 下記のような、難しい仕組みの理解は、すぐにはできないと思うので、 https://garicchi.com/?p=19259 やってみて、うまく行かない場合は、現象を述べて質問して、対症療法をするしかないでしょう。 ーー windows10環境を入れる 多分Excel２００７以後を入れる エクセルで開発の登録をする。 標準モジュールに、質問のコードと続きを多少数を書き Dim objIE As InternetExplorer 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IE(InternetExplorer)を表示する objIE.Visible = True '指定したURLのページを表示する objIE.navigate （１つのURLの例） 実行してみれば、結論の出る、簡単なこと。
- kkkkkm
- ベストアンサー率65% (1620/2460)
No1は参照設定していなくても大丈夫ですが 参照設定を設定すれば以下のサイトのようにもできます。 http://blog.jmiri.net/?p=798
関連するQ&A
- ＶＢＡでＩＥ操作ができない エラーになる
vista+オフィス２００７です。 エクセルで --------------------------------------------------------- Sub ie_test() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" End Sub --------------------------------------------------------- を実行したいのですができません。 Set objIE = CreateObject("InternetExplorer.Application") の部分で、しばらく固まり、その後 「実行時エラー'-2147467259(80004005)': オートメーションエラーです。 エラーを特定できません」 と表示されてしまいます。 前にvista+オフィス２００３の時は 上記のコードで問題なく動作しました。 ２００７でも動く方法を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- vbaでIEの操作
こんばんは。やりたいことができないので教えてください。 vbaで指定のｕｒｌを開きたいです。 エクセル2003とIE8です。 Sub test001() Dim ObjIE As Object Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.navigate "http://jp.msn.com/" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop End Sub これでIEを立ち上げてURLを開けるのですが これでは新しいウインドウで開いてしまいます。 現在IEを立ち上げていて、上記のコードを実行すると 新たなタブで開きたいですが解決策はありますか？ ObjIE.Visible = True が原因かと思い、これを抜かしてみましたが そうすると何も起こりません。 ＶＢＡで既に開いているIEの新しいタブでＵＲＬを開く方法をご教授ください！よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル VBA で IE操作
エクセルVBAにて IEを操作し リンクをクリックするには どのような記述になりますでしょうか？ たとえば http://okwave.jp/mypage へアクセスし画面右上 カテゴリ をクリック 次に Excel（エクセル） をクリック という具合に 画面に表示されている文字を順番にクリックしたいです。 マクロを見つけてきましたが クリックというのはどう記述していいやらさっぱりです。 Sub testIE() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 objIE.navigate "http://okwave.jp/mypage" 'IEでURLを開く Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop
- ベストアンサー
- Excel（エクセル）
- vbaでIEを閉じるだけの処理
オフィス2003を使用しています。 「IEを開いて閉じる」は Sub TEST() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True '見えるようにする '文字列で指定したＵＲＬに飛ぶ ObjIE.navigate "http://www.yahoo.co.jp/index.html" '表示終了まで待つ Do While ObjIE.Busy = True DoEvents Loop ObjIE.Quit End Sub と言うことがわかったのですが 開くのは他の作業をしたときに行うので 「閉じる」だけをvbaで行いたいのですがどうすればいいのかわかりません。 Sub TEST2() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True '見えるようにする ObjIE.Quit End Sub だと また新たなIEが起動してしまい「現在起動しているIEを閉じる」と言うことができません。 アドバイスをお願い致します。
- ベストアンサー
- オフィス系ソフト
- ＩＥではなくファイアフォックスを指定することは
ＶＢＡでブラウザを開く場合、 ＩＥではなくファイアフォックスを指定することは可能ですか？ 既定のブラウザはＩＥにしています。 Sub test1() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://www.ocn.ne.jp/" objIE.Visible = True Set objIE = Nothing End Sub の Set objIE = CreateObject("InternetExplorer.Application") の部分を Set objIE = CreateObject("firefox.exe") に変えてみたら、 【ActiveX コンポーネントはオブジェクトを作成できません。(Error 429)】 になりました。
- ベストアンサー
- Visual Basic
- Excel VBA IEの終了方法は？
お世話になっています。 検索しましたが判らなかったので質問します。 VBAでIEを起動します。 Sub IE起動() Set IE = CreateObject("internetExplorer.application") IE.Visible = True IE.navigate ("http://www.goo.ne.jp") End Sub ここまでは出来ました。 --<質問内容>------ では、IEを終了するには？
- ベストアンサー
- オフィス系ソフト
- VBAからIEの操作
グーグルをIEで開いてVBA（語句）を検索して見終わったら IEを閉じる作業をしたいのですが、検索窓にVBA（語句）を 入力するところでエラーとなります。初心者ですが、なんとか 勉強したいのでよろしくお願いいたします。 Sub ie_test_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" IE.document.all.q.Value = "VBA" IE.document.all.btnG.Click If MsgBox("IEを閉じますか？", vbYesNo, "終了確認") = vbYes Then objIE.Quit End If Set objIE = Nothing End Sub
- 締切済み
- Visual Basic
- VBAでIEを開いて最大化したい。
ＶＢＡでIEを開くことはできたのですがいつも同じサイズでブラウザが開きます。 Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "https://www" 多分この後くらいに最大化するコードを書くと思うのですが 教えてください。 （ActiveWindow.WindowState = xlMaximizedのような？） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルvba
エクセルvbaなのですが Sub test() Dim xlApp As Object Dim xlBook As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) 'コード・・・ Set xlApp = Nothing Set xlBook = Nothing End Sub これだと Set xlBook = xlApp.Workbooks.Open(ActiveWorkbook.FullName) の部分で、エラーになります。 実行時エラー1004です。 自身ファイルをオブジェクトに格納して操作したいのですがどうすればいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAからIEを起動する際のバージョンについて
下記コーディングでEXCELのVBAよりIEを起動する際、IE5.0では正常に動作するのですが、他のバージョン（IE5.5等）ではうまく起動出来ません？ 良い解決策があれば教えていただきたいのですが。 Dim IE As Object Dim URL As String Set IE = CreateObject("InternetExplorer.Application") URL = "ftp://XXXXXXXX/999/" With IE .Navigate2 URL .Visible = True .Height = 400 .Width = 400 .Top = 0 .Left = 0 End With Windows98/Excel2000
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。助かりました