返回列表 上一主題 發帖

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

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 »
發表於 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

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 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

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題