Excel转Web自动化

Question

以下是我试图通过Macro Automation实现的功能->

->我正在尝试打开网站urlhttp://www.metaboanalyst.ca/MetaboAnalyst/faces/Home.jsp[/url]

->然后单击“单击此处开始”

->然后检查“峰值强度表”的单选按钮。

->然后单击“浏览”数据文件并手动选择一个文件(File that needs to be selected)。

然后，->最后单击submit按钮(该按钮不起作用，文件路径消失，同时单击submit按钮并显示自动化错误'-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

Answer 1

如果您正在使用IE，请尝试单击工具，然后单击COMPATIBILY查看设置并添加您所在的网站。这可能与该网站上较旧的代码有关。