打开Excle,快捷键Alt+F11,然后插入模块
输入一下内容到编辑器
Sub 打开网页()
For Each A In Selection
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate A.Value
End With
Next
End Sub
返回的excle界面，选中要打开的单元格
步骤阅读
4
快捷键Alt+F8，然后点击运行，网页将从上到下依次被打开。
只能使用Microsoft Excle ，WPS无法使用
输入一下内容到编辑器
Sub 打开网页()
For Each A In Selection
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate A.Value
End With
Next
End Sub
返回的excle界面，选中要打开的单元格
步骤阅读4
快捷键Alt+F8，然后点击运行，网页将从上到下依次被打开。
只能使用Microsoft Excle ，WPS无法使用
