###前提・実現したいこと
Webページにこんな感じの入力フォームがあって
HTML
1 <div> 2 <table> 3 <tr> 4 <td> 5 <input type="text" name="form1" id="form1"/> 6 </td> 7 </tr> 8 <tr> 9 <td> 10 <input type="text" name="form2" id="form2"/> 11 </td> 12 </tr> 13 <tr> 14 <td> 15 <input type="text" name="form3" id="form3"/> 16 </td> 17 </tr> 18 </table> 19 </div> 20 <div>本文</div>
Excelにメアドの一覧があります。
このメアドの一覧をWebに自動で転記したいです。
###発生している問題・エラーメッセージ
普通だったら
VBA
1 Dim buf As String 2 Dim objIE As InternetExplorer 3 Const URL = "http://入力フォームがあるページのURL" 4 Set objIE = CreateObject("InternetExplorer.Application") 5 objIE.Visible = True 'IE表示 6 7 objIE.Navigate URL 'IE開く 8 9 While objIE.Busy = True Or objIE.readyState <> 4 10 DoEvents 11 Wend 12 13 objIE.document.getElementById("form1").Value = Range("A1").Value 14 objIE.document.getElementById("form2").Value = Range("A2").Value 15 objIE.document.getElementById("form3").Value = Range("A3").Value
こんな感じで…
でも今回の場合は
目的のページは、URL直打ちでは開けないページなのです。
つまり
objIE.Navigate URL
が使えないのです。
そのWebページをこちらから編集するとかすることはできません。(他所のページなので)
なので
当該のページを先に手で開いておいて
そこをめがけてフォームに入力する
ということをできたらと思っています。
ところが
「開いてあるページの…」
というのをVBAで指定する方法がわからなくて困っています。
###補足情報(言語/FW/ツール等のバージョンなど)
IE11でWin7です。
他のブラウザは使ってはいけない決まりになっているので使えません…。
あとPowerShellも使えません。
VBAにこだわっているわけではなく
入力データをテキストか何かにしてVBScriptとか
なんかもっと別の良い方法があれば教えてください。
よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/07/03 04:51