【源码】Access打开网站website的几种方法

tmtony

1.直接使用Access内置命令  FollowHyperlink
    Application.FollowHyperlink "http://www.access-cn.com"
    最方便最简单

2.调用IE打开
    Dim strUrl As String
    Dim objWb as Object
    Set objWb = CreateObject("InternetExplorer.Application")
    objWb.Visible = True
    strUrl = "http://www.office-cn.net"
    objWb.Navigate strUrl

3.使用API
''调用API,放置在模块中
Public Declare Function ShellExecuteA Lib "shell32.dll" _
                         (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

'在命令按钮中调用:
   ShellExecuteA Application.hWndAccessApp, "open", "http://www.office-cn.net", vbNullString, vbNullString, 1

ganlinlao

4 使用shell命令

Shell "cmd /c start http://www.baidu.com", vbHide

Shell "explorer.exe http://www.baidu.com", 1

tmtony

ganlinlao 发表于 2015-6-19 16:42
4 使用shell命令

Shell "cmd /c start http://www.baidu.com", vbHide

Good!