ファイル選択ダイアログが開かない

Question

EXCEL VBAでホームページ（IE）にファイルをアップさせる記述を書いています。
ファイル選択のダイアログのところに直接フルパスでアップするファイル名を入力させたいと考えたいます。
objIE.document.getElementsByName("csv")(0).Click
でクリックできファイル選択ダイアログボックスが開くのですが、その後にVBAに制御が戻って来ないため、色々調べていたところ「VBA IE制御でファイル選択ダイアログにファイルパス入力（62945）」を見つけ、window.setTimeoutを使いVBAに戻ったところで、SendKeys "^v", Trueを実行すればできると分かり、下記のように記述しましたが、かんじんのファイル選択ダイアログボックスが開きません。
window.setTimeoutを使う前のobjIE.document.getElementsByName("csv")(0).Click
では確実にファイル選択ダイアログボックスが開いたので、記述がどこか間違えているのでしょうか？
window.setTimeoutを使う場合の方法を教えていただきたく、よろしくお願いします。

＜関連場所のスクリプト記述＞
objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByName('csv')(0).Click();"",10);"
'1秒待機
Sleep (1000)
SendKeys "^v", True

Answer 1

私もweb系には強くないのに今回参考にされている質問で回答してしまった者です。(^-^;;

以下、推測交じりのアドバイスになってしまいますがご了承ください。

対応

objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByName('csv')(0).Click();"",10);"
の.Click()を.click()と小文字に変更すれば動作するのではないでしょうか？

原因はおそらく・・・

正常な動作が確認できている
objIE.document.getElementsByName("csv")(0).Click
という処理は、objIEが持つdocument内で'csv'というname属性を持つエレメントを探し、その中で先頭の要素に対してクリックイベントを行っています。
すべてVBA上で実行されるコードです。

これに対し、
objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByName('csv')(0).Click();"",10);"
でVBA側が行っているのは、objIEに対して「一定時間後に指定したコマンドを実行しなさい」と指示しているところまでです。
実際に'csv'というname属性を持つエレメントを探して、その中で先頭の要素に対してクリックイベントを行うのは、IE側(のJavaScript)になると思います。
つまり""で括られた中身document.getElementsByName('csv')(0).Click();の部分はJavaScriptの記述ということです。
JavaScriptでは関数名の大文字小文字なども厳密に区別されますので、.Click()では動作しないのだと思います。

余談

～"window.setTimeout(""document.getElementsByName('csv')(0).click();"",10);"
の代わりに
～"window.setTimeout(""alert(document.getElementsByName('csv')(0).name);"",10);"
のように記述すると、想定したエレメントが取得できていればIE上で"csv"というメッセージが表示されるようになります。
エレメントが取得できていなければメッセージは表示されませんので、問題点を絞り込むのに使えると思いますよ。

参考になれば幸いです。

Comments

[VBA-IE]

Jawaさん、
回答いただきましたClickを小文字に変えclickに変更したところ、見事にうまくいきました。
ダイアログが開き、無事ファイル名が流し込まれ、感激です。
javaScriptの記述とは、javaも勉強せねば。
大変ありがとうございました。

Answer 2

document.getElementsByNameではなくdocument.getElementsByTagNameだと、どうなりますか？

Comments

[VBA-IE]

ByTagNameでも同じくファイル選択ダイアログボックスは開きませんでした。

[VBA-IE]

記述を変えてファイル選択ダイアログボックスが開くかどうか試した結果は下記です。
objIE.document.forms("form1").csv.Click

[VBA-IE]

記述を変えてファイル選択ダイアログボックスが開くかどうか試した結果は下記です。
解決のヒントになりませんでしょうか？
①objIE.document.getElementsByName("csv")(0).Click ・・・・ 正常に開いた
②objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByName('csv')(0).Click();"",10);" ・・・ 開かない
③objIE.document.forms("form1").csv.Click ・・・・ 正常に開いた
④objIE.document.parentWindow.execScript "window.setTimeout(""document.forms('form1').csv.Click();"",10);" ・・・・ 開かない
⑤objIE.document.getElementsByTagName("csv")(0).Click ・・・・ 実行時エラー91
⑥objIE.document.parentWindow.execScript "window.setTimeout(""document.getElementsByTagName('csv')(0).Click();"",10);" ・・・・ 開かない

[sazi]

web系には疎いので、テストに使えそうなサイトと項目が見つけ切れて無いんですよね。
自前で作ればいいとは思うんですが、結構時間かかりそうなので。