香港新浪網 MySinaBlog
« 上一篇 | 下一篇 »
Emily | 17th Dec 2005, 10:37 AM | WB & WS, Network / Media | (1239 Reads)

儲存單一 Web Page

這是一個儲存單一 Web 的例子, 編碼會呼叫另存 HTML Pop-Up

需要引用 Microsoft Internet Control

' Set reference to Microft Internet Control
'
Sub Example()
    Dim Url As String, IE As New InternetExplorer
 
    IE.Visible = True
    MsgBox IIf(SavePage(Url, ThisWorkbook.Path & "/", IE), "Page Saved", "Page Not Saved")
 ' Remark: mySinaBlog does not support slash, use / instead, please change
End Sub

 
Private Function SavePage(Url As String, SaveToPath As String, IE As InternetExplorer) As Boolean
    On Error GoTo Err_SavePage
 
    IE.navigate "http://www.officefans.net/cdb/viewthread.php?tid=49823&fpage=1"
    Do
        DoEvents
    Loop While Not IE.readyState = 4
 
    IE.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
    SavePage = True
 
    Exit Function
Err_SavePage:
End Function