IEからデータをまとめて取得してExcelに貼り付けたい

IEからデータをまとめて取得してExcelに貼り付けたい 閲覧ありがとうございます。 現在VBAを用いてInternetExplorerのサイトから情報を取得して、Excelの指定した箇所に貼り付けるマクロを作っているのですが、思うように貼り付けることができずアドバイスいただきたいです。 コードを一部抜粋すると、 Dim objIE As InternetExplorer Set objIE = ieFind("サイト1") For Each obj In objIE.document.getElementsByTagName("div") If obj.getAttribute("className") = "site1" Then その後、String関数に obj.innerText の値を入れて貼り付ける仕組みなのですが サイトの形式が 物件 人物 住所 物件 人物 住所 メモ 物件 人物 住所 メモ メモ② 物件 人物 住所 ..etc のように連続で続いていますが、データによって項目数が変わる(同じテーブル内にデータは全て格納されている)関係でデータ毎に改行して綺麗にExcel貼り付けることがうまくできません。 この場合はどのように処理をすればよいのでしょうか。 よろしくお願いします。

Visual Basic | プログラミング22閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

改行文字を基準に文字列を分割して、 セルに書き込んでください。 下記のコードは、A列に入力するサンプルです。 For i = 0 To UBound(Split(obj.innerText, vbLf)) Range("A" & i + 1) = Split(obj.innerText, vbLf)(i) Next