2017-11-20 7 views
0

私はウェブサイトをナビゲートして選択することができましたが、今ではその情報を自分のシートに刻み込む必要があります。次のようにHTMLがある: -ウェブサイトからの情報の盗用方法

<div id="VisibleVehicles" class="filtered-vehicles"> 

               <div class="vehicle box-shadow-dark-2" data-id="86" 
                data-vehiclegroup="T" 
                data-vehicletitle="KIA PICANTO" 
                data-vehicleluggage="1" 
                data-vehicledoors="5" 
                data-vehiclepassengers="4" 
                data-vehicletransmission="M" 
                data-vehcileaircon="&#10004;" 
                data-standardwaiverratefee="4032.00" 
                data-superwaiverratefee="5216.00" 
                data-carsize="1" 
                data-transmission="manual" 
                data-vehicleaccriscode="MDMR" 
                data-norder="1"> 
                <div class="vehicle-image"> 
                 <h4> 
                  Group <text class="vehicle-group">T</text><br /> 
                  <text class="vehicle-title">KIA PICANTO 

私は必要な情報がvehiclegroup、vehicletitle、standardwaiverratefee、superwaiverratefeeです。私はあなたが.getElementsByClassName("filtered - vehicles")を使用することを前提としていますが、私が必要とする情報を得るためにどのように反復するのか分かりません。

+1

期待される出力は何ですか? – SIM

+0

@Shahin T、Kia Picanto、4032.00、5216.00 – Anthony

+0

もう1つのことを知っておきましょう:この 'class =" vehicle box-shadow-dark-2 "'クラス名は '-dark-2'、' -dark -3'など。 – SIM

答えて

2

これを実行して、それぞれの列に何が印刷されるか教えてください。その本当のウェブで遊ぶ機会がありませんでした。これは仮説である:

Dim post As Object 
For Each post In html.getElementsByClassName("filtered-vehicles")(0).getElementsByClassName("vehicle box-shadow-dark-2") 
    R = R + 1: Cells(R, 1) = post.getAttribute("data-vehiclegroup") 
    Cells(R, 2) = post.getAttribute("data-vehicletitle") 
    Cells(R, 3) = post.getAttribute("data-standardwaiverratefee") 
    Cells(R, 4) = post.getAttribute("superwaiverratefee") 
Next post 

ところで、上記のコードは、IEのためのないXMLHTTP要求で使用することを意味します。

+0

セル(R、1)をセル(R、1)。値に変更していただきありがとうございます。ヘルプは非常に感謝します。 – Anthony

関連する問題