VBA+SeleniumBasicでのchromから一部のテーブルデータ取得ができません

Question

VBA+SeleniumBasic2.0.9.0にてchromを利用したデータ取得のプログラムを作成しています。
Web上のテーブルデータのうち、テキストボックスのデータのみが取得できずに困っています。
初めてseleniumを使っているので、web等参照しながら試行錯誤しているのですが、
有識者の方、ご教授いただけますでしょうか。よろしくお願いします。

###テーブルデータの取得コード
Set tbl = Driver.FindElementByXPath("//*[@id='bbbbb']").AsTable
tbl.ToExcel rSheet.Cells(3, 2)

→下記のようなHTML個所以外は取得できています。

上記のコードで取得できない部分のHTML

<input disabled="disabled" type="text" name="price[aaaa_aa_aa]" value="" size="5">

取得できない部分のxpath

//*[@id="bbbbb"]/tbody/tr[1]/td[123]/input

取得できない個所のデータを単独で取得しようと思いましたが、name="price[aaaa_aa_aa]"の[aaaa_aa_aa]部分が変動した値になるため、XPATH以外での指定ができません。

VBAでは、get_textなどが利用できないのですが、上記のようなHTML個所の値を取得するための記述方法を教えていただけますでしょうか。

Answer 1

これで値を取れませんか？

Dim elem_input As WebElement
Dim input_value As String

Set elem_input = driver.FindElementByXPath("//*[@id='bbbbb']/tbody/tr[1]/td[123]/input")
input_value = elem_input.Attribute("value")

Debug.Print input_value

Comments

[FromMZ1500]

ではなくて、取得したinputのvalueを、「しかるべきセルに埋め込むには？」というご質問、かな？

[SakuraBeans]

ご回答ありがとうございます。

取得した表に欠落しているinput　valueの値をいれこんでExcelに落とし込みたいです。
HTMLは以下のようなものとなります。（実際は、縦横共にもっと大きな表です）
＝＝＝＝＝
<table border="0" cellspacing="0" cellpadding="5" class="t_line" id="contents">
<tbody><tr>
<td class="t_list_name" align="center">商品名</td>
<td class="t_list_name" align="center">価格<br>（税抜）</td>
</tr>
<tr>
<td nowrap="">あいうえお</td>
<td nowrap="" align="right" class="">
<input disabled="disabled" type="text" name="campaign_price[aaaaa_aa_aa]" value="1000" size="6">
</td>
</tr>
</tbody>
</table>
＝＝＝＝＝

Driver.FindElementByXPath("//*[@id='contents']").AsTable
tsheet.Rows("1:10").ClearContents
tbl.ToExcel tsheet.Cells(1, 1)

でテキストデータはとれるのですが、テキストボックスの値のみがとれない表となってしまっています。。
そもそも、1つづつの表のデータをExcelの各セルに書き込みできればいいのですが、
テーブルが入れ子になっており、重複したテーブル名になっていることもあり上手くいかないです。。

今回教えていただいた内容で、試してみたいと思います。
ありがとうございます。

[FromMZ1500]

こちらで試したところ、たしかに bl.ToExcel tsheet.Cells(1, 1) で input の値だけ欠けましたが、
ByXPath("//*[@id='bbbbb']/tbody/tr[1]/td[123]/input")
.Attribute("value")
で取れましたから、たぶん大丈夫でしょう。
（上の xail2222さんが当初から提示されていましたが）

[SakuraBeans]

ありがとうございました。
正常に動作できました！

input_value = elem_input.Attribute("value")

の部分が、不足していたのですね。
インプットボックスの値の取り方、勉強になりました。
大変助かりました。

Answer 2

HTMLの構造がよくわからないので何とも言えないですが

余り正確ではないですがある程度なら以下のような感じで取れると思うのですが
如何でしょうか。

    Dim element As WebElement
    Set element = Driver.FindElementByXPath("//*[@id='bbbbb']//input[contains(@name, 'price[')]")
    Debug.Print element.Attribute("value")

って、これじゃどのセルに入ってるかがわからないのか・・・
一つずつTableの行・列を探っていく方法でやれば場所は特定は出来るかと思います。

というところですが、実際のHTMLとどういう風に使いたいのかがわからないので
どうするのがいいか正確にはわからないです。すみません。

Comments

[SakuraBeans]

ご回答いただいたのに、ご返信おそくすみません。
また、ありがとうございます。

seleniumをよく理解できていないのですが、
＞Set element = Driver.FindElementByXPath("//*[@id='bbbbb']//input[contains(@name, 'price[')]")
＞Debug.Print element.Attribute("value")
のうちの
　・contains
　・value
がなにを指しているのかをご教授いただけますでしょうか。
よろしくお願いいたします。

[SakuraBeans]

ご教授いただきありがとうございました。
解決できました！
助かりました！