|
kawataです、よろしくお願いします。
(Windows2000/Excel2000)
連続投稿申し訳ございません。すいませんがよろしくお願いします。
さきほどいただいたアドバイスで、
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 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
で、送信するところまでたどり着きました。
このあと、ポップアップ(メッセージボックス?)が現れて
Yes/Cancelを聞いてきます。
で、
Appactivate "Microsoft Internet Explorer"
Sendkeys "{ENTER}",true
を試しましたが、有効な動作をしてくれません。
※ポップアップのCaptionは"Microsoft Internet Explorer"です。
またいろいろ調べていて、APIの
myHWnd = GetLastActivePopup(objIE.hWnd)
PostMessage myHWnd, WM_COMMAND, IDOK, 0
なども試してみました、
どうすれば、このポップアップのボタンを押せるようになるでしょうか?。
よろしくお願いします。
|
|