※ ChatGPTを利用し、要約された質問です（原文：タグ<type=file>にファイル名を指定したい）
VBAでタグにファイル名を指定する方法
このQ&Aのポイント
VBAを使用してタグにファイル名を指定する方法を試していますが、SendKeys関数が機能しません。
別の方法として、IEオブジェクトを使用してタグの値を直接設定する方法を試しましたが、エラーは発生せず、値が入りませんでした。
解決策はありますでしょうか？お知恵をお貸しください。
タグ<type=file>にファイル名を指定したい
ＶＢＡでファイルをアップロードしたいのですが、
テキストボックスにファイル名を入れる事ができません。
http://okwave.jp/qa/q4624451.htmlを参考に、
-------------------------------------------------------
<html>
<head>
<title>タイトル</title>
</head>
<body>
<FORM encType=multipart/form-data method=post action=/filemanager/upload><INPUT name=directory value=Sample type=hidden>
<INPUT name=userfile size=40 type=file>
</body>
</html>
-------------------------------------------------------
というソースに対して、
-------------------------------------------------------
Sub テスト()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "C:\Users\○○\Desktop\test.html"
Application.wait (Now + TimeValue("00:00:03"))
objIE.Document.all.Item("userfile").Click 'ダイアログが開く
Application.SendKeys "C:\Users\○○\Desktop\aetaw.html", True '何もされない
End Sub
-------------------------------------------------------
をしたのですが、SendKeysの行が機能しません。
-------------------------------------------------------
Sub テスト()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "C:\Users\○○\Desktop\test.html"
Application.wait (Now + TimeValue("00:00:03"))
objIE.Document.all("userfile").Value = "test"
End Sub
-------------------------------------------------------
は、エラーにはならないけど値も入らなかったです。
何か解決策はありますでしょうか？ご回答よろしくお願いします。
お礼
ありがとうございました。