- 帖子
- 216
- 主題
- 71
- 精華
- 0
- 積分
- 292
- 點名
- 0
- 作業系統
- window xp
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-6-27
- 最後登錄
- 2024-9-28
|
大大, 我寫了一段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
|
|
發表於 2017-6-4 16:13
| 
