1、打开excel表格

2、然后按alt+f11打开VBA界面

3、选择工具按施召钮,选择引用

4、弹爱菊出对话框选择Internet controls

5、然后在模块界面输入代码 Sub sample() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://jingyan.baidu.com/edit/content?model=1" ,注意这里是想要访问的网址 With objIE While .readyState <> 4 Or .Busy DoEvents 何篇往 Wend End With End Sub

6、然后单击运行按钮

7、即可看到网页打开

8、最后保存文件
