レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

エクセルマクロVBA「Web連携」

エクセルマクロVBA「Web連携」DOM(Document Object Model)を使った解析_概要

ざきさんさんの投稿

(投稿ID: 4460) 添付ファイルのダウンロード権限がありません

質問です。
クラス名で取得してその中にある画像のURLを取得したいです。
なぜこの書き方で取得できないのかわかりません・・・。
助けてください。
zipファイルでも添付します。

Sub GetRequestSimple1()
    Dim url As String
    url = "https://page.auctions.yahoo.co.jp/jp/auction/q263905236?notice=mdrs"

    Dim xh As New WinHttp.WinHttpRequest
    xh.Open "GET", url, False
    xh.send
    
    Dim sCode As String
    sCode = xh.Status
    If sCode <> 200 Then
        MsgBox "リクエストに失敗しました" & vbNewLine & sCode
    End If
    
    'htmlをDOMとして取得する。そのための変数を宣言。
    Dim oHTml As New MSHTML.HTMLDocument
    oHTml.body.innerHTML = xh.ResponseText 'htmlボディーをDOMとして取得
    
'//--- ここで躓いてます・・・。 -----//
    Debug.Print oHTml.getElementsByClassName("ProductImage__inner")(0).outerHTML
    
End Sub

2019/04/12 22:36

ざきさんさんのコメント

(コメントID: 6146)

下記の続きです。
無理矢理な感じ満載ですが、回答待ってる間に一応できました。
どうでしょうか？？もっとスマートな書き方ありますかね？

Sub test()
    Dim url As String
    url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"

    Dim xh As New WinHttp.WinHttpRequest
    xh.Open "GET", url, False
    xh.send
    
    Dim sCode As String
    sCode = xh.Status
    If sCode <> 200 Then
        MsgBox "リクエストに失敗しました" & vbNewLine & sCode
    End If
    
    'htmlをDOMとして取得する。そのための変数を宣言。
    Dim oHTml As New MSHTML.HTMLDocument
    oHTml.body.innerHTML = xh.ResponseText 'htmlボディーをDOMとして取得
    
    Dim st, moto As String
    Dim pElem As MSHTML.HTMLParaElement
   
    For Each pElem In oHTml.getElementsByClassName("ProductImage__inner")
        st = pElem.innerHTML
        Debug.Print Mid(st, InStr(st, "https"), InStr(Mid(st, InStr(st, "https")), " wi") - 2)
    Next
End Sub

2019/04/13 01:52

小川慶一さんのコメント

(コメントID: 6147)

ざきさんさん:

楽しまれていますね (^^*

「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。

Sub test_ogawa()
    Dim url As String
    url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"
 
    Dim xh As New WinHttp.WinHttpRequest
    xh.Open "GET", url, False
    xh.send

    Dim sCode As String
    sCode = xh.Status
    If sCode <> 200 Then
        MsgBox "リクエストに失敗しました" & vbNewLine & sCode
    End If

    Dim oHTml As New MSHTML.HTMLDocument
    oHTml.body.innerHTML = xh.ResponseText

    Dim div As MSHTML.HTMLDivElement
    For Each div In oHTml.getElementsByClassName("ProductImage__inner")
        Debug.Print div.getElementsByTagName("img")(0).src '←これはまあ普通
'        Debug.Print div.ChildNodes(0).src '←こちらのほうがさらにシンプル
    Next
End Sub

> 下記の続きです。
> 無理矢理な感じ満載ですが、回答待ってる間に一応できました。
> どうでしょうか？？もっとスマートな書き方ありますかね？
>

Sub test()
>     Dim url As String
>     url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"
> 
>     Dim xh As New WinHttp.WinHttpRequest
>     xh.Open "GET", url, False
>     xh.send
>     
>     Dim sCode As String
>     sCode = xh.Status
>     If sCode <> 200 Then
>         MsgBox "リクエストに失敗しました" & vbNewLine & sCode
>     End If
>     
>     'htmlをDOMとして取得する。そのための変数を宣言。
>     Dim oHTml As New MSHTML.HTMLDocument
>     oHTml.body.innerHTML = xh.ResponseText 'htmlボディーをDOMとして取得
>     
>     Dim st, moto As String
>     Dim pElem As MSHTML.HTMLParaElement
>    
>     For Each pElem In oHTml.getElementsByClassName("ProductImage__inner")
>         st = pElem.innerHTML
>         Debug.Print Mid(st, InStr(st, "https"), InStr(Mid(st, InStr(st, "https")), " wi") - 2)
>     Next
> End Sub

>
>

2019/04/13 02:10

ざきさんさんのコメント

(コメントID: 6149) 添付ファイルのダウンロード権限がありません

小川慶一さん:
サンプルありがとうございました。
家に帰って色々カスタマイズしようとしたら、xh.sendのところで「サーバーに接続できませんでした」というエラーメッセージが出るようになりました。
違うＵＲＬでxh.sendすると正常に動きます。
なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
添付ファイルにて詳細を送ります。

> ざきさんさん:
>
> 楽しまれていますね (^^*
>
> 「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。

2019/04/13 05:07

小川慶一さんのコメント

(コメントID: 6150)

ざきさんさん:

> 違うＵＲＬでxh.sendすると正常に動きます。
> なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
> 添付ファイルにて詳細を送ります。

ちょっと分からないです。
そのエラーメッセージが出るケースはいろいろ考えられますし。

とりあえず報告すると、今いただいたファイルで編集なしでマクロを実行してみたところ、無事に動きました。

僕が示した内容のままでテストするとどうでしょうか。やはり動かないでしょうか。

> 小川慶一さん:
> サンプルありがとうございました。
> 家に帰って色々カスタマイズしようとしたら、xh.sendのところで「サーバーに接続できませんでした」というエラーメッセージが出るようになりました。
> 違うＵＲＬでxh.sendすると正常に動きます。
> なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
> 添付ファイルにて詳細を送ります。
>
>
> > ざきさんさん:
> >
> > 楽しまれていますね (^^*
> >
> > 「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。
>

2019/04/14 00:02

小川慶一さんのコメント

(コメントID: 6151)

ざきさんさん:

追記です。
僕が昨日お送りしたマクロも動作しました。

いただいたマクロでURLを指定する部分を以下に書き換えてもやはり動作しました。
url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"

よろしくお願いいたします。

> 小川慶一さん:
> サンプルありがとうございました。
> 家に帰って色々カスタマイズしようとしたら、xh.sendのところで「サーバーに接続できませんでした」というエラーメッセージが出るようになりました。
> 違うＵＲＬでxh.sendすると正常に動きます。
> なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
> 添付ファイルにて詳細を送ります。
>
>
> > ざきさんさん:
> >
> > 楽しまれていますね (^^*
> >
> > 「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。
>

2019/04/14 00:04

受講生さんのコメント

(コメントID: 6152)

小川慶一さん:
小川先生のかいたマクロでもヤフオクのＵＲＬだと、xh.sendのところでエラーが出ます。
しかし、ヤフオク以外のＵＲＬにすると（この質問ページ）xh.sendは正常に通ります。ちなみにwinHTTP 5.1を使わずに、ieを使ってヤフオクを実行してみたら正常に動きました。
先生のパソコンはヤフオクにアクセスしても正常に動くみたいなので、自分の家のパソコンだけ、winHTTP5.1でヤフオクのアクセスができないみたいです。
一度、会社のパソコンで実験してみます。
当分家のパソコンでは、ieを使って使用します。
ありがとうございました。

> ざきさんさん:
>
> 追記です。
> 僕が昨日お送りしたマクロも動作しました。
>
> いただいたマクロでURLを指定する部分を以下に書き換えてもやはり動作しました。
> url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"
>
> よろしくお願いいたします。
>
>
>
> > 小川慶一さん:
> > サンプルありがとうございました。
> > 家に帰って色々カスタマイズしようとしたら、xh.sendのところで「サーバーに接続できませんでした」というエラーメッセージが出るようになりました。
> > 違うＵＲＬでxh.sendすると正常に動きます。
> > なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
> > 添付ファイルにて詳細を送ります。
> >
> >
> > > ざきさんさん:
> > >
> > > 楽しまれていますね (^^*
> > >
> > > 「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。
> >

2019/04/14 10:29

小川慶一さんのコメント

(コメントID: 6154)

受講生さん:

アクセス拒否されているのかもしれませんね。
僕も、Amazonのページ解析するスクリプトの動作確認していて拒絶されることはあります。

長期的に継続することあまりありませんが。

>ちなみにwinHTTP 5.1を使わずに、ieを使ってヤフオクを実行してみたら正常に動きました。

経由するプログラムが違うから別物と思われているのでしょう。
例えて言えば、Firefoxからのアクセスは拒絶されたが、IEでの接続は（たとえ同じipアドレスからのアクセスであっても）サーバ側に別物とみなされていて問題なくコンテンツを取得できるとか、そんなところかと。

> 小川慶一さん:
> 小川先生のかいたマクロでもヤフオクのＵＲＬだと、xh.sendのところでエラーが出ます。
> しかし、ヤフオク以外のＵＲＬにすると（この質問ページ）xh.sendは正常に通ります。ちなみにwinHTTP 5.1を使わずに、ieを使ってヤフオクを実行してみたら正常に動きました。
> 先生のパソコンはヤフオクにアクセスしても正常に動くみたいなので、自分の家のパソコンだけ、winHTTP5.1でヤフオクのアクセスができないみたいです。
> 一度、会社のパソコンで実験してみます。
> 当分家のパソコンでは、ieを使って使用します。
> ありがとうございました。
>
>
> > ざきさんさん:
> >
> > 追記です。
> > 僕が昨日お送りしたマクロも動作しました。
> >
> > いただいたマクロでURLを指定する部分を以下に書き換えてもやはり動作しました。
> > url = "https://page.auctions.yahoo.co.jp/jp/auction/e349730483"
> >
> > よろしくお願いいたします。
> >
> >
> >
> > > 小川慶一さん:
> > > サンプルありがとうございました。
> > > 家に帰って色々カスタマイズしようとしたら、xh.sendのところで「サーバーに接続できませんでした」というエラーメッセージが出るようになりました。
> > > 違うＵＲＬでxh.sendすると正常に動きます。
> > > なぜでしょうか？？ヤフオクが僕を拒否してるのでしょうか？
> > > 添付ファイルにて詳細を送ります。
> > >
> > >
> > > > ざきさんさん:
> > > >
> > > > 楽しまれていますね (^^*
> > > >
> > > > 「シンプルに」ということでしたら、これだけ規則性の高いコンテンツなら、以下のサンプルの形までスッキリできるかと思います。
> > >

2019/04/15 18:53

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声をもっと見る

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ