ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD