javascriptのclickボタンを押せないのはなぜ？ 削除
| Message#7 2016年4月27日(水)08時17分 From: azu |
| ＶＢＡからＩＥを操作して、社内イントラネット上の ＷｅｂサーバからExcelのデータをダウンロードしたいと 考えております。 このサイトの情報を参考にしてWebのトップページを開く ことができたのですが、次のページに移る所で -- オートメーションエラーです。 起動されたオブジェクトはクライアントから切断されました。 というエラーになってしまいます。 [環境] WebページはJavaScripを使用 IE8以降 WindowsServer 2008 R2 [該当のHTML(抜粋)] <ta> <th class="XXX" nowrap> ★ <input name="ABC1" type="btnPrc1" class="XXX" value="Ｅｘｃｅｌ形式" ・・・ onClick="this.form.bolMacroRun.value = 0;btnProcess_Click(this.form,'1');" id="btnPrcID1" 略・・・ title="Excel形式で保存"> ★★ <input type="button" name="BtnMacroStart" class="XXX]" value="マクロ実行" onClick="btnMacroStart_Click(this.form,'1');" id="btnMacroStartID1" 略・・・ title="登録済みマクロを実行します。 ・・・・ </th> </ta> 略 --- 【VBAのコード】 '************************************* ' Webページ呼び出し Sub Proc() Dim objIE As InternetExplorer Dim objIE2 As InternetExplorer Dim objTag As Object Call ieView(objIE, "http://XXX.YYY.ZZZ/〜/VVV.asp") For Each objTag In ？？？・・・点線部 ここで異常終了！ ? objIE.document.getElementByID("btnPrcID1") ? ? objIE.document.getElementsByName("btnPrcID1") ? ? objIE.document.getElementsByTagName("input")? If InStr(objTag.outerHTML, ？"Excel形式で保存"？) > 0 Then 'buttonボタンクリック objTag.Click 'IEが完全表示されるまで待機 ` Call ieCheck(objIE) 'ループ脱出 Exit For End If Next End Sub End proc '****************************** Sub ieView(objIE As InternetExplorer, _ urlName As String, _ Optional viewFlg As Boolean = True) 'IE(InternetExplorer)のオブジェクトを作成する Set objIE = CreateObject("InternetExplorer.Application") 'IE(InternetExplorer)を表示・非表示 objIE.Visible = viewFlg '指定したURLのページを表示する objIE.Navigate urlName 'IEが完全表示されるまで待機 ' Call ieCheck(objIE) ' Ｗｅｂページは表示される ' これを入れると異常終了するので一旦除外 End Sub [質問] Q1 HTMLの★または★★の箇所のボタンを押す操作をマクロで実現したいのですが マクロの？の部分でいÝ上終了し冒頭のオートメーションエラーになってしまいます getElementsBy？？？をいろいろ変えてみたのですがうまくいきません あと少しでできそうなのですがどうしたらいいかアドバアイスをお願いします 以上 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
