1、打开excel表格

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

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

4、弹出对话框选择Internet controls

5、然后在模块界面输入代码 Sub sample() Dim objIE 钽吟篑瑜As InternetExplorer Set o芟鲠阻缒bjIE = 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、最后保存文件
