![]() |
#2
yuma2022-10-22 21:47
|

'写Excel文件
Set excel_sheet = MyXlsApp.Workbooks.Open("C:\Users\Admin\Desktop\Book1.xlsx")
MyXlsApp.Visible = False
Set xlSheet = excel_sheet.Worksheets(1) '其中的数字为几都为第一个表sheet1
'Set xlSheet = excel_sheet.Worksheets("Sheet2") '其中的数字为几都为第一个表sheet1,表名称为中文时指定有效
Set excel_sheet = MyXlsApp.Workbooks.Open("C:\Users\Admin\Desktop\Book1.xlsx")
MyXlsApp.Visible = False
Set xlSheet = excel_sheet.Worksheets(1) '其中的数字为几都为第一个表sheet1
'Set xlSheet = excel_sheet.Worksheets("Sheet2") '其中的数字为几都为第一个表sheet1,表名称为中文时指定有效