標題: 移動效果工作表並成為一個單獨的效果檔案 [打印本頁]

---

作者: papaya    時間: 2019-3-20 12:22     標題: 移動效果工作表並成為一個單獨的效果檔案

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

---

作者: jcchiang    時間: 2019-3-20 14:03

回復 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    時間: 2019-3-20 14:34

本帖最後由 papaya 於 2019-3-20 14:39 編輯

回復 2# jcchiang
J大:
測試沒有成功~
[attach]30259[/attach]


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

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

---

作者: papaya    時間: 2019-3-20 18:07

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

---

作者: jcchiang    時間: 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

---

作者: papaya    時間: 2019-3-21 15:30

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)