Excel/WPS表格批量导出工作簿成单独文件

Question

如题所述

Answer 1

为了将Excel或WPS表格中的每个工作簿单独导出为单独的文件，我们可以采用以下步骤和代码实现这一目标。确保此操作在您的环境中已正确设置，以便于执行。

步骤如下：

1. 打开您的表格文件，在菜单栏中寻找【工具】选项，点击展开，找到并点击【开发工具】以显示【开发工具】选项卡。

2. 在【开发工具】选项卡中，点击【VBA编辑器】，这将打开【VisualBasic】编辑器对话框。

3. 在左侧窗口中，选择WPS表格对象，接着右键点击并选择【插入】，然后点击【模块】。此时会弹出一个【模块（代码）】对话框，将您的代码粘贴进去即可。

接下来，是您需要使用的代码示例：

代码1（默认保存在原表格路径下，可自定义创建存放的文件夹）：

Sub saveworkbook()

Application.ScreenUpdating = False

Dim rr As String

rr = ThisWorkbook.Path & "\测试"

If Len(Dir(rr, vbDirectory)) = 0 Then MkDir rr

Dim st As Worksheet

For Each st In Worksheets

st.Copy

ActiveWorkbook.SaveAs rr & "\" & st.Name & ".xlsx"

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub

代码2（需要自定义创建保存路径）：

Sub 批量导出工作簿()

Application.ScreenUpdating = False

For Each sht In Sheets

sht.Copy

ActiveWorkbook.SaveAs "D:\其他\Excel表格批量导出每个工作簿\测试\" & sht.Name

ActiveWorkbook.Close

Next

Application.ScreenUpdating = True

End Sub

4. 选择您希望运行的代码（代码1或代码2），点击运行按钮“ ▶”、【运行】选项中的【运行子过程/用户窗体】，或直接按【F5】键执行。

5. 完成代码执行后，您会发现表格文件中的每个工作簿都已经成功导出为单独的.xlsx或.xls文件，且文件名与原始工作簿名称一致。

请注意，以上操作步骤适用于WPS表格环境，同样适用于Excel表格。确保您的代码和路径设置正确以适应您当前使用的软件版本。