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

½Ð°Ývba-°õ¦æ¶}±Ò¬¡­¶Ã¯

¥»©«³Ì«á¥Ñ luhpro ©ó 2013-7-25 22:16 ½s¿è

¦^´_ 1# eric093
  1. Dim sStr$, sPath$
  2. sPath = "D:\"   ' ½Ð³]¬°¹ê»Ú¬d®Ö¸ê®Æ¬ÛÃöÀɮשҦbªº¥Ø¿ý
  3. sStr = "¬d®Ö¸ê®Æ" & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) & ".xls"
  4. Workbooks.Open sPath & sStr
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD