VBA IE制御 NavigateとNavigate2
Navigateぢゃだめなのか？？
Navigate だと、今開いているページを指定しているURLで開いてしますんです。
上書きっていうのが正しいのか？
Navigate2だと、テキストボックスがうまく認識されない。
↑の問題を解決するべく旅に出ます。
'新しいウィンドウのオブジェクトを取得
Set objIE2 = objShell.Windows(objShell.Windows.OpenCount- 1)
お。
そうか。
あたしいタブで開いたページのオブジェクトを読みこまないといけないのかしらん。。。
あ。できそう。
VBA IE制御 URLを指定して新しいタブで開く
いきなりですけど、VBAでIEを新しいタブで開く操作。
忘れそうなのでメモメモ
注釈は間違えているかもしれません。
コードはこのままVBEの標準モジュールに貼りつけていただければ動くと思います。
ここでの肝は
navigate2 と navOpenInNewTab
*********サンプルコード********************
Sub IE_newtab()
Const navOpenInNewTab = &H800 '定数を代入
Set ObjShell = CreateObject("Shell.Application") 'シェル アプリケーションと言うオブジェクトを作る
For Each ObjWindow In ObjShell.Windows
Debug.Print "タイプは:" & TypeName(ObjWindow.Document)
'HTMLDocumentだったら
If TypeName(ObjWindow.Document) = "HTMLDocument" Then
'オブジェクトを代入する
Set ObjIE = ObjWindow
nFLG = True
Exit For
End If
Next
ObjIE.navigate2 "http://www.google.co.jp/
", navOpenInNewTab
End sub
******************************************
これで、「新しいタブ」で開くようになりますが。。。。
VBA IE制御 URLを指定して開く
エクセルVBAで、IEの制御をしたい！！と思って早幾月～♪
まず、URLを指定して開く
*********サンプルコード*****************
Sub IE()
Set ObjIE = CreateObject("InternetExplorer.Application")
ObjIE.Visible = True
ObjIE.Navigate "http://www.google.co.jp/ "
End Sub
*************************************
表示だけならこれでOK♪
たとえば、 検索窓に文字を入力して「検索」ボタンを押す 操作とかをしたいですね。