请问怎么在VBA中打开一个链接!

csflydragon

我新建一个按钮, 点击打开一个链接,但是运行的效果和我直接在IE上打开链接的效果不同请问是什么原因?Sub Exitdoc() Dim ServerName, FoldName, Url2, tempstr, id, Msg, Style, Title, Help, Ctxt, Response, MyString Formid = ThisDocument.Application.CommandBars("Km2000").Controls(3).Caption caps = Split(ThisDocument.Application.CommandBars("Km2000").Controls(4).Caption, ";") 'Url = caps(1) & "/dzzw/dboutdoc.nsf/" & Replace(Formid, "+", "/") & "?editdocument&" & Now() Url2 = caps(1) & "/dzzw/dboutdoc.nsf/Attach?OpenAgent&DocId=" & Replace(Formid, "+", "/") Msg = "您决定退出 ?" ' 定义信息。 Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。 Title = "退出提示" ' 定义标题。 Help = "DEMO.HLP" ' 定义帮助文件。 Ctxt = 1000 ' 定义标题 ' 上下文。 ' 显示信息。 Response = MsgBox(Msg, Style, Title, Help, Ctxt) If Response = vbYes Then ' 用户按下“是”。 MsgBox (Url2) UserForm3.WebBrowser1.Navigate (Url2) ThisDocument.Application.Quit SaveChanges:=False Else ' 用户按下“否”。 ThisDocument.ActiveWindow.Document.Activate End If End Sub [em25][em25][em25][em25]

Rowen

VBA 版有答过: '******************打开指定的网页地址************************ Const myURL As String = "http://www.excelhome.net" Const myMail As String = "mailto:excelhome@263.net" Const myIEPath As String = "C:\Program Files\Internet Explorer\IEXPLORE.EXE" 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 Sub LinkTest() '----------------------------------------------------------------- '以下链接时的表现会因连线状态,IE 修改/设置而稍有差异,可自行体会. '未完,待各位增补. '----------------------------------------------------------------- '****************************************** '一、工作表相关 '****************************************** '本示例将直接打开一个超链接。 ActiveWorkbook.FollowHyperlink Address:=myURL, NewWindow:=True '本示例为第一个图形新建一个超链接。当然,你的工作表中必须有一个图形 With Sheet1 .Shapes(1).Select .Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:=myURL End With '加载它的超链接 Worksheets(1).Shapes(1).Hyperlink.Follow NewWindow:=True '本示例为单元格 A1 新建一个超链接。 With Sheet1 .Hyperlinks.Add .Range("A1"), myURL End With '加载它的超链接 Sheet1.Hyperlinks(1).Follow NewWindow:=True '****************************************** '二、使用 Shell 函数 '****************************************** Dim RetVal RetVal = Shell(myIEPath & " " & myURL, 1) '****************************************** '三、使用 API 之 ShellExecute 函数 '****************************************** ShellExecute Application.hwnd, vbNullString, myURL, vbNullString, vbNullString, 1 End Sub '******************************************