当你有一个拥有若干个工作表的Excel文档,你想要把这些工作表分别保存成单个独立的文件,发送给不同的用户。你该如何操作?最好的方法就是使用VBA。 如果不太熟悉VBA的小伙伴,可以先花费1分钟,找到添加VBA代码的路径。
将每个工作表保存成单独的Excel文件 '将每个工作表保存成单独的Excel文件 Sub SplitEachWorksheet() Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveWorkbook.SaveAs Filename:=FPath & '\' & ws.Name & '.xlsx' Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 但是在执行上述代码前,你还得做两步准备:
操作完的结果如下图所示。 将每个工作表保存成单独的PDF文件 有的时候,我们非但希望将工作表单独保存出来,还不希望用户对文件再进行修改。这个时候,我们也可以考虑将工作表保存成pdf文件。具体的代码如下: '将每个工作表保存成单独的PDF文件 Sub SplitEachWorksheet() Dim FPath As String FPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Sheets ws.Copy Application.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FPath & '\' & ws.Name & '.xlsx' Application.ActiveWorkbook.Close False Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub 这样的操作结果如下: 这样的操作是不是简单快速呢?再也不需要为此大费周章的手工分割工作簿。省时省力! |
|