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

¬°¤°»òµ{¦¡¶]¨ì¤@¥b³£·|°±¦í¤£Ä~Äò¤F?

¥»©«³Ì«á¥Ñ basarasy ©ó 2010-7-31 08:46 ½s¿è

¦^´_ 3# sasho

      ¸Õ¸Õ¦bcode.xls ªºA1¤J                     =SUBSTITUTE(LEFT(CELL("filename",A1),FIND("]",CELL("filename",A1))-1),"[","")
´N·|¦³code.xls ªºLINK   
eg.  C:\code.xls
   
    Workbooks.Open Filename:="C:\code.xls"
MyCodeName= ActiveWorkbook.Name
Workbooks(MyCodeName).Activate
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 9# sasho


    ¤èªk 1. ¥u¦n¤£¥Îmsn.
    ¤èªk 2. ¶R¥x±j«lªº¹q¸£.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD