テーブルスクレイピング

Sub IE_table_output()

Application.ScreenUpdating = False

'IEの起動
Dim objIE As Object

Set objIE = GetObject("", "InternetExplorer.Application")

objIE.Visible = True

objIE.navigate "https://www.kanzaki.com/docs/html/htminfo16.html"

' ページの表示完了待ち｡
While objIE.readyState <> 4 Or objIE.Busy = True
DoEvents
Wend

On Error Resume Next 'エラー回避用

I = 1
L = 0
J = objIE.document.all.Length '要素数

Cells(I, 1).Value = "No"

Dim A As Object

For Each A In objIE.document.getElementsByTagName("tr")

For L = 0 To 20

Cells(I, L + 1) = A.Children(L).innerText

Next

I = I + 1

Application.StatusBar = I & "/" & J

Next

On Error GoTo 0

Cells.WrapText = False

Application.ScreenUpdating = True
Application.StatusBar = False

End Sub