VB腳本或VBA代碼到web網頁的內容複製到Word/Excel工作表

Question

可能重複：
Extract values from HTML TD and Tr

我需要複製的web網頁的內容使用VBA或VB腳本（如果使用任何編程語言繁忙）Word/Excel表單

所以，如果我給一個網頁的路徑，那麼系統需要複製一個網頁的內容和WR在Word或Excel文件中進行迭代。

Answer 1

請發表你媒體鏈接有下一次，我有2個解決方案，選擇最適合您的需求，在這裏如果你只是想查看HTML使用Word作爲要求

Option Explicit 
'Just change these two lines 
Const HTMLFileIn="http://stackoverflow.com/questions/10782976/disable-error-in-vbs" 
Const DocFileOut="c:\newfile.doc" 

Dim MyWord,oIE 
set MyWord=CreateObject("Word.Document") 
Set oIE = CreateObject("InternetExplorer.Application") 
oIE.Navigate HTMLFileIn 
Wscript.Sleep 500 
oIE.document.body.createTextRange.execCommand("Copy") 
Wscript.Sleep 500 
MyWord.Content.Paste 
MyWord.SaveAs DocFileOut 
MyWord.Close 
oIE.Quit 
Set oIE = Nothing 
set MyWord = Nothing 
Wscript.Echo HTMLFileIn & " is now saved as " & DocFileOut 

Sub wait 
    Wscript.Sleep 500 
    While oIE.busy 
    Wscript.Sleep 1000 
    Wend 
    While oIE.Document.readyState <> "complete" 
    Wscript.Sleep 1000 
    Wend 
End Sub 

的一個，在這裏是

url = "http://stackoverflow.com/questions/10782976/disable-error-in-vbs" 
set xml = createobject("msxml2.serverxmlhttp.6.0") 
with xml 
    .open "get", url, false 
    .send 
    wscript.echo .responsetext 
end with 

Answer 2

看我其他的答案最簡單的解決方案，它使用的單詞。 這裏另一種技術和另存爲HTML

function download(sFileURL, sLocation, async) 
    set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") 
    objXMLHTTP.open "GET", sFileURL, async 
    on error resume next 
    objXMLHTTP.send() 
    if err.number = 0 then 
    do until objXMLHTTP.Status = 200 
     wscript.echo objXMLHTTP.Status 
     wcript.sleep(200) 
    loop 
    if objXMLHTTP.Status = 200 Then 
     set objADOStream = CreateObject("ADODB.Stream") 
     objADOStream.Open 
     objADOStream.Type = 1 
     objADOStream.Write objXMLHTTP.ResponseBody 
     objADOStream.Position = 0  
     set objFSO = Createobject("Scripting.FileSystemObject") 
     If objFSO.Fileexists(sLocation) Then objFSO.DeleteFile sLocation 
     Set objFSO = Nothing 
     objADOStream.SaveToFile sLocation 
     objADOStream.Close 
     set objADOStream = Nothing 
     download = true 
    end if 
    else 
    download = false 
    end if 
    set objXMLHTTP = Nothing 
end function 

if download("http://stackoverflow.com/questions/10782976/disable-error-in-vbs", "question.html", false) then 
    wscript.echo "download ok" 
else 
    wscript.echo "download nok" 
end if