Dim temp = ""
Dim arrayRet = ""
Dim objRet = ""
Dim objExcelWorkBook = ""
Dim arrRet = ""
Dim a = ""
Dim b = ""
objExcelWorkBook = Excel.OpenExcel('''C:\Users\Administrator\Desktop\测试.xlsx''',True,"WPS","","")
arrayRet = Excel.ReadRange(objExcelWorkBook,"Sheet1","A1:B2")
Excel.WriteRange(objExcelWorkBook,"Sheet1","A1",arrayRet,False)
Next
Excel.CloseExcel(objExcelWorkBook,True)