Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

56097 / 76735

←次へ　｜　前へ→


	【25400】IEのポップアップのボタン

kawata - 05/5/30(月) 15:12 -


	引用なし

	パスワード

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
なども試してみました、
どうすれば、このポップアップのボタンを押せるようになるでしょうか？。
よろしくお願いします。

0 hits

▼

【25400】IEのポップアップのボタン kawata 05/5/30(月) 15:12

≪