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

[µo°Ý] ¦bExcel 2003¿ý»sªº¥¨¶°¡A¦bExcel2007/2010«oµo¥Í°õ¦æ¿ù»~'9' or '445'

¦^´_ 1# waterful.tw


    FileSearch
©ó2007ª©¥»¥H«á¤w¸g¤£¤ä´©¦¹ª«¥ó
¥i¨Ï¥ÎDir¨ç¼Æ©Î¬OGetOpenFilename¨Ó¨ú¥N
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# waterful.tw
FindFile¬O¦r¦ê¤£¬Oª«¥ó¤£¯à¨Ï¥ÎSET³¯­z¦¡
  1. FindFile = Dir(MyPath & "*.csv")
  2. Do While FindFile <> ""
  3.     FileCunt = FileCunt + 1
  4.     FindFile = Dir
  5. Loop
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD