Excel　マクロについて

Question

インターネットエクスプローラーを開いて、
あるページに自動ログインし、
（仮）https://www.○○○○○○.com/test/index.html 上の、




に、
エクセルの
ワークブック名　Book1 の
シート名 Sheet1
の
D1の数値をに、
E1の数値をに、
F1の数値をに、
自動入力されるマクロを作りたいです。

数値と書きましたが、
実際は、他のCSVデータから　=他のCSVデータ.csv!G1 といった形で、
D１、E１、F１は表示させていたます。

input 内でname属性がすべて異なるため、
GetElementsByName　を使用するのかと思い、
試行錯誤しましたが、うまくいきません。
※vba 初心者ので、書き方を理解しきれていません。

自動ログインし、
https://www.○○○○○○.com/test/index.html
を自動表示されるところまではできたのですが、
どのように記述すればよいでしょうか。

Accepted Answer

ECマスターズの田中です。

getElementsByName では、
該当要素の配列を取得できるので、
配列の中身が１つ以上あったら（つまり対象が見つかったら）
１つ目の要素に値を代入する、という処理をご記載いただければ結構です。

たとえば、

If ie.document.getElementsByName("test1").length >= 1 Then
ie.document.getElementsByName("test1")(0).value = Sheet1.Range("D1").value
End If

という書き方になります。
このままご利用される際は、ie、Sheet1など、実際の環境に併せてご変更ください。

なお、IEにてページを移動した際は、
次のページが完全に読み込まれるのを待ってから、
ページ内の処理を行う必要がございます。
手動で処理を書くと若干複雑なのですが、

【チュートリアル】VBAでIE自動化ツールを作る(その２)　IEで指定したページを表示
https://note.com/kozu31/n/n1ee8ecc7ee4d

のような、頻繁に利用する処理をSubにまとめたモジュールを利用することで
コードがシンプルにわかりやすくなりますので、
導入をご検討いただければ幸いです。

Answer

ECマスターズの田中です。

内容を確認の上、改めてご返信いたしますので
今しばらくお待ちいただきますようお願いします。

Answer

ありがとうございます！
解決しました。求めていたマクロにたどり着けそうです！

おかげさまで、かなりの業務効率になります。
ありがとうございました。

Excel マクロについて

Excel　マクロについて