Office中国论坛/Access中国论坛

标题: 【源码】Access打开网站website的几种方法 [打印本页]

作者: tmtony 时间: 2015-6-19 10:29
标题: 【源码】Access打开网站website的几种方法
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 时间: 2015-6-19 16:42
4 使用shell命令

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

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

作者: tmtony 时间: 2015-6-19 19:20

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

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

Good!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)