Excel VBA網絡價格數據採集

這是我的項目： 1.我有一個電子表格，其中包含特定列中的零件/型號 2.我希望對每個零件號碼和單詞「price」執行Google搜索， 3.從最初的Google搜索結果中，我想對美國貨幣價格執行正則表達式搜索，並用每個零件號的平均返回價格填充單獨列，並排除所有其他html。 html定價數據不一定在表格中。Excel VBA網絡價格數據採集

我對Excel非常熟悉，並且對VBA有一定的瞭解。我已經能夠編寫大部分上述項目，但是我在從網頁中提取正則表達式匹配時遇到了一些困難。任何建議，將不勝感激。

來源

2016-08-02 Bob

你嘗試過什麼到目前爲止？你能發佈代碼嗎？ –

請參閱以下內容：

Sub Test() 

    Dim IE As Object 
    Dim reg As New RegExp 
    reg.Pattern = "\$\d+.?\d?\d?" 

    Sheets("Sheet3").Select 
    Range("A1:A1000") = "" ' erase previous data 
    Range("A1").Select 

    Set IE = CreateObject("InternetExplorer.Application") 

    IE.Visible = True 
    'IE.Navigate "https://www.google.com/" ' should work for any URL 
    IE.Navigate "https://www.google.com/?_rd=ssl#q=" & "DNR-12-1-G Price" 
    Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop 
    'IE.Document.getElementById("lst-ib").Value = "DNR-12 Price" 

    'Do While IE.Busy = True Or IE.readyState <> 4: DoEvents: Loop 

    'SendKeys ("{ENTER}") 

    IE.ExecWB 17, 0 '// SelectAll 
    IE.ExecWB 12, 2 '// Copy selection 
    ActiveSheet.PasteSpecial Format:="Text", link:=False, DisplayAsIcon:=False 
    Range("A1").Select 
    Selection.SpecialCells(xlCellTypeBlanks).Select 
    Selection.Delete Shift:=xlUp 
    'MsgBox (Continue) 
    IE.Quit 

End Sub

來源

2016-08-02 23:14:53 Bob

Excel VBA網絡價格數據採集

回答

相關問題