Q：在excel中學習VBA代碼時，用vba打開網頁的代碼如何寫？
A：按ALT+F11，打開VBE編輯器，插入——模塊，復制下面代碼，運行即可。
Public Sub vba打開網頁()
ActiveWorkbook.FollowHyperlink "http://www.blwbbs.com/"
End Sub
注釋：上面這段vba打開網頁的代碼將打開咱們的IT部落窩論壇的官方網站。
下面再來學習打開某個excel工作薄文件，自動打開網頁的相關代碼：
打開文件時自動打開網頁的方法是：
按<Alt+F11>組合鍵，打開VBE編輯器，雙擊工程窗口的ThisWorkbook模塊，在代碼窗口粘貼下面的代碼，并將文件保存為“excel啟用宏的工作薄”即.xlsm格式。關閉工作薄文件，再次打開文件時，會自動打開指定的網頁。
Private Sub Workbook_Open()
ThisWorkbook.FollowHyperlink "http://www.blwbbs.com"
End Sub
截圖如下：
另外，還可以使用VBA中的shell函數來打開網頁，具體請參考：http://www.ittribalwo.com/show.asp?id=1220
OAT: none; LETTER-SPACING: normal; COLOR: rgb(0,0,0); WORD-SPACING: 0px; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px">再介紹一種vba打開網頁的方法，使用下面的代碼：
Sub vba打開網頁()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate ("www.blwbbs.com")
End Sub
最后這種方法是使用用API打開默認的瀏覽器來打開網頁。VBA代碼如下：
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 vba打開網頁()
ShellExecute 0&, vbNullString, "www.blwbbs.com", vbNullString, vbNullString, vbNormalFocus
End Sub
核心關注：拓步ERP系統平臺是覆蓋了眾多的業務領域、行業應用，蘊涵了豐富的ERP管理思想，集成了ERP軟件業務管理理念，功能涉及供應鏈、成本、制造、CRM、HR等眾多業務領域的管理，全面涵蓋了企業關注ERP管理系統的核心領域，是眾多中小企業信息化建設首選的ERP管理軟件信賴品牌。
轉載請注明出處：拓步ERP資訊網http://www.guhuozai8.cn/
本文標題：vba打開網頁的四種方法
相關文章
