请看下面的代码。我正在用 excel 编制一个不寻常的货币配对列表,我希望用 VBA 刮取这些数据。我只想将值本身插入到单元格中。有谁知道我在这里哪里出错了?我收到“运行时错误 '91':对象变量或未设置块变量”。我对 VBA 比较陌生,对此我进行了很多思考。
Sub ie_open()
Dim wb As Workbook
Dim ws As Worksheet
Dim TxtRng As Range
Dim ie As Object
Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
ie.NAVIGATE "http://www.barchart.com/quotes/forex/British_Pound/Costa_Rican_Colon/%5EGBPCRC"
ie.Visible = True
While ie.ReadyState <> 4
DoEvents
Wend
Set wb = ActiveWorkbook
Set ws = wb.Sheets("Test Sheet")
Set TxtRng = ws.Range("A1")
TxtRng.Value = ie.document.getelementsbyname("divQuotePage").Item.innertext
End Sub
这是我试图抓取的数据:
谢谢。