excel文件批量另存

要批量另存Excel文件，可以使用VBA代码来实现。首先，在Excel中按Alt+F11打开VBA编辑器，在代码窗口中粘贴下列代码：

Sub SaveSheetAsWorkbook()
Dim theName As String
On Error GoTo Line1
For Each sht In ActiveWindow.SelectedSheets
sht.Copy
theName = ThisWorkbook.Path & "_" & sht.Name & ".xls"
ActiveWorkbook.SaveAs Filename:=theName, FileFormat:=xlNormal
ActiveWindow.Close
Next
Line1:
End Sub

然后，关闭VBA编辑器，返回Excel界面，选择需要批量另存的工作表，按住Ctrl键或Shift键进行选择，然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可。以上代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿相同，文件名称为“原工作簿名称_工作表名称.xls”。

请注意，如果是在新建且未保存的工作簿中运行代码，Excel会将新生成的工作簿保存到默认的文件位置，如“我的文档”。

使用以上VBA代码，可以快速实现Excel文件的批量另存。<span class="em">1</span><span class="em">2</span><span class="em">3</span>
#### 引用[.reference_title]
- *1* *2* *3* [Excel VBA-批量将多个sheet表另存为单独的工作薄文件](https://blog.csdn.net/Crystal_Data/article/details/52135827)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_1"}}] [.reference_item style="max-width: 100%"]
[ .reference_list ]