[發問] 有關於另存新檔的問題

a703130

我想請問各位前輩
當我另存新檔之後，目前的工作視窗就會是另存之後的視窗
  
我要如何在背景另存檔案而工作室窗仍是原本那個??

舉例：
下面是我程式碼

1. Sub Save_As_ABC()  
   
2.     ChDir ActiveWorkbook.Path
   
3.     ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\ABC.abc", _
   
4.         FileFormat:=xlTextPrinter, Password:="", WriteResPassword:="", _
   
5.         ReadOnlyRecommended:=False, CreateBackup:=False

複製代碼

我在 Test.xls 另存一個 ABC.abc
  存檔完，我的編輯視窗便是 ABC.abc
  我希望編輯視窗仍是 Test.xls

GBKEE

回復 1# a703130
VBA的說明:
SaveCopyAs 方法
請參閱套用至範例特定將指定活頁簿的備份儲存到檔案，但不變更記憶體中已開啟的活頁簿。
expression.SaveCopyAs(Filename)
expression     必選。傳回 Workbook 物件的運算式。
Filename     必選。指定備份的檔案名稱。
範例
此範例儲存目前活頁簿的副本。
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"

a703130

回復 2# GBKEE

  請問G大，若我使用SaveCopyAS 我便不能設定存檔類型(FileFormat)了
  是否有其他方式能夠解決??

kimbal

回復 3# a703130

saveas 後重新開出來

   Dim strCurrPath As String, strCurrBook As String
    strCurrPath = ThisWorkbook.Path
    strCurrBook = strCurrPath & "\" & ThisWorkbook.Name
   
    ThisWorkbook.Save '先自行SAVE1次
    ActiveWorkbook.SaveAs Filename:=strCurrPath & "\ABC.abc", _
        FileFormat:=xlTextPrinter, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Workbooks.Open (strCurrBook)
    ThisWorkbook.Close (False)

a703130

回復 4# kimbal


    謝謝K大
    這也算是另一種解決方法
    小弟受教了