怎样打开一个网站的网页

zwmrp

怎样用vba打开一个网站的网页？

zhuyiwen

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 Command0_Click()
Dim strFile As String
    strFile = "http://www.office-cn.net/bbs/index.asp"
    Call ShellExecute(Me.hwnd, "open", strFile, vbNullString, vbNullString, SW_SHOWNORMAL)
End Sub

好运牛

学习了，做了实例很有收获。