VBA IE操作

Question

Andorid、java初心者ですが今回はVBAに関しての質問をさせてください。皆様のお知恵をお貸しください。

現在、VBAでIEのタブを自動で開くマクロを作りたいと考えています。起動だけならできるのですが複数のタブを開くことができません。どのように書けば複数のタブを開くことができるでしょうか。回答よろしくお願いします

URLはエクセルのセルから取得しています```
Sub test()

Dim val As Variant

'IE起動
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

val = Range("B1:B6").Value

For Each vUrl In Range("B1:B6").Value

objIE.navigate2 vUrl

Debug.Print vUrl

Next vUrl

End Sub

コード

Answer 1

これでどうでしょうか？

Sub test()

Dim val As Variant
Const navOpenInNewTab = &H800

'IE起動
    Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Visible = True
    
 val = Range("B1:B6").Value
 
 
 For Each vUrl In val
 
    objIE.navigate2 vUrl, navOpenInNewTab
    
    Debug.Print vUrl
 
 Next vUrl
 
 
End Sub

Comments

[uikura]

回答ありがとうございます。navOpenInNewTabでは開けないみたいです、
objIE.navigate2 vUrl, &H800　を代わりに書いてあげると起動できました。&H800とはどうゆう意味なのでしょか？

[uikura]

申し訳ありません。navOpenInNewTabに代入されていたんですね。理解しました、ありがとうございました。

Answer 2

今移動中で試せないのですが･･･

ひょっとして
objIE.navigate2 vUrl
で新しいタブを開く（＝タブの追加をする）前に、一旦、
objIE.navigate vUrl
で最初のタブを開く必要があるのでは？

こちら に分かりやすいサンプルが有りましたので、ご参考になさってください。

Comments

[uikura]

回答ありがとうございます。 objIE.navigate2 vUrl, &H800　と書くことで開くことができました。