Q&A
今現在のコードをご提示ください。また操作しようとしているhtmlもこれだけでは判断しづらい部分があります。もう少し全体わかるように提示いただけませんか？コードを提示する場合はマークダウンのcode機能をご利用ください。
前提・実現したいこと
VBAを利用してサイトのダウンロードフォームからファイルをダウンロードしたいです。
発生している問題・エラーメッセージ
HTML
1<input class="ui-button ui-widget ui-state-default ui-corner-all" id="button1" 2role="button" aria-disabled="false" onclick="return callOutPut();" type="button" value="ダウンロード">
このダウンロードボタンを押したいのです。
ログイン画面のログインボタンと同様に試したのですが
上手くいきません。
HTML
1<button tabindex="3" class="ui-button ui-widget ui-state-default ui-corner-all ui-button-text-only" 2role="button" aria-disabled="false" type="submit"><span class="ui-button-text">ログイン</span></button>
これに対して
VBA
1 For Each obj In ieDoc.getElementsByTagName("span") 2 If obj.innerText = "ログイン" Then 3 obj.Click 4 Exit For 5 End If 6 Next
このようにログインしました。
同様にダウンロードしたく試行錯誤したのですが
上手くいきませんでした。
Excel2016を使用しています。
よろしくお願いします。
回答2件
0
idがついているので
別にfor eachでまわさなくても
ieDoc.GetElementById("button1").click
ってやったらいいように思います。私も初心者なのでご質問の意図に沿ってなかったらごめんなさい。
投稿2018/12/19 02:22
総合スコア228
0
ベストアンサー
spanはクリックする要素としては不適当なのでbuttonにしては？
投稿2018/11/19 06:06
総合スコア80850
```VBA
For Each obj In ieDoc.getElementsByTagName("buttun")
If obj.innerText = "ダウンロード" Then
obj.Click
Exit For
End If
Next
```
試してみたのですがページが移動しませんでした。
buttonのinnerTextは「ダウンロード」ではないですよね。
そのif文通ってるかデバッグしてみましたか？
申し訳ございません。
innerTextがどれか教えてもらうことは可能ですか。
この場合、innerTextを取得するのは不適当です。
本来はclassとかidとかを取得して確認します。ひとまず「type」を取得して「submit」かどうかで判定しては？
というかデバッグはしましたか？
ブレイクポイントを設置すればどのような情報が取得されているか確認できるはずです。
すいません。プログラミング初心者のなので、とりあえず形になるものをネットを見ながらVBAで使って作っている段階です。デバックも調べたのですがよくわかりませんでした。
今回は形になればそれでいいので、mst10806さんの考えるコードを教えていただくことはできませんでしょうか。
よろしくお願いします。
ひとまず「vba ブレイクポイント」で調べてください。
またコードを書くのは構いませんが少し提示の情報が少なすぎます。
htmlの取得部分ですとかもう少し全体がわかるコードを記載してください。あとhtmlはご自身で修正可能なものかどうかとか。
※個人的な事情を言うと外出先でこのコメントをしているため、お急ぎでしたら別角度からアプローチされた方が良いかもしれません
ただ、やり方としては「ボタンをクリック」なのでキーワードにして調べてやってみてください。
あなたの回答
tips
プレビュー
