我想将网页中存在的特定文本“110001”复制到我的 Excel 文件中的工作表中。请告诉我如何通过 vbscript 做到这一点。下面是我要复制的相关源代码行。
<h1 id="h1">110001</h1>
下面是我正在使用的代码。此代码中的问题是它没有从网页复制任何内容。此外,它在最后一行的第 3 行给出运行时错误 1004 - Range("A1").Select
Private Sub blahblah_Click()
Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate "http://someWebsite"
Do While ie.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set y = ie.Document.getelementbyid("h1")
ie.ExecWB 12, 2
Workbooks("Book1.xlsm").Activate
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub