もし<a>タグがあれば、、という記述
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
Message#2 2015年7月29日(水)02時37分 From: VBAマスター | 返事 削除 変更 |
すいません、ざっくりとしかみてないのですが、「下記コードの「←ココ」という部分の最適な記述法をご教授頂けると大変助かります。」というところだけ回答すると以下はいかがでしょうか? If TableTagName = "TD" Or TableTagName = "TH" Then ws.Cells(y, x) = TableItem.innerText If inStr(TableItem.innerHTML,"href") > 0 Then ws.Cells(y, x + 9) = TableItem.innerHTML ←ココ End If x = x + 1 End If Next |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降