Excel VBA質問箱 IV

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

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


9704 / 13646 ツリー ←次へ | 前へ→

【25808】Sendkeys.sndWait の記述 新人 05/6/15(水) 13:11 質問[未読]
【25849】Re:Sendkeys.sndWait の記述 Jaka 05/6/16(木) 15:44 発言[未読]
【25854】Re:Sendkeys.sndWait の記述 新人 05/6/16(木) 17:15 質問[未読]
【25897】Re:Sendkeys.sndWait の記述 Jaka 05/6/17(金) 14:38 発言[未読]
【25906】Re:Sendkeys.sndWait の記述 新人 05/6/17(金) 17:36 お礼[未読]

【25808】Sendkeys.sndWait の記述
質問  新人  - 05/6/15(水) 13:11 -

引用なし
パスワード
    BVA プロシージャー に
 sendkeys.sendWait("{Enter}")
記述すると 引数は省略できません のエラーが出ます
どのように記述すれば宜しいのでしょう
教えてくださいお願いします。

【25849】Re:Sendkeys.sndWait の記述
発言  Jaka  - 05/6/16(木) 15:44 -

引用なし
パスワード
   こんにちは。
これだけだとダメなんですか?

Application.SendKeys ("{Enter}")  ', True

【25854】Re:Sendkeys.sndWait の記述
質問  新人  - 05/6/16(木) 17:15 -

引用なし
パスワード
   今日は,JAKAさん 有難う御座います

>こんにちは。
>これだけだとダメなんですか?
>
>Application.SendKeys ("{Enter}")  ', True


HTMLでJavascript function Kakunin()
に confirm("よろしい")があり objInput.Clickでは
MsgBoxが画面に出てそこで止ります。
このMsgBoxをsendkeys キーで「OK」を自動で押したいと
思い悩んでいる件です sendkeys ("{Enter}")  ', True
ではやって見ましたが動いてくれません、その為他の
sendkeys ではと思って投稿したしだいです。
他に方法があれば教えて下さい。


For Each objInput In objIE.document.getElementsByTagname("INPUT")
  If (objInput.Type = "button") And (objInput.Value = "確認") Then
   sendkeys ("{Enter}")  ', True
   objInput.Click           MsgBoxの「OK」は押されない

   Exit For
  End If
Next objInput

【25897】Re:Sendkeys.sndWait の記述
発言  Jaka  - 05/6/17(金) 14:38 -

引用なし
パスワード
   JavaもJavascriptもやった事ありません。
違いすらわかりませんから、記載されたコードが何をやっているのか解りません。
とりあえず、VBAに貼り付けてみたけど実行エラーで動きませんでした。

これでダメなら、解りません。
CreateObject("wscript.shell").SendKeys "{ENTER}"

【25906】Re:Sendkeys.sndWait の記述
お礼  新人  - 05/6/17(金) 17:36 -

引用なし
パスワード
   今晩は、Jaka さん

>JavaもJavascriptもやった事ありません。
>違いすらわかりませんから、記載されたコードが何をやっているのか解りません。
>とりあえず、VBAに貼り付けてみたけど実行エラーで動きませんでした。
>
>これでダメなら、解りません。
>CreateObject("wscript.shell").SendKeys "{ENTER}"

申し訳ありません だめでした.....

ご親切に有難う御座いました。
これで終わりとさして頂きます

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