[VBA]Inputタグの中の値の返し方

前提・実現したいこと

すみません、かなりの初心者です。
VBAでとあるウェブページのテキストボックスの値をリストアップしたいのですが、
値がinputタグの中に格納されておりどう受け取ればよいのか分かりません。

発生している問題・エラーメッセージ

<div class="Particulars_div">
	<label for="lblName">NAME:</label>
	<input type="text" class="inputdisabled" name="txtShipName" size="52" maxlength="50" value="この値" disabled="">&nbsp;&nbsp;
	<label for="lblKindOfShip">Kind of Ship:</label>
	<input type="text" class="inputdisabled" name="txtSensyuKbn" size="12" maxlength="10" value="この値" disabled="">&nbsp;&nbsp;
	<label for="lblMMSI_No">MMSI No:</label>
	<input type="text" id="lblMMSI_No" name="txtMMSINo" size="12" maxlength="10" tabindex="1" style="color: #000000;" class="" value="この値" disabled="">&nbsp;&nbsp;
</div>

該当のソースコード


'divタグを一つずつを変数objにセット.
  For Each Obj In iedoc.getElementsByTagName("div")
 
   'labelタグを一つずつを変数objにセット.
    For Each Obj2 In Obj.getElementsByTagName("label")
       
       '行カウンターを１アップ.
      j = j + 1
      i = 0
      For Each Obj3 In Obj.getElementsByTagName("input")
        
        i = i + 1
        'タグのテキスト内容をセルにセット.
        Worksheets("Sheet3").Cells(j, i).Value = Obj3.outerHTML
        
 
      Next
    Next
  Next

試したこと

Inputタグの中身を全部吸い出せはしましたが、
Value=""のみをうまく抽出することはできませんか。

補足情報（FW/ツールのバージョンなど）

windows10/MSVBA

ここにより詳細な情報を記載してください。

dodox86

2019/10/09 14:14 編集

Inputタグを見つけ、outerHTML で吸い出せたのであればもう少しではないでしょうか。例えば文字列検索のInStr関数について調べてみてください。あと、提示するコードはVBAでもマークダウンで見易くしましょう。

dodox86

2019/10/09 14:21

既にgetElementsByTagNameなどで使われているDOMで、"Value"属性を狙ってそこだけ取ることもできると思います。いずれにせよ、もう少しだと思います。

no__mi

2019/10/09 14:28

コメントありがとうございます。ＩｎＳｔｒ関数について調べてみます。

no__mi

2019/10/09 14:35

すみません。マークダウンいたします。

行動規範の内容に同意します

回答1件

ベストアンサー

getAttributeで取得できないでしょうか。

VBA
1    For Each Obj3 In Obj.getElementsByTagName("input")
2      If Obj3.hasAttribute("value") Then
3        i = i + 1
4        'タグのテキスト内容をセルにセット.
5        Worksheets("Sheet3").Cells(j, i).Value = Obj3.getAttribute("value")
6      End If
7    Next

投稿2019/10/09 22:10