これが私がマクロオートメーションを介してやろうとしていることです->
-> ウェブサイトを開こうとしています [url]http://www.metaboanalyst.ca/MetaboAnalyst/faces/Home.jsp[/url]
-> 次に、「ここをクリックして開始」をクリックします
→「ピーク強度テーブル」のラジオボタンにチェックを入れる
-> 次に、データ ファイルの [参照] をクリックし、ファイル (選択する必要があるファイル) を手動で選択します。
->最後に送信ボタンをクリックします（これは機能せず、送信ボタンをクリックするとファイルへのパスが消え、自動化エラー['-2147352319（80020101）']が表示されます）
送信中の最後のステップを除いて、正常に機能するコードは次のとおりです->
Sub MetaboAnn()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate "http://www.metaboanalyst.ca/MetaboAnalyst/faces/Home.jsp"
Do Until IE.ReadyState = 4
DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:05"))
'MsgBox "Done"
IE.Visible = True
IE.Document.getElementById("form1:groupPanel1:loginLink").Click
Application.Wait (Now + TimeValue("0:00:05"))
'MsgBox "Done"
IE.Visible = True
IE.Document.getElementById("form1:tabSet1:tab1:layoutPanel7:csvButtonGroup:csvButtonGroup_2_rb").Click
Application.Wait (Now + TimeValue("0:00:03"))
'MsgBox "Done"
IE.Visible = True
IE.Document.all("form1:tabSet1:tab1:layoutPanel7:statCsvUpload_com.sun.webui.jsf.upload").Click
Application.Wait (Now + TimeValue("0:00:03"))
'MsgBox "Done"
IE.Visible = True
IE.Document.getElementById("form1:tabSet1:tab1:layoutPanel7:csvSubmitButton").Click
End Sub