uibot获取excel指定行数据并输出到新的excel边

Dim objRet ,objRet1,objRet2= ""
Dim arrSet = ""
Dim arrayRet = ""
Dim objExcelWorkBook = ""
objExcelWorkBook = Excel.OpenExcel('''E:\老人卡\20220417订单数据.xlsx''',False,"Excel","","")

Dim rownum = 340   //行号

arrayRet = Excel.ReadRange(objExcelWorkBook,"65周岁敬老卡","A"&rownum&":K"&rownum+99)
Excel.CloseExcel(objExcelWorkBook,True)
objExcelWorkBook = Excel.OpenExcel('''E:\老人卡\XXXXX操作员.xlsx''',False,"Excel","","")


Excel.WriteRange(objExcelWorkBook,"Sheet1","A2:K101",arrayRet,False)
objRet = Excel.ReadCell(objExcelWorkBook,"Sheet1","B2")
Excel.WriteRange(objExcelWorkBook,"Sheet1","A2:K101",arrayRet,True)
objRet1 = Excel.ReadCell(objExcelWorkBook,"Sheet1","B2")
Dim B1
B1 = CStr(objRet1)
//Excel.WriteCell(objExcelWorkBook,"Sheet1","B1","'"&B1,True)


objRet2 = Excel.ReadCell(objExcelWorkBook,"Sheet1","B101") //读取最后一行的序列
Dim B2
B2 = CStr(objRet2)
Excel.WriteCell(objExcelWorkBook,"Sheet1","C1",B1&"-"&B2,True)
Excel.CloseExcel(objExcelWorkBook,True)