excel文件里有多个sheet把每个sheet全部导出为单独的xls或xlsx

excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx'将工作簿所有工作表另存为单独的文件。'路径为原工作簿路径，文件名为工作表名SubTest()DimShtAsWorksheetForEachShtInSheetsSht.CopyActiveWorkbook.SaveAsThisWorkbook.Path&\&Sht.Name&.xlsActiveWorkbook.CloseNextEndSub