もし<a>タグがあれば、、という記述
昨日以降(0) ２日前以降(0) ３日前以降(0) ４日前以降(0) ５日前以降(0)
| Message#1 2015年7月27日(月)13時03分 From: むらーい | 返事 削除 変更 |
| お世話になります。初めて投稿させていただきます。 IEより５０行７列からなるテーブルをシートに転記し、その横に ３列目(td(2))のアンカーリンクを添えて転記したいと考えています。 しかし、３列目にはリンクがあるものとないものが存在します。 アンカーリンクがあった場合は、転記するといったコードを書きたいのですが、 うまく記述できません。 下記コードの「←ココ」という部分の最適な記述法をご教授頂けると大変助かります。 よろしくお願い申し上げます。 Set coll = objIE.Document.getElementsByTagName("tbody")(0) y = Cells(Rows.Count, 2).End(xlUp).row For Each TableItem In coll.all TableTagName = TableItem.tagName If TableTagName = "TR" Then y = y + 1 x = 2 End If If TableTagName = "TD" Or TableTagName = "TH" Then ws.Cells(y, x) = TableItem.innerText ws.Cells(y, x + 9) = TableItem.innerHTML ←ココ x = x + 1 End If Next |
昨日以降 ２日前以降 ３日前以降 ４日前以降 ５日前以降
