Excel 中VBA命令按钮一键打开网页界面

      是不是碰到过想登录某个网页，却经常出现广告网页，长时间不能登录到目标网页的情况。如何避免误点广告，直接登录呢。今天学习通过VBA一键打开网页界面，精准高效，快来看看吧！

     第一步、以WPS软件为例，在表格中，选择【开发工具】进入【设计模式】，在工作表任一位置插入一个“命令按钮”。

         第二步、还是在设计模式下，双击这个命令按钮，弹出VBE编辑窗口，复制以上代码到代码编辑器图中空白区域，并保存。

        第三步、在表格B列单元格中输入想要登录的网址，比如百度主页，然后选中网址所在的B4单元格，点击命令按钮，即可一键直达。

Private Sub CommandButton1_Click()

On Error Resume Next

Dim 网址 As String

网址 = Selection.Value

With CreateObject("internetexplorer.application")

.Visible = True

.Navigate 网址

Do Until .ReadyState = 4

DoEvents

Loop

End With

End Sub

        快来试试吧，感谢关注！