Excel2000 VBA 設定したURL（ＶＢＡ解説サイトなど）をブラウザで開く

Excel2000 VBA  設定したURL（ＶＢＡ解説サイトなど）をブラウザで開く

エクセルのツールバーにマクロを登録して使用すると、エクセルからブラウザを起動してＵＲＬ（ＶＢＡ解説サイトなど）を開くことが出来る。

Sub url_open()
'
'URLを既定ブラウザで開く
'いつも利用するVBA解説のURLを登録しておくと便利
'
'ブラウザで表示
Dim URL As String
Dim wsh As Object
'ＵＲＬ登録その１
    URL = "http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/index.html"
   
    Set wsh = CreateObject("Wscript.Shell")
    wsh.Run URL, 3
    Set wsh = Nothing
   
'ＵＲＬ登録その２
    URL = "http://officetanaka.net/"
   
    Set wsh = CreateObject("Wscript.Shell")
    wsh.Run URL, 3
    Set wsh = Nothing
   
'ＵＲＬ登録その３
    'URL = "http://"
   
    'Set wsh = CreateObject("Wscript.Shell")
    'wsh.Run URL, 3
    'Set wsh = Nothing


End Sub

タグ：Excel2000 VBA