|
▼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がフォーカスを失ったときにイベントが発生します。
うまくいくようだったら、フォーカスアウトが他のタイミングでも起きる場合の
処理も考えなければなりませんが・・・。
駄目元で試してみて下さい。
|
|