ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【Excel VBA】エクセルからウェブサイトにアクセスするマクロ。




どうも、ゴリラストロングです。

 

 スポンサーリンク

 

 

今回もエクセルマクロの記事を書きたいと思います。

内容としては、エクセルからウェブサイトにアクセスするマクロになります。

 

 スポンサーリンク

 

 

以下が元データです。

 

f:id:gorilla-strong:20200223105926p:plain

 

マクロを実行するとブラウザでB列に入力したURLのすべてにジャンプします。

 

 スポンサーリンク

 

 

以下がソースコードです。

Sub ウェブサイト()

Dim lastrow As Long
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

For i = 3 To lastrow


Dim URL As String
URL = ActiveSheet.Range("B" & i)

ActiveWorkbook.FollowHyperlink Address:=URL, SubAddress:="", NewWindow:=True


Next

End Sub

たったこれだけの記述でエクセルからブラウザを操作できるとは思いませんでした。

お時間がありましたら、コードをコピペして動かしてみてください。

 

 スポンサーリンク

 

 

以上、ゴリラストロングでした。