|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
使用 工具==引用
勾选Microsoft Internet Controls 的方法有个难题就是:使用者动态链接库或控件库无此DLL & OCX 就头大了。。。
http://club.excelhome.net/viewthread.php?tid=447140&highlight=VBA%2B%B4%F2%BF%AA%CD%F8%D2%B3
http://club.excelhome.net/viewthread.php?tid=441505&highlight=VBA%2B%B4%F2%BF%AA%CD%F8%D2%B3
参见以下代码:
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
Public Sub openhttp() '打开网页 函数返回值为大于32的整数表明成功执行调用,小于或等于32表明调用失败。
Dim Result
Result = ShellExecute(0, vbNullString, "http://club.excelhome.net/viewthread.php?tid=3367", vbNullString, vbNullString, SW_SHOWNORMAL)
If Result <= 32 Then
MsgBox "调用浏览器错误!", vbOKOnly + vbCritical, "错误:", 0
End If
End Sub |
|