VBA開啟網頁的4種方法，每一種方法都不能錯過

VBA程式碼提供了一些訪問網頁的途徑，如果不瞭解一下，似乎真不知道如何入手。

本節將學會，如何通過VBA程式碼訪問網際網路網頁。

如下圖所示，分別有4種方法，掌握其中一種，就可以了。

首先在VBE編輯器裡新建一個窗體，然後新建4個按鈕，然後分別對按鈕的Click事件進行程式設計。

通過按鈕的單擊事件來訪問網頁，整個流程就是這麼簡單。

下面用程式碼來實現上面的流程。

每個按鈕其實分別呼叫了一個過程，過程寫到了模組裡，也可以寫到窗體程式碼裡，沒有區別。

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語句開啟網頁

然後新建一個模組，把下面的程式碼放進去。

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 FilesInternet ExplorerIEXPLORE.EXE " & url, vbNormalFocus

End Sub

重點說一下，WebPath變數就是想要訪問的網頁地址，使用的時候更換WebPath變數值即可以。

本示例把WebPath變數設定成一個常量了，結果是一樣的。

多掌握一點知識，不會沒有好處，留意當下的一些小細節，總有一天，會感覺到，曾經的努力並不是白費功夫。

歡迎關注、收藏

---END---