【Excel VBA编程】从单元格到浏览器:网络操作第一步,打开网页
- 2026-02-05 00:54:18
总是听到或看到有人问，编程好学吗？如何入门？多久能学会？它能做些什么？怎么写代码呀?执行过程中出问题了谁能帮帮我...如果你也有类似的问题那就赶快关注我的公众号，一起学起来吧！
在日常工作或生活中，除了数据、图片、文件等操作，网络操作也是必不可少的，如浏览网页
在VBA中，可以直接通过URL路径打开网页的，并且有多种成熟的方法，接下来就介绍几种常用的方式
Shell+系统命令
Sub OpenURLWithShell_1()Dim url As Stringurl = "https://www.*****.com/" '访问网页对应的URLShell "cmd /c start " & url, vbNormalFocusEnd SubSub OpenURLWithShell_2()Dim url As Stringurl = "https://www.*****.com/" '访问网页对应的URLShell "explorer " & url, vbNormalFocusEnd Sub
Sub OpenURLWithSpecialBrowser()Dim url As String, browserPath As Stringurl = " https://www.*****.com " '访问网页对应的URLbrowserPath = "C:\Program Files\Google\Chrome\Application\chrome.exe" '浏览器安装详细位置Shell browserPath & url, vbNormalFocusEnd Sub
FollowHyperlink
非常方便，只需要一行代码，代码参考如下
ThisWorkbook.FollowHyperlink "https://www.*****.com"此方法是Office原生方法，代码简洁，兼容性好，如果再结合VBA事件一起使用，效果更好，如
将放入FollowHyperlink相关代码放到Workbook_Open事件中，实现打开Excel文件时自动跳转网页
添加工作表按钮，批量打开多个URL，实现自动化网页访问
......
WSH Shell
WSH Shell，即Windows Script Host Shell对象，上一期介绍过它的SendKeys方法：模拟模拟人工敲击键盘，将按键发送到活动窗口。如果想了解更多，可以点击链接查看：【Excel VBA编程】打开一扇通往 Windows 操作系统底层的大门
这次通过URL打开网页，利用它的Run方法一样能胜任
代码参考：
Sub RunAProgram()Dim WsShell As ObjectSet WsShell = CreateObject("WScript.Shell")' 打开一个网页WsShell.Run "https://www.*****.com" '使用系统默认浏览器End Sub
如果将其Run方法和SendKeys方法配合使用，是不是就可以模拟人工浏览网页了呢？最后效果给大家展示一下，为了便于观察效果，每一步操作都预留了充足的等待时间
结束语
好了，今天的编程知识到此结束了，又到每日冷知识小分享时间了
今天分享的是一群人——“黑客”：该词源自英文“Hacker”，最初指热心于计算机技术、水平高超的电脑高手，尤其是程序设计人员，他们崇尚技术挑战、自由与信息共享。后来黑客群体逐渐分化为建设性的白帽黑客、破坏性的黑帽黑客（或称骇客Cracker）以及介于两者之间的灰帽黑客
目前，许多白帽黑客也会受雇于安全公司或企业，成为了维护网络安全的主力军。所以，不要再一棒子打死了，认为黑客都是“坏家伙”
本公众号一直在不间断地分享免费的编程案例和实用技巧。无论您是用来提升自动化办公效率还是想提升自我，请关注我的公众号，解锁更多的编程知识
