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