標題: 巨集執行後存檔並關閉 [打印本頁]

---

作者: PJChen    時間: 2012-2-3 10:24     標題: 巨集執行後存檔並關閉

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

---

作者: GBKEE    時間: 2012-2-3 10:33

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

---

作者: PJChen    時間: 2012-2-3 10:53

回復 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    時間: 2012-2-3 13:50

本帖最後由 GBKEE 於 2012-2-3 13:53 編輯

回復 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    時間: 2012-2-3 15:03

回復 4# GBKEE

執行OK. 再一次謝謝你!

---

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