鹅妈妈童谣mp3下载:如何把工作簿中的工作表分成单个的文件?

来源:百度文库 编辑:九乡新闻网 时间:2024/04/28 12:28:56
 

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