¥¨¶°°õ¦æ«á¦sÀɨÃÃö³¬

PJChen

½Ð±Ð" ActiveWorkbook.Save "³o¥y¸Ü¬°¦sÀÉ,­Y­n¦sÀÉ«á±µµÛÃö³¬­n«ç»ò­×§ï?

PJChen

¦^´_ 4# GBKEE

°õ¦æOK. ¦A¤@¦¸ÁÂÁ§A!

GBKEE

¦^´_ 3# PJChen
ActiveWorkbook          :§@¥Î¤¤¬¡­¶Ã¯
ThisWorkbook             :µ{¦¡©Ò¦bªº¬¡­¶Ã¯
Workbooks ("Text")     :«ü©w¬¡­¶Ã¯


With Sheets("BCM Schedule")
    .Columns("A:AQ").Hidden = False
    B.Copy Workbooks("BCM Order.xlsx").Sheets("BCM Schedule").Range("A1")  '§¹¥þ½Æ»s
    Workbooks (" BCM Order_interim.xlsx").Close True                  '****§ï¦¨³o¼Ë
End With

PJChen

¦^´_ 2# GBKEE

§Úªº¥¨¶°µ{¦¡¬O¦bVBA Cluster.xlsm¤¤,¥H¤Uªº·N«ä¬O:±N"BCM Order_interim.xlsx  A:AQ¶K¨ì "BCM Order.xlsx"ªºA1Àx¦s®æ,µM«á´NÃö³¬BCM Order_interim.xlsx,  ¥¦«oÃö¿ùÀɮפF,½ÐÀ°§Ú¬Ý¬Ý­þ¸Ì¥X¿ù¤F,ÁÂÁÂ!
   With Workbooks("BCM Order_interim.xlsx").Sheets("¤u§@ªí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")  '§¹¥þ½Æ»s  

    ThisWorkbook.Close True  '³o¥y¥[¶i¥h«á,¥¦«oÃö³¬VBA Cluster.xlsmÀÉ®×,
   End With
   End With
   End With

GBKEE

¦^´_ 1# PJChen
ActiveWorkbook.Close True    ¤£¦sÀÉ False
ThisWorkbook.Close 1          ¤£¦sÀÉ  0