移動效果工作表並成為一個單獨的效果檔案

papaya

移動效果工作表.rar (178.2 KB)

下載次數: 6

2019-3-20 12:20

請問各位大大︰
將產生的效果工作表移動，並成為一個單獨的效果檔案且這個效果檔案的名稱="總表"的的語法。
謝謝各位!

jcchiang

回復 1# papaya

請試試
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

papaya

回復 2# jcchiang
J大:
測試沒有成功~

下載 (40.5 KB)

2019-3-20 14:32

可否請您做個範例檔供參~謝謝您!

PS:
1_效果檔案也是輸出在同一個資料夾內。
2_版本為Excel 2003

papaya

回復 1# papaya
請教要如何修正下列的程式碼才是正確的?謝謝!

下載 (24.95 KB)

2019-3-20 18:06

複製工作表_VBA-2.rar (65.16 KB)

下載次數: 1

2019-3-20 18:06

jcchiang

回復 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

papaya

回復 5# jcchiang
J大:您好!
測試OK了~感謝您^^