ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

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

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-2-3 13:53 ½s¿è

¦^´_ 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

TOP

¦^´_ 4# GBKEE

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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD