文本文档vb小程序-微信小程序富文本插件

VBA 代码提供了一些访问网页的方法。 如果你不明白，就好像你真的无从下手。

在本节中，您将学习如何通过 VBA 代码访问 Internet 网页。

如下图所示，共有4种方法，掌握其中一种即可。

首先在VBE编辑器中新建一个窗体，然后新建四个按钮，然后对按钮的Click事件进行编程。

整个过程就这么简单，通过按钮的点击事件访问网页。

下面的代码用于实现上述过程。

每个按钮实际上分别调用了一个进程。 流程可以写在模块里文本文档vb小程序，也可以写在表单代码里，没有区别。

Private Sub CommandButton1_Click()

OpenWebApi
End Sub
Private Sub CommandButton2_Click()
OpenWebHyperlink
End Sub
Private Sub CommandButton3_Click()
OpenWebExplorer

End Sub
Private Sub CommandButton4_Click()
OpenWebShell
End Sub

上面的代码是按钮点击事件代码。 每个代码的过程是不同的。 流程执行后，会直接打开相应的网页。

这四种方法是：

通过API函数打开网页使用FollowHyperLink方法打开网页使用InternetExplorer对象使用Shell语句打开网页

然后新建一个模块文本文档vb小程序，把下面的代码放进去。

Public Const webPath = "https://www.toutiao.com/c/user/50527634494/#mid=1554566493712386"
'用API打开默认的浏览器
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub OpenWebApi()
  ShellExecute 0&, vbNullString, webPath, vbNullString, vbNullString, vbNormalFocus
End Sub
'用“FollowHyperlink”方法
Sub OpenWebHyperlink()

  ActiveWorkbook.FollowHyperlink Address:=webPath, NewWindow:=True
End Sub
'用“InternetExplorer”对象
Sub OpenWebExplorer()
  Dim IE As Object
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible = True
  IE.Navigate (webPath)

End Sub
'用Shell语句
Sub OpenWebShell()
  Dim url As String
  url = webPath
  Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & url, vbNormalFocus
End Sub

关键是WebPath变量是你要访问的网页地址，使用时只要改变WebPath变量的值即可。

此示例将 WebPath 变量设置为常量，结果相同。

多掌握一点知识不会没有好处。 当下注意一些小细节，总有一天，你会觉得之前的努力没有白费。