返回列表 上一主題 發帖

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

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

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

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

TOP

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

回復 2# jcchiang
J大:
測試沒有成功~
未命名-3.png
2019-3-20 14:32



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

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

TOP

回復 1# papaya
請教要如何修正下列的程式碼才是正確的?謝謝!
未命名-4.png
2019-3-20 18:06

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

TOP

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

TOP

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

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題