|
VBA代码提供了一些访问网页的途径，如果不了解一下，似乎真不知道如何入手。 本节将学会，如何通过VBA代码访问互联网网页。 如下图所示，分别有4种方法，掌握其中一种，就可以了。 首先在VBE编辑器里新建一个窗体，然后新建4个按钮，然后分别对按钮的Click事件进行编程。 通过按钮的单击事件来访问网页，整个流程就是这么简单。 下面用代码来实现上面的流程。 每个按钮其实分别调用了一个过程，过程写到了模块里，也可以写到窗体代码里，没有区别。 Private Sub CommandButton1_Click()OpenWebApiEnd SubPrivate Sub CommandButton2_Click()OpenWebHyperlinkEnd SubPrivate Sub CommandButton3_Click()OpenWebExplorerEnd SubPrivate Sub CommandButton4_Click()OpenWebShellEnd Sub
上面的代码就是按钮单击事件代码，每个代码的过程不同，过程执行后直接打开相应网页。 四种方法分别是： - 通过API函数打开网页。
- 用FollowHyperLink方法打开网页
- 用InternetExplorer对象
- 用Shell语句打开网页
然后新建一个模块，把下面的代码放进去。 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 LongSub OpenWebApi() ShellExecute 0&, vbNullString, webPath, vbNullString, vbNullString, vbNormalFocusEnd Sub'用“FollowHyperlink”方法Sub OpenWebHyperlink() ActiveWorkbook.FollowHyperlink Address:=webPath, NewWindow:=TrueEnd 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, vbNormalFocusEnd Sub
重点说一下，WebPath变量就是想要访问的网页地址，使用的时候更换WebPath变量值即可以。 本示例把WebPath变量设置成一个常量了，结果是一样的。 多掌握一点知识，不会没有好处，留意当下的一些小细节，总有一天，会感觉到，曾经的努力并不是白费功夫。
|
