dim Data = ""
dim objExcelWorkBook = ""
dim temp = ""
Data = self.input
objExcelWorkBook = Excel.WorkBookOpen(Data["文件路径"],"","",true) //这是第30行~~~~~~~
Excel.SheetSetActive(objExcelWorkBook,1)
For Each key, value In Data["数据"]
For Each i, v In value
Excel.CellSetText(objExcelWorkBook,1,key,i,v)
Next
Next
Excel.WorkBookSave(objExcelWorkBook,Data["文件路径"])
Excel.Close(objExcelWorkBook,true)