VBAでURLを指定する方法

質問

VBAを使用して、エクセルに記載しているテキストで開くURLを変えるプログラムを作成しようと思っております。

例えばA1に『yahoo』と入力されていれば、『http://www.yahoo.co.jp/』を開き、
『google』と入力されていれば、『http://www.google.com』を開くようにしたいです。

現在、下記のプログラムを使用していますので、
下記を流用できるようにして頂けると幸いです。

Sub test()

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate "『特定URL』"

Do While objIE.ReadyState <> 4
Do While objIE.Busy = True
Loop
Loop

For Each Obj In objIE.Document.getelementsbytagname("input")

If Obj.Name = "mail" Then
objIE.Document.getelementsbyname("mail")(0).Value = Range("C1").Value
Else
If Obj.Name = "password" Then
objIE.Document.getelementsbyname("password")(0).Value = Range("D1").Value
Else
objIE.Document.Links(1).Click
End If
End If
Next

End Sub

宜しくお願いいたします。

回答No.1

GADNET · ベストアンサー

インターネットネットアクセスタイミングがわからなかったので
セルA1が変更されたときのプログラムをさくせいしました。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim urlA1 As String 'URL変更用
Dim URL As String, IE As Object

If Target.Row = 1 And Target.Column = 1 Then 'A1が変更された場合

Select Case Range("A1")

Case "yahoo"
urlA1 = "yahoo.co.jp/"

Case "google"
urlA1 = "google.com"

Case Else
MsgBox ("不明なURL")
Exit Sub

End Select

Set IE = CreateObject("InternetExplorer.Application")
URL = "http://www." & urlA1
With IE
.Navigate (URL)
.Visible = True
End With

Set IE = Nothing
End If

End Sub

追加URL場合はcase文を増やしたりする必要があります。
大量のURLに対応させるためにはデータベースを作成したほうが
お勧めです。

補足

回答ありがとうございます。

コードを参考にさせて頂いたところ、希望していた通りの動きになりました。

あとひとつ教えて頂きたいのですが、データベースの作成はどうしたら良いのでしょうか？