巨集執行後存檔並關閉

PJChen

請教" ActiveWorkbook.Save "這句話為存檔,若要存檔後接著關閉要怎麼修改?

GBKEE

回復 1# PJChen
ActiveWorkbook.Close True    不存檔 False
ThisWorkbook.Close 1          不存檔  0

PJChen

回復 2# GBKEE

我的巨集程式是在VBA Cluster.xlsm中,以下的意思是:將"BCM Order_interim.xlsx  A:AQ貼到 "BCM Order.xlsx"的A1儲存格,然後就關閉BCM Order_interim.xlsx,  它卻關錯檔案了,請幫我看看哪裡出錯了,謝謝!
   With Workbooks("BCM Order_interim.xlsx").Sheets("工作表1")
    Set B = Intersect(.UsedRange, .Range("A:AQ")).SpecialCells(xlCellTypeVisible)
    With Workbooks.Open("P:\Interim\BCM Order.xlsx")

  With Sheets("BCM Schedule")
    .Columns("A:AQ").Hidden = False
    B.Copy Workbooks("BCM Order.xlsx").Sheets("BCM Schedule").Range("A1")  '完全複製  

    ThisWorkbook.Close True  '這句加進去後,它卻關閉VBA Cluster.xlsm檔案,
   End With
   End With
   End With

GBKEE

回復 3# PJChen
ActiveWorkbook          :作用中活頁簿
ThisWorkbook             :程式所在的活頁簿
Workbooks ("Text")     :指定活頁簿


With Sheets("BCM Schedule")
    .Columns("A:AQ").Hidden = False
    B.Copy Workbooks("BCM Order.xlsx").Sheets("BCM Schedule").Range("A1")  '完全複製
    Workbooks (" BCM Order_interim.xlsx").Close True                  '****改成這樣
End With

PJChen

回復 4# GBKEE

執行OK. 再一次謝謝你!