在Microsoft Excel中,可以通过将工作表复制并粘贴到新工作簿中,将一个工作簿中的工作表保存或拆分为新的Excel文件。 如果要将大工作簿的每个工作表/工作表拆分为单独的Excel,txt,csv,pdf文件,这似乎很麻烦。 但是随着Kutools for Excel“拆分工作簿实用程序,您可以快速处理它。点击免费试用30天,提供全部功能!使用VBA代码将工作表导出并保存为新工作簿下面的代码将导出新工作簿中的所有可见工作表,并将工作表和原始工作表的名称保存在与活动工作簿相同路径的新创建的文件夹中。 请执行以下步骤:
步骤1:按住ALT + F11键,然后打开Microsoft Visual Basic应用程序窗口。
步骤2:点击插页>模块,然后将以下宏粘贴到“模块窗口”中:
VBA : Export and save worksheets as new workbook in a new folder.
Sub SplitWorkbook() 'Updateby20200806 Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim xNWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss") FolderName = xWb.Path & "\" & xWb.Name & " " & DateString If Val(Application.Version)