▲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 備份()
'必須先保存，確保備份時備份的數(shù)據(jù)與原工作簿數(shù)據(jù)一致
ActiveWorkbook.Save
ActiveWorkbook.SaveCopyAs "D:\" & Range("Sheet1!A1") & ".xls"
End Sub |
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
