如题所述
第1个回答 2012-10-04
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.Visible = True
ie.Navigate "你的网页地址"本回答被提问者采纳
ie.Visible = True
ie.Navigate "你的网页地址"本回答被提问者采纳
第2个回答 2012-10-04
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute 0, "OPEN", "", "", "", SW_SHOWNORMAL
End Sub
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute 0, "OPEN", "", "", "", SW_SHOWNORMAL
End Sub