从XPath下载zip文件并将其保存到特定文件夹

时间:2017-08-03 10:54:32

标签: xml xpath vbscript

我正在编写VBScript自动化代码,以便在获得所需授权后从网站下载.xls文件。登录后,我需要点击一个特定的下载按钮,但是" id"对于该特定元素,HTML源代码中不可用。当我研究时,我了解了XPath。所以现在我需要使用元素的给定PAath单击该下载按钮。

我写的示例代码:

Const strURL = "https://gtf.com/"
Const strID = "abc"
Const strPswd = "xyz"

Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Visible = True
objIE.Navigate2 strURL

Do While objIE.Busy
  WScript.Sleep 100
Loop

Set objShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 1000

objShell.SendKeys "{TAB 0}"
WScript.Sleep 100
objShell.SendKeys strID
WScript.Sleep 100
objShell.SendKeys "{TAB}"
WScript.Sleep 100
objShell.SendKeys strPswd
WScript.Sleep 100
objShell.SendKeys "{ENTER}" 
WScript.Sleep 100

objIE.Navigate2 "https://gts.com/download/asc"
WScript.Sleep 100

Set objNode = objDoc.selectSingleNode("//*[@id="folderfilelisttable"]/tbody/tr[3]/td[13]/a[2]/span")

我不知道如何点击该XPath位置(在Set objNode中)然后我需要将该文件存储在给定位置(文件夹)中,然后将该.xls文件转换为.xlsx,全部使用上面的代码。

0 个答案:

没有答案