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、最后保存文件