Set xlsBook = xlsApp.Workbooks.Add '添加工作簿简化一下with xlsApp.Workbooks.Add after：=sheets（sheets.count）或则Set xlsBook = xlsApp.Workbooks.Add（,sheets(sheets.count))
