整理文档很辛苦，赏杯茶钱您下走！
还剩 ... 页未读，继续阅读 >>
免费阅读已结束，点击下载阅读编辑剩下 ... 页
阅读已结束，您可以下载文档离线阅读编辑
excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx'将工作簿所有工作表另存为单独的文件。'路径为原工作簿路径，文件名为工作表名SubTest()DimShtAsWorksheetForEachShtInSheetsSht.CopyActiveWorkbook.SaveAsThisWorkbook.Path&\&Sht.Name&.xlsActiveWorkbook.CloseNextEndSub
