我们都知道当数据过多的时候，我们制作Excel图表就会显得非常的复杂，图表上面的内容就会特别多。Excel老玩家就会想到用切片器制作动态可变化的图表来显示。今天我们就来学习一下一个比......
2023-01-08
excel VBA调用浏览器打开指定网页的几种方法
Excel函数
2023-01-13
下面的几段VBA代码都可以打开浏览器并打开指定的网页：
方法一：用API打开默认的浏览器
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 OpenWebPage1()
ShellExecute 0&, vbNullString, "www.zhixing123.cn", vbNullString, vbNullString, vbNormalFocus
End Sub
方法二：用“FollowHyperlink”方法：
Sub OpenWebPage2()
ActiveWorkbook.FollowHyperlink Address:="http://www.excel123.cn", NewWindow:=True
End Sub
注意网址中要包含“http://”。
方法三：用“InternetExplorer”对象
Sub OpenWebPage3()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("www.excel123.cn")
End Sub
方法四：用Shell语句
这个方法可以用指定的浏览器打开某个网页。例如调用IE打开网址“www.zhixing123.cn”
Sub OpenWebPage4()
Dim url As String
url = "www.excel123.cn"
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & url, vbNormalFocus
End Sub
说明：
1.将“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”换成其他浏览器程序，则可用指定的浏览器打开网页。例如系统中已安装遨游浏览器（Maxthon），并安装在“C:\Maxthon2”文件夹中，将上述语句更改为“C:\Maxthon2\Maxthon.exe ”将用Maxthon打开指定的网页。
2.注意“C:\Program Files\Internet Explorer\IEXPLORE.EXE ”的结尾处有一空格。如果忽略此空格，Excel将出现错误提示“文件未找到”。
相关文章
- 详细阅读
-
excel 合并上百个工作簿数据，你花了一天别人只用了10秒详细阅读
在工作中，可能许多朋友都会碰到一个情况，那就是工作簿和工作表数据的合并操作。如何将上百个工作簿快速合并到一个表格中，许多朋友可能会觉得不可思议。今天我们就来教大家学习一......
2023-01-08
-
Excel文本函数，excel拆分和组合函数，掌握这些就够了！详细阅读
今天在这里为你分享5个Excel文本函数，这些拆分和组合函数，你一定会用上的。①LEFT函数公式：=LEFT(A2,1)在Excel表格中，需要想要拆分汉字，想从哪里开始就从那哪里开始。首先选定单元格......
2023-01-08
-
Excel函数一键变翻译，学会了这个方法，再也用苦思冥想了！详细阅读
相信大家也和我一样，才开始看到Excel可以当做翻译软件的时候会很好奇，这究竟是怎样做到的？其实，这个方法并不是很难，它是由一个函数公式而制作出来的，好了，首先我们一起来看看成......
2023-01-08
-
Excel函数公式大全，办公室人员必备！详细阅读
函数可以说是所用快捷方法中最为简单的一种方法，为什么很多人认为函数用起来很难了？主要是因为它拥有很长的函数公式，记不住。其实不管是学Excel函数，还是学习其他的一些快捷方法......
2023-01-08