もし<a>タグがあれば、、という記述

最近の書き込み件数：今日 0件、昨日 0件
未読分：5件

Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田伸矢, 植木悠二, 上田寛

IEのデータ収集＆自動操作のプログラミング本はこの1冊だけ！IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#5 2015年8月12日(水)22時34分
From: むらーい

返事削除変更

すみません。書く場所を間違えてしまいました。
新規スレッドに書き直します。

Message#4 2015年8月12日(水)22時32分
From: むらーい

返事削除変更

サブルーチン ieviewの引数について
Call ieView(objIE,URLname)

ループの中でURLを随時変更させるため、
URLname部分を自分のプロシージャ内で管理したいのですが、
自分で設定した変数を入れることは出来ないのでしょうか？

Dim URL as String
Dim strA as String
strA = AAA
URL = "www.yahoo.co.jp/" & strA & "/"
Call ieView(objIE,URL) ←エラーとなります

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

Message#3 2015年7月31日(金)10時30分
From: むらーい

返事削除変更

VBAマスターのメッセージ(#2)への返事

ありがとうございます。INSTRの使い方はまだ慣れておりませんが、非常に便利ですね。
また少し前進することができました！

最終的に下記コードで思い通りにできました。（aタグを取得せず直接リンクを取得しようとしていたため、多少時間が掛かりました（汗））
If inStr(TableItem.innerHTML,"href") > 0 Then
ws.Cells(y, x + 9) = TableItem.getElementsByTagName("A")(0).href　

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

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