|
>▼kawata さん:
>こんばんは。
>簡単なテストしかしていませんし、
>テスト対象のHTMLファイルがkawataさんが
>目的としているファイルと違うので何ともいえませんが・・。
>私のテストではHtmlファイルのクリックしたボタンのイベント内で
>Msgbox "ok"
>としたときを対象としてテストしました。
>
>まず、
>
>
>参照設定で
>「Microsoft HTML Object Library」をチェックしてください
>(これはされているかな?)
>
>次に変数「objDOC」は、Thisworkbookのモジュールに宣言します。
>Thisworkbookのモジュールに
>
訂正です。自分がテストした名前が残ってた
>'===============================================
Public WithEvents objDOC As HTMLDocument
>'=================================================
Private Sub objDOC_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がフォーカスを失ったときにイベントが発生します。
>
>うまくいくようだったら、フォーカスアウトが他のタイミングでも起きる場合の
>処理も考えなければなりませんが・・・。
>駄目元で試してみて下さい。
|
|