削除

「input type=file」で表示されるダイアログの制御方法削除

Message#1 2015年3月17日(火)09時52分
From: DSC_渡辺

サーバーにファイルをアップロードするWeb画面をHTML制御し、自動実行するシステムをEXCELVBAで作成しています。

web画面で参照ボタン（「input type=file」のボタン）をクリックしてファイルダイアログを表示することはできたのですが、そこで処理が止まり、手操作でボタンをクリックしない限り動かない状況となりました。

他の質問掲示板などで調べて以下のように作ってみましたが、うまくいきません。IEバージョンは10.0です。

①ファイル名のテキストボックスにフォーカスを移し、sendkeysでファイル名を入力する。
　objIE.Document.Forms("****").Item("****").Select
　Application.SendKeys "C:\Documents and Settings\****.xxx", True
　objIE.Document.Forms("****").Item("****").Click 'アップロードボタン押下

②ファイルを開くダイアログを表示させて、SendKeysでフィールドにファイルパスをセットする
　 objElement.Focus
WSオブジェクト.SendKeys ("{TAB}")
Sleep (1000)
WSオブジェクト.SendKeys (" ")
Sleep (1000)
WSオブジェクト.SendKeys (ファイルパス)
Sleep (1000)
WSオブジェクト.SendKeys ("{ENTER}")
Sleep (1000)
Set WSオブジェクト = Nothing

①は動作しませんでした。
②はファイルダイアログの表示までで止まってしまいました。

何か他に方法をご存知の方はいらっしゃいましたら教えてください。

上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。