VBA调用浏览器打开指定网页的几种方法

VBA调用浏览器打开指定网页的几种方法下面的几段VBA代码都可以打开浏览器并打开指定的网页：方法一：用API打开默认的浏览器PrivateDeclareFunctionShellExecuteLibshell32.dllAliasShellExecuteA(ByValhwndAsLong,ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongSubOpenWebPage1()ShellExecute0&,vbNullString,方法二：用“FollowHyperlink”方法：SubOpenWebPage2()ActiveWorkbook.FollowHyperlinkAddress:=:=TrueEndSub注意网址中要包含“http://”。方法三：用“InternetExplorer”对象SubOpenWebPage3()DimIEAsObjectSetIE=CreateObject(InternetExplorer.Application)IE.Visible=TrueIE.Navigate()EndSub方法四：用Shell语句这个方法可以用指定的浏览器打开某个网页。例如调用IE打开网址“”SubOpenWebPage4()DimurlAsStringurl=说明：1.将“C:\ProgramFiles\InternetExplorer\IEXPLORE.EXE”换成其他浏览器程序，则可用指定的浏览器打开网页。例如系统中已安装遨游浏览器（Maxthon），并安装在“C:\Maxthon2”文件夹中，将上述语句更改为“C:\Maxthon2\Maxthon.exe”将用Maxthon打开指定的网页。2.注意“C:\ProgramFiles\InternetExplorer\IEXPLORE.EXE”的结尾处有一空格。如果忽略此空格，Excel将出现错误提示“文件未找到”。