Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


56068 / 76732 ←次へ | 前へ→

【25429】Re:IEのポップアップのボタン
発言  ichinose  - 05/5/31(火) 20:11 -

引用なし
パスワード
   ▼kawata さん:
こんばんは。
簡単なテストしかしていませんし、
テスト対象のHTMLファイルがkawataさんが
目的としているファイルと違うので何ともいえませんが・・。
私のテストではHtmlファイルのクリックしたボタンのイベント内で
Msgbox "ok"
としたときを対象としてテストしました。

まず、


参照設定で
「Microsoft HTML Object Library」をチェックしてください
(これはされているかな?)

次に変数「objDOC」は、Thisworkbookのモジュールに宣言します。
Thisworkbookのモジュールに

'===============================================
Public WithEvents idoc As HTMLDocument
'=================================================
Private Sub idoc_onfocusout()
  CreateObject("WScript.Shell").SendKeys "{ENTER}"
End Sub

>kawataです、よろしくお願いします。
>(Windows2000/Excel2000)
>
>連続投稿申し訳ございません。すいませんがよろしくお願いします。
>
>さきほどいただいたアドバイスで、

下のコードのどこかでobjDOCにSET命令を出していますよね?

 set thisworkbook.objDOC=・・・・・
として


>For i = 5 To e_row
>  mise = Sheets(1).Range("a" & i).Value
>  bumon = Sheets(1).Range("b" & i).Value
>  mise_kanzi = Sheets(1).Range("c" & i).Value
>  fax_no = Sheets(1).Range("d" & i).Value
  With thisworkbook.objDOC
>     .all("mise_cd").Value = mise
>     .all("bumon_cd").Value = bumon
>     .all("mise_name").Value = mise_kanzi
>     .all("faxno").Value = fax_no
>     .getElementsByName("add_data").Item(0).Click
>  End With
>
>’ここでポップアップのボタンを押したい・・・。
>
>Next
Documentがフォーカスを失ったときにイベントが発生します。

うまくいくようだったら、フォーカスアウトが他のタイミングでも起きる場合の
処理も考えなければなりませんが・・・。
駄目元で試してみて下さい。

0 hits

【25400】IEのポップアップのボタン kawata 05/5/30(月) 15:12 質問
【25429】Re:IEのポップアップのボタン ichinose 05/5/31(火) 20:11 発言
【25430】Re:IEのポップアップのボタン 訂正 ichinose 05/5/31(火) 20:18 発言
【25443】Re:IEのポップアップのボタン 訂正 kawata 05/6/1(水) 8:08 お礼
【25444】Re:IEのポップアップのボタン 訂正 kawata 05/6/1(水) 8:36 お礼

56068 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free