总表拆分为多个工作簿（excel文件）
TIP! Right-click and select "Save link as..." to download.
| VIDEOS | |||
| MP4 | N/A | 480P | Download |
| MP4 | N/A | 360P | Download |
| AUDIO | |||
| MP4 | N/A | mp4a.40.5 | Download |
| MP4 | N/A | mp4a.40.5 | Download |
| MP4 | N/A | mp4a.40.5 | Download |
| THUMBNAILS | |||
|
JPEG | Origin Image | Download |
VBA代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim mybook As Workbook
Set mybook = ActiveWorkbook
For Each sht In mybook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为excel默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim mybook As Workbook
Set mybook = ActiveWorkbook
For Each sht In mybook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为excel默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
Supported Sites
