質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

719閲覧

VBAによるスクレイピングでタグの中身を抜き出す方法

oden3

総合スコア9

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/07/15 17:13

編集2018/07/15 17:41

前提・実現したいこと

VBAでInternetExplorerを操作して以下のようなサイトのスクレイピングをしたいです。
具体的には以下のようなHTML文に対して、指定した要素内容のhrefを取得したいと考えております。

HTML

1 <ul class="CatSel_LiCat1"> 2 <li > 3 <a href="/r/_ASOS-%E3%82%A8%E3%82%A4%E3%82%BD%E3%82%B9/-C1001/" cate-level="1" class="category-item category-level-1 category-item-all" cate-id="1001" cate-name="レディースファッション" >レディースファッション</a></li> 4 <span class="cate1selected_arrow"></span> 5 <li > 6 <a href="/r/_ASOS-%E3%82%A8%E3%82%A4%E3%82%BD%E3%82%B9/-C1002/" cate-level="1" class="category-item category-level-1 category-item-all" cate-id="1002" cate-name="メンズファッション" >メンズファッション</a></li> 7 <span class="cate1selected_arrow"></span> 8 <li > 9 <a href="/r/_ASOS-%E3%82%A8%E3%82%A4%E3%82%BD%E3%82%B9/-C1005/" cate-level="1" class="category-item category-level-1 category-item-all" cate-id="1005" cate-name="ベビー・キッズ" >ベビー・キッズ</a></li> 10 <span class="cate1selected_arrow"></span>

発生している問題・エラーメッセージ

該当のソースコード

試したこと

GetElementsByClassName("a")でそれぞれ引っ掛ける事は出来ますが、開始タグの中身を取得する事は出来ませんでした。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

以下のような処理ですべてのhrefを取得できないでしょうか。

Dim elem As MSHTML.HTMLHtmlElement
Dim aElem As MSHTML.HTMLAnchorElement

For Each elem In hDoc.getElementsByTagName("li")
For Each aElem In elem.getElementsByTagName("a")
'テキスト取得
Debug.Print aElem.innerText
If aElem.hasAttribute("href") Then
'URL取得
Debug.Print aElem.Attributes("href").Value

End If

next
next

投稿2018/07/15 22:09

編集2018/07/16 01:38
TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

oden3

2018/07/16 01:23

回答ありがとうございます。 開始タグの中の文字を取得したいときはどのようにすればよりしいでしょうか?
TanakaHiroaki

2018/07/16 01:39

実際に実行されたでしょうか? テキストとURLを取得するように回答を修正してみました。
oden3

2018/07/20 13:08

ありがとうございました 助かりました!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問