Excel教程：excel拆分工作簿（表），一鍵拆分幾百個文件，只需3秒！

2022.01.04

下面這個Excel文件，有5個工作表（我們實際工作中可能會有N個工作表）。

通過一段代碼，將工作表拆分出來放在文件夾下面。

要實現一鍵拆分，肯定會用到VBA代碼。操作步驟如下：

代碼分享給大家：

Sub EachShtToWorkbook()

Dim sht As Worksheet, strPath As String

With Application.FileDialog(msoFileDialogFolderPicker)

'選擇保存工作薄的文件路徑

If .Show Then strPath = .SelectedItems(1) Else Exit Sub

'讀取選擇的文件路徑,如果用戶未選取路徑則退出程序

End With

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

Application.DisplayAlerts = False

'取消顯示系統警告和消息，避免重名工作簿無法保存。當有重名工作簿時，會直接覆蓋保存。

Application.ScreenUpdating = False '取消屏幕刷新

For Each sht In Worksheets '遍歷工作表

sht.Copy '復制工作表，工作表單純復制后，會成為活動工作薄

With ActiveWorkbook

.SaveAs strPath & sht.Name, xlWorkbookDefault

'保存活動工作薄到指定路徑下，以當前系統默認文件格式

.Close True '關閉工作薄并保存

End With

Application.ScreenUpdating = True '恢復屏幕刷新

Application.DisplayAlerts = True '恢復顯示系統警告和消息

End Sub

本站僅提供存儲服務，所有內容均由用戶發(fā)布，如發(fā)現有害或侵權內容，請點擊舉報。

免费视频淫片aa毛片_日韩高清在线亚洲专区vr_日韩大片免费观看视频播放_亚洲欧美国产精品完整版