dim sRet = ""
dim dTime = ""
Dim turl = ""
dim iPID = ""
dim iRet = ""
dim hWeb = ""
dim arrayData = ""
dim arrayData2 = ""
dim value = ""
dim objExcelWorkBook = ""
dim value2 = ""
dTime = Time.Now()
iRet = Time.DateAdd("d",1,dTime)
sRet = Time.Format(iRet,"yyyy-mm-dd")
turl = ("https://kyfw.12306.cn/otn/leftTicket/init?linktypeid=dc&fs=上海,KOM&ts=广州,GZQ&date=")&sRet&("&flag=N,N,Y")
hWeb = WebBrowser.Create("chrome",turl,10000,{"bContinueOnError":false,"iDelayAfter":6000,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":turl})
arrayData2 = UiElement.DataScrap({"html":{"attrMap":{"id":"queryLeftTable","tag":"TBODY"},"index":1,"tagName":"TBODY"},"wnd":[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{"Columns":[{"props":["text"],"selecors":[{"index":0,"prefix":"","tag":"tr","value":"tr"},{"className":"yes","index":4,"prefix":">","tag":"td","value":"td:nth-child(4)"}]}],"ExtractTable":0},{"objNextLinkElement":"","iMaxNumberOfPage":5,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":false})
arrayData = UiElement.DataScrap({"html":{"attrMap":{"id":"queryLeftTable","tag":"TBODY"},"index":1,"tagName":"TBODY"},"wnd":[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{"Columns":[{"props":["text"],"selecors":[{"index":0,"prefix":"","tag":"tr","value":"tr"},{"className":"","index":1,"prefix":">","tag":"td","value":"td:nth-child(1)"},{"className":"ticket-info clearfix","index":0,"prefix":">","tag":"div","value":"div.ticket-info.clearfix"},{"className":"train","index":0,"prefix":">","tag":"div","value":"div.train"},{"className":"","index":0,"prefix":">","tag":"div","value":"div"},{"className":"number","index":0,"prefix":">","tag":"a","value":"a.number"}]}],"ExtractTable":0},{"objNextLinkElement":"","iMaxNumberOfPage":5,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":false})
TracePrint(arrayData2)
objExcelWorkBook = Excel.OpenExcel("C:\\Users\\Destiny\\Desktop\\新建 XLSX 工作表.xlsx",false)
For Each key, value In arrayData
TracePrint(value)
Excel.WriteColumn(objExcelWorkBook,"Sheet1","A1",value,true)
Next
For Each key, value2 In arrayData2
TracePrint(value2)
Next
