Excel VBA Web价格数据捕获

这里是我的项目：1.我有一个电子表格，包含特定列中的零件/型号2.我希望对每个零件号码和单词“价格”执行Googlesearch3.从最初的Googlesearch结果中，我想要执行美国货币价格的正则expression式search，并用每个零件号的平均返回价格填充一个单独的列，并排除所有其他的html。 html定价数据不一定在表格中。

我对Excel非常熟悉，对VBA有一定的了解。 我已经能够编码大部分上述项目，但我有一些困难从网页提取正则expression式匹配。 任何build议，将不胜感激。

Answer 1

请看下面：

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