如何在表格中写入一行数据

高锋锋 2019-6-6 1302

我在网页中获取了数据,然后如何通过命令整行提取



dim temp = ""
dim objExcelWorkBook = ""
dim arrayRet = ""
dim 行数 = ""
dim 列数 = ""

dim arrayData = ""

arrayData = UiElement.DataScrap({"html":{"attrMap":{"parentid":"divTable","tag":"TABLE"},"index":0,"tagName":"TABLE","title":"管理系统","url":"https://platform.coinsoy.com/platform-management/management/index#WithdrawApply"},"wnd":[{"app":"chrome","cls":"Chrome_WidgetWin_1","title":"*"},{"cls":"Chrome_RenderWidgetHostHWND","title":"Chrome Legacy Window"}]},{"Columns":[],"ExtractTable":1},{"objNextLinkElement":"","iMaxNumberOfPage":5,"iMaxNumberOfResult":-1,"iDelayBetweenMS":1000,"bContinueOnError":false})
TracePrint  arrayData
For Each key,vlan In arrayData
TracePrint Key
TracePrint vlan
Next
//date = self.input
objExcelWorkBook = Excel.OpenExcel("C:\\Users\\Administrator\\Desktop\\6.0高锋锋  登记表.xlsx",true)
Excel.CreateSheet(objExcelWorkBook,"6月8日","begin",false)
Excel.ActiveSheet(objExcelWorkBook,"6月8日")
For Each key,vlan In arrayData
TracePrint Key
TracePrint vlan
For Each i In vlan
Excel.WriteRow(objExcelWorkBook,"6月8日","A1",i,false)
Next
Next
arrayRet = Excel.GetSheetsName(objExcelWorkBook)
TracePrint  arrayRet


最新回复 (2)
  • 李涛 2019-6-6
    2
    Excel.WriteRange(objExcelWorkBook,"Sheet1","A1",data["数据"])参照这句话自己写吧
  • 梅花在路上 2019-6-6
    3
    利用循环与Excel写入行命令
返回
发新帖