- 帖子
- 234
- 主題
- 19
- 精華
- 0
- 積分
- 276
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-1-7
- 最後登錄
- 2021-10-7
|
5#
發表於 2019-3-21 12:43
| 只看該作者
回復 4# papaya
這是整個程式
1.原先是要成為一個單獨的效果檔案,所以另外儲存為"總表"
2.c:\移動效果工作表\總表.xls-->請自行改為要儲存的路徑,我無法得知你的資料夾的名稱
3.網路限制無法上傳檔案,所以無法提供,不好意思
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
For i = 1 To 49
Sheets("總表").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "總表" & Format(i, "00")
Next i
'請問:移動效果工作表,並成為一個單獨的效果檔案且這個效果檔案的名稱="總表"的的語法。謝謝!
Application.DisplayAlerts = False
Sheets("A").Delete
Sheets("總表").Delete
ActiveWorkbook.SaveAs Filename:="c:\移動效果工作表\總表.xls", _
FileFormat:=xlExcel8, CreateBackup:=False '這是輸出位置和檔案名稱的地方
Workbooks("總表.xls").Close savechanges:=True
Application.DisplayAlerts = True
End Sub |
|
