標題:
[發問]
由第7張工作表起另存新檔
[打印本頁]
作者:
missbb
時間:
2017-6-4 16:13
標題:
由第7張工作表起另存新檔
大大, 我寫了一段CODE, 想由活頁部內第7張工作表及之後的工作表,另存新檔, 但失敗, 可否賜教?
Sub sheetsavefile2()
'xxxxxxxxxxxxxxxxxxxx
Application.ScreenUpdating = False
Dim a As Integer
For a = 7 To Sheets.Count
For Each sh In Worksheets
sh.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & sh.Name & ".xlsx"
Workbooks(sh.Name & ".xlsx").Close True
Next
Next a
Application.ScreenUpdating = True
MsgBox ("已完成另存個別檔案")
End Sub
複製代碼
作者:
Hsieh
時間:
2017-6-5 14:00
回復
1#
missbb
Sub ex()
Application.ScreenUpdating = False
For i = 7 To Sheets.Count
Sheets(i).Copy
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xls"
.Close
End With
Next
MsgBox "已完成個別檔案儲存"
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)