Microsoft Access VBA - 指定したURLをインターネット エクスローラで開く方法

◆概要
　この資料では、 Access VBAでインターネットエクスプローラで指定のURLを開く方法を説明しています。 この方法では、既定のブラウザがIE以外であってもIEが起動します。

　U_BrouseIE関数を作成し、それをボタンのクリックイベントプロシージャでURLを指定するだけです。
次の例では、ボタン名はbtnIEとしています。 

Private Sub btnIE_Click()
    Call U_BrouseIE("http://www7b.biglobe.ne.jp/~whitetiger/")
End Sub

Public Sub U_BrouseIE(ByVal I_URL As String)
' ****************************************************
' 目的のURLをインターネットエクスプローラで表示する
' ****************************************************
  Dim objIE As Object
  
  Set objIE = CreateObject("InternetExplorer.application")
  objIE.Navigate I_URL
  objIE.Visible = True
  Set objIE = Nothing
End Sub


▼ページトップに戻る