Question

我对VBA和Macros很陌生，目前正在尝试使用VBA从工作表中的一系列单元格中收集数字。然后将它们放在网站上的表格中并提交表格。

这是我到目前为止所拥有的。我不确定为什么范围不会填充网站上的文本框。（http://www.centraltransportint.com/confirm/trace.aspx）如果我将范围设置为A2，它会将该单元格的值放入文本框中，但不会只放置一个单元格。

获取表单后，我的目标是从网站复制部分结果，以便在Excel的B列中显示。我在提交表单后发现我需要的信息存储在下一页中，所以我非常自信我可以处理它。

但是，我似乎无法在文本框中填充一系列单元格。

该行（IE.Document.all（＆＃34; _ctl0：lstType＆＃34;）。值=＆＃34; PuN＆＃34;）用于将下拉菜单从专业号码切换到号码。

Sub GetHTMLDocument()

Dim IE As New SHDocVw.InternetExplorer

IE.Visible = True
IE.navigate "http://www.centraltransportint.com/confirm/trace.aspx"

Do While IE.ReadyState <> READYSTATE_COMPLETE
Loop

IE.Document.all("_ctl0:lstType").Value = "PuN"
IE.Document.all("_ctl0:traceNumbers").Value = ThisWorkbook.Sheets("pickups").Range("a2:a20")

IE.Document.all("_ctl0:traceSubmit").Click

End Sub

提交按钮代码

<input name="_ctl0:traceSubmit" id="_ctl0_traceSubmit" language="javascript" onclick='javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("_ctl0:traceSubmit", "", true, "", "", false, false))' type="image" src="../images/btn_traceship.gif" border="0">

编辑：好吧它没有接受我的接送号码，因为它表示它不包括破折号，即使宏将数字用破折号输入（例如，单元格A2包含：PU-946 -110109442013）。如果我手动将其复制并粘贴到文本框中，则会进行搜索。但是如果我的宏将它放在文本框中，它会忽略破折号。

网站启动＆＃34;必须以正确的格式输入代答号码。例如，搜索PU-xxx-xxxxxxx而不是搜索PUxxxxxxxxxx。如果您不包含破折号，则不会看到货件的状态信息。＆＃34;

VBA宏从excel到网站输入数据范围，然后提交表单

0 个答案: