下面是竹笛提供的代码,但本人在机器上一开始使用时能使用,但不知是否因为打补丁的原因现在不能使用.
Private Sub cmdAccess_Click()
Dim webAddreess As String
Dim Web
Set Web = CreateObject("InternetExplorer.Application")
Web.Visible = True
WebAddress = "http://www.accessoft.com"
Web.Navigate WebAddress
End Sub
后在网上查找通过调用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", 含地址及名称的路径, vbNullString, vbNullString, 1