Q：在excel中學(xué)習(xí)VBA代碼時(shí)，用vba打開網(wǎng)頁的代碼如何寫？
A：按ALT+F11，打開VBE編輯器，插入——模塊，復(fù)制下面代碼，運(yùn)行即可。
Public Sub vba打開網(wǎng)頁()
ActiveWorkbook.FollowHyperlink "http://www.blwbbs.com/"
End Sub
注釋：上面這段vba打開網(wǎng)頁的代碼將打開咱們的IT部落窩論壇的官方網(wǎng)站。
下面再來學(xué)習(xí)打開某個(gè)excel工作薄文件，自動打開網(wǎng)頁的相關(guān)代碼：
打開文件時(shí)自動打開網(wǎng)頁的方法是：
按<Alt+F11>組合鍵，打開VBE編輯器，雙擊工程窗口的ThisWorkbook模塊，在代碼窗口粘貼下面的代碼，并將文件保存為“excel啟用宏的工作薄”即.xlsm格式。關(guān)閉工作薄文件，再次打開文件時(shí)，會自動打開指定的網(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打開默認(rèn)的瀏覽器來打開網(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
核心關(guān)注：拓步ERP系統(tǒng)平臺是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請注明出處：拓步ERP資訊網(wǎng)http://www.guhuozai8.cn/
本文標(biāo)題：vba打開網(wǎng)頁的四種方法
本文網(wǎng)址：http://www.guhuozai8.cn/html/support/11139213038.html
相關(guān)文章
