這個錯誤:Set trs = tbl.getElementsByTagName("tr")

陳老闆 · 发表于 2024-1-22 17:16

如何處理執行時，在這句出錯. Set trs = tbl.getElementsByTagName（“tr”），應如何處理. 謝謝幫忙

Sub Test()

Cells.Clear

Set IE = CreateObject("internetexplorer.application")

IE.navigate "https://racing.on.cc/racing/rat/current/rjrati0001x0.html"

Application.Wait (Now + TimeValue("0:00:03"))

Set tbl = IE. Document.getElementsByTagName("table")(5)

Set trs = tbl.getElementsByTagName("tr")

For I = 8 To 30

Set tds = trs(I).getElementsByTagName("td")

For J = 0 To tds. Length - 1

Cells(I + 1, J + 1) = tds(J).innerText

End Sub

taller · 发表于 2024-1-23 00:04

陳老闆 · 发表于 2024-1-23 08:58

請教taller 老師, VBA 的程式碼應如何修改
Set IE = CreateObject("powerquery")

陳老闆 · 发表于 2024-1-23 11:37

最後一行不須要

taller · 发表于 2024-1-23 12:42

不需要任何代码，截图中1，2是操作步骤

taller · 发表于 2024-1-23 12:51

PQ公式

PowerQueryFormula.zip (1.44 KB, 下载次数: 3)

perfect131 · 发表于 2024-1-23 12:54

陳老闆发表于 2024-1-23 08:58
請教taller 老師, VBA 的程式碼應如何修改
Set IE = CreateObject("powerquery")

		自动登录	找回密码
密码			免费注册

[求助] 這個錯誤:Set trs = tbl.getElementsByTagName("tr")