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

[µo°Ý] ¶}°_ÀÉ®×°ÝÃD

[µo°Ý] ¶}°_ÀÉ®×°ÝÃD

¦U¦ì«e½ú¦n
   §Ú¥Î A.xls ¤§ VBAµ{¦¡¶}±Ò¦b®à­±¤Wªº¥t¤@ÀÉ®× B.xls , ·íVBAµ{¦¡°õ¦æ§¹²¦«á
      §Ú·Q§Q¥ÎA.xls ¤§ VBAµ{¦¡¨ÓÃö³¬A.xls ¦Ó«O¯dB.xls ¦b¶}±Òª¬ºA
         §ÚÀ³¦p¦ó¼g³o vba   
       §Ú¥Î Windows("b.xls").Activate     ¨Ó ¶}±ÒB.xls

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-1-5 14:22 ½s¿è

¦^´_ 1# jim
  1. Sub Ex()
  2. fs = "C:\Documents and Settings\USER\®à­±\.B.xls" 'BÀÉ®×
  3. Workbooks.Open fs
  4. ThisWorkbook.Close 0  'Ãö³¬AÀɮפ£Àx¦s
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# jim


    TKS HSIEH

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD