▲Excel如何把工作簿中的工作表分成单个的文件?
excel工作簿中有不同的工作表,如何把同一个工作簿中的工作表分解成多个工作簿?也就是把 sheet1、sheet2.。。。 分解成不同的excel文件以便分类保存。
Sub SpliteBook() Application.ScreenUpdating = False For Each sht In Sheets Sheets(sht.Name).Copy ActiveWorkbook.SaveAs Filename:="F:\Files\" & sht.Name & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False ActiveWindow.Close Next sht Application.ScreenUpdating = True End Sub
|
▲如何在一列列出工作薄中的所有表?
以下宏将在A列传回所有工作表名称。(很实用)
Sub Maco1() For i = 1 To Sheets.Count Cells(i, 1) = Sheets(i).Name Next End Sub |
▲ 将文件保存为以某一单元格中的值为文件名的宏怎么写?
Sub 备份() '必须先保存,确保备份时备份的数据与原工作簿数据一致 ActiveWorkbook.Save ActiveWorkbook.SaveCopyAs "D:\" & Range("Sheet1!A1") & ".xls" End Sub
|
|