- 締切済み
VBAでブラウザを閉じるには
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
objIE.Quit
関連するQ&A
- エクセルのマクロでリンク先をクリックさせたいのですが。
マクロで、あらかじめ開いている、ホームページのリンクをクリックさせたいと考えています。 現在、新しくブラウザを開いてクリックには成功したのですが、 Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True URL01 = "http://www.yahoo.co.jp/" objIE.Navigate URL01 objIE.document.Links(0).Click あらかじめ開いているホームぺージを操作することは可能でしょうか？ よろしくお願い異します。
- ベストアンサー
- オフィス系ソフト
- エクセル 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操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか？ 圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか？
- ベストアンサー
- Visual Basic
- ＶＢＡでＩＥ操作ができない エラーになる
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を開いて最大化したい。
ＶＢＡでIEを開くことはできたのですがいつも同じサイズでブラウザが開きます。 Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "https://www" 多分この後くらいに最大化するコードを書くと思うのですが 教えてください。 （ActiveWindow.WindowState = xlMaximizedのような？） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＩＥではなくファイアフォックスを指定することは
ＶＢＡでブラウザを開く場合、 ＩＥではなくファイアフォックスを指定することは可能ですか？ 既定のブラウザはＩＥにしています。 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
- モニタの高さを取得するには？ VBA
VBAでIEブラウザを操作していますが Set objIE = CreateObject("InternetExplorer.application") With objIE .Visible = True .Top = 0 .Left = 0 .Height = 700 End With としたときに、高さをモニタの高さを一致させたいのですが そういうことは可能ですか？ モニタの高さを変数で取得して その値を .Height = i とやればいいと思うのですが、モニタの高さを取得する方法がわかりません。 APIを使うのでしょうか？
- 締切済み
- オフィス系ソフト
- myObjにタグを格納してループはできない？
MSXML2.XMLHTTPの時は、 myObjにタグを格納してループはできないのでしょうか？ Sub test() Dim objIE As Object Dim myObj As Object Set objIE = CreateObject("MSXML2.XMLHTTP") objIE.Open "GET", "http://○○.html", False objIE.send For Each myObj In objIE.Document.all.tags("p") Next Set objIE = Nothing End Sub 上記だと実行時エラー438になります。 Set objIE =CreateObject("InternetExplorer.Application") でループしないとダメでしょうか？ Set objIE =CreateObject("InternetExplorer.Application") は時間がかかるので、できれば Set objIE =CreateObject("MSXML2.XMLHTTP") でやりたかったのですが、タグを格納できないのでしょうか？
- ベストアンサー
- オフィス系ソフト
- NewはCreateObjectと同じ意味？
Sub test01() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True End Sub Sub test02() Dim objIE As New InternetExplorer objIE.Visible = True End Sub この二つのコードを比較した場合、 Dim objIE As New InternetExplorer で宣言すれば、 Set objIE = CreateObject("InternetExplorer.application") がなくても、 objIE.Visible = True をしてみるとブラウザが立ち上がっているのですが、 これは NewはCreateObjectと同じ意味という事でしょうか？
- ベストアンサー
- Excel（エクセル）
- エクセルのVBAで最終行までループする方法
エクセルのVBAで最終行までループする方法を教えてください。 下記がコードになります。 Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate Range("A1").Value While objIE.ReadyState <> 4 Or objIE.Busy = True DoEvents Wend Range("B1").value = objIE.Document.all("zoom1").href
- ベストアンサー
- オフィス系ソフト
お礼
できました！ こんな質問に・・・答えていただきありがとうございます。