DOBON.NETプログラミング道掲示板
(現在 過去ログ1 を表示中)
HOME
HELP
新規作成
新着記事
トピック表示
発言ランク
ファイル一覧
検索
過去ログ
[
親記事をトピックトップへ
]
このトピックに書きこむ
過去ログには書き込み不可
[ トピック内全2記事(1-2 表示) ] <<
0
>>
■33262
/ inTopicNo.1)
Re[1]: 【VBS】SendKeysに関する質問
▼
■
□投稿者/ LZ
一般人(1回)-(2016/02/28(Sun) 15:53:55)
"Webページ上の「参照」ボタンを押す"をclick()で開くと、何故かコードが止まるようです。
IE11とC#で同じような状態になり困っていましたが、下記URLのようにSendKeysでダイアログを開くと、SendKeysでファイル名の指定が可能でした。
http://language-and-engineering.hatenablog.jp/entry/20100909/p1
VBAでも同様かもしれません。
引用返信
削除キー/
編集
削除
■33170
/ inTopicNo.2)
【VBS】SendKeysに関する質問
▲
▼
■
□投稿者/ y_suzuki
一般人(1回)-(2015/11/02(Mon) 21:11:09)
環境/言語:[Webの環境はIE10です。]
分類:[その他]
VBAからVBSのスクリプトを呼び出して、CSVファイルをアップロードする操作を自動化しようとしている者です。Webページ上の「参照」ボタンを押すと、「アップロードするファイルの選択」画面が立ち上がり、ファイルのパス名とファイル名を指定して、「開く」ボタンを押すとファイル選択画面を閉じる、ということを想定しています。
VBSのスクリプトで次のようなスクリプトを書いて実行してみましたが、「アップロードするファイルの選択」画面が立ち上がるところまでは進むものの、その後ファイル名が全く入力されない状態となってしまいます。
【スクリプトの内容】
Set objShell = WScript.CreateObject("WScript.Shell")
(中略)
objShell.AppActivate "アップロードするファイルの選択"
WScript.Sleep 1000
objShell.SendKeys "ファイルのパス名を指定"
WScript.Sleep 500
objShell.SendKeys("{ENTER}")
WScript.Sleep 500
objShell.SendKeys "ファイル名"
WScript.Sleep 100
objShell.SendKeys("{tab}")
WScript.Sleep 100
objShell.SendKeys("{tab}")
WScript.Sleep 100
objShell.SendKeys("{ENTER}")
メモ帳などに書き出すのであればSendKeysが問題なく動作するのですが、ファイル選択画面だとどうしてもSendKeysを受け付けることができず、原因不明のまま対策だできていない状況です。
長文となりましたが、本件に関する解決方法についてお分かりの方がいましたら、アドバイスをお願い致します。
以上
引用返信
削除キー/
編集
削除
トピック内ページ移動 / <<
0
>>
Mode/
通常管理
表示許可
Pass/
HOME
HELP
新規作成
新着記事
トピック表示
発言ランク
ファイル一覧
検索
過去ログ
-
Child Tree
-