|
カド さん、おはようございます。
>B列のセルの2行目からn行目までにサイトのアドレスが書かれています。
>
>これを1つずつ自動で開く方法を教えてください。
ハイパーリンクが設定してあるなら
Sub TEST()
Dim hpl As Hyperlink
For Each hpl In ActiveSheet.Columns("B:B").Hyperlinks
hpl.Follow NewWindow:=True
Next
End Sub
指定してないとき
Sub TEST()
Dim obj1 As Object, RR&
Do
RR& = RR& + 1
If ActiveSheet.Cells(RR&, 2).Value = "" Then Exit Do
'
Set obj1 = CreateObject("InternetExplorer.Application")
obj1.Navigate ActiveSheet.Cells(RR&, 2).Value
obj1.Visible = True
Loop
Set obj1 = Nothing
End Sub
こんな感じです。
|
|