【VBA】Webのテーブルデータ取得（InternetExplorer）

2021年9月3日

HTML

jimです。じゃんぼ✋

最近、Web操作（IE）の自動化をしなくてはいけなくて。

他にも方法はあるんだけど、情シスに断られてしまって。。

だから、仕方なくVBAでWebの自動化をしたっていう。。。

その時、Web操作のマクロを組むのが久しぶりで『色々忘れてた』ってのと、『派遣先が変わる度に調べるの面倒だな』っと思ったから記事にすることにしました。

ってことで、今回は『Webのテーブルデータ取得』の記事っす。

例えば↓の表みたいなものがあったとする（例えばね例えば）

a i u e o
– あ い う え お
K か き く け こ
S さ し す せ そ

これをブラウザの開発者ツール（F12）で見てみる・・・

『table』の配下に『tr』がいるということ。

↓図にすると、こんな感じでしょうか？

テーブルがあって、その下に行があるといった感じ。

さらに『tr』の配下を見てやります。

『tr』の配下に『th（td）』がいるわけです。

↓これを図にすると、こんな感じかな？

わかります？

 

コードを書き散らかす

じゃあ、具体的にどう取得すんのか？ってーと、

Excelでいう○○と言うBookの△△って言うシートの××ってセルみたいな指定をします。

下記コードのdebug.print部分っす。

参照設定に『InternetControls』と『HTMLObjectLibrary』が必要です。

1С (Запрос)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Option Explicit
Sub table()
Dim objIe As InternetExplorer
Dim ieDocument As HTMLDocument
Dim i As Integer
    If GetWindow(objIe) = False Then
        Set objIe = CreateObject("InternetExplorer.Application")
        objIe.Visible = True
        objIe.navigate "https://bw-rocket.com/2021/08/23/post-2750/"
        Call WaitLoad(objIe)
    End If
    'th
    '正確には↓でしょうか？
    Debug.Print objIe.document.getElementById("gaketable"). _
                getElementsByTagName("tbody")(0). _
                getElementsByTagName("tr")(0). _
                getElementsByTagName("th")(1).innerText
    '繰り返すなら変数使ったほうがいい？
    Set ieDocument = objIe.document.getElementById("gaketable"). _
                getElementsByTagName("tbody")(0)
    For i = 0 To 5
        Debug.Print ieDocument.document.getElementsByTagName("th")(i).innerText
    Next
    'そもそもtrにIDが付いてるならtrから取得すればよい？
    Debug.Print objIe.document.getElementById("gake"). _
                getElementsByTagName("th")(2).innerText
    'td
    '２行目の４項目目
    Debug.Print objIe.document.getElementById("gake0"). _
                getElementsByTagName("td")(3).outerText
    '３行目の５項目目
    Debug.Print objIe.document.getElementById("gake1"). _
                getElementsByTagName("td")(4).innerHTML
    '４行目の６項目目
    Debug.Print objIe.document.getElementById("gake2"). _
                getElementsByTagName("td")(5).outerHTML
End Sub
Private Sub WaitLoad(ByVal objIe As InternetExplorer)
    Do While objIe.Busy = True Or objIe.readyState <> 4
        DoEvents
    Loop
End Sub
Function GetWindow(ByRef objIe As InternetExplorer)
Dim shellObject As Object
Dim windowObject As Object
    Set shellObject = CreateObject("Shell.Application")
    For Each windowObject In shellObject.Windows
        If windowObject = "Internet Explorer" Then
            If windowObject.document.Title = "【VBA】IEの表からデータを抜き出す | 崖っぷち派遣社員の日常" Then
                Set objIe = windowObject
                GetWindow = True
                Exit For
            End If
        End If
    Next
End Function

「tableやtrにid振ってなかったらどうすんの？」って思いました？

やれるけど、面倒す。というか、IEの自動操作全般ね。

そもそもの話、IEの操作って面倒だしオワコンだしイケてないのかもしれませんね。

独り言みたいなコメントアウトは無視してOK👍

んじゃ、またねぇ✋

 

SQL,VBA,データベース,プログラミング,仕事VBA,仕事

Posted by jim