批量导出选取的工作表为单独文件VBA
时间: 2024-05-21 10:12:05 浏览: 15
可以使用以下VBA代码来批量导出选取的工作表为单独文件:
Sub ExportSelectedSheets()
Dim Sheet As Worksheet
Dim TempWB As Workbook
Dim TempWS As Worksheet
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim FolderPath As String
Dim FileName As String
'Set default file extension
FileExtStr = ".xlsx": FileFormatNum = 51
'Folder where files will be saved
FolderPath = "C:\Users\Username\Documents\"
For Each Sheet In ActiveWindow.SelectedSheets
'Create a temporary workbook
Set TempWB = Workbooks.Add(1)
Sheet.Copy After:=TempWB.Sheets(1)
Set TempWS = TempWB.Sheets(1)
'Save the temporary workbook as a separate file
FileName = Sheet.Name
TempWB.SaveAs FolderPath & FileName & FileExtStr, FileFormatNum
'Close the temporary workbook without saving changes
TempWB.Close SaveChanges:=False
Next Sheet
End Sub
将此代码复制并粘贴到新的VBA模块中,然后在Excel电子表格中选择要导出的工作表并运行此代码。此代码将为每个选定的工作表创建一个单独的文件,将其保存在指定的文件夹中。
相关推荐
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![docx](https://img-home.csdnimg.cn/images/20210720083331.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)