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

¶}±Ò©T©w¸ê®Æ§¨¸Ìªºcsv(¤£Â_·s¼W)

¶}±Ò©T©w¸ê®Æ§¨¸Ìªºcsv(¤£Â_·s¼W)

c:\¤U¸ü¸ê®Æ§¨   ¸Ì­±¦³¥H¤U³o¼ËªºÀÉ®×   ¨C¤é¤EÂI·|¶Ç¹L¨Ó
From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(1581)_I55447_1212090002.CSV
From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(1587)_I55447_1213090016.CSV

¬õ¦â³¡¥÷§Ú¤£½T©w¥Lªº³W«ß ©Ò¥H §Æ±æ¥i¥H¥Î   *  ¨Ó´À¥N
ÂŦⳡ¥÷¬O ¤é´Á  ©Ò¥H§Ú¨Ï¥Î
Dim a As String
a = Format(Date , "mmdd")
Workbooks.Open Filename:="C:\¤U¸ü¸ê®Æ§¨\From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"

Åã¥Ü§ä¤£¨ì©Î¦W¤l¿ù»~ §Æ±æ¤j¤j­Ì¸Ñµª   !!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

¦^´_ 2# stillfish00


    ¥i¥H§ï¦¨³o¼Ë¬O¶Ü??
From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(????)_I55447_1213??????.CSV
¤j¤j¥i´£¨ÑDIR±Ð¾Ç¶Ü??? §Úª¾¹D¬O°»´ú¬O§_¶}±ÒÀɮץΪºDIR  
¦ý¤£ª¾«ç¼Ë¥i¥H¦V§A»¡ªº¨ú±o¥¿½T¦WºÙ@@" ·PÁ¤j¤j¦^´_~
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 5# stillfish00
¦^´_ 4# Hsieh
·PÁ¨â¦ì¤j¤j¨ó§U~~¤w¦¨¥\!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 4# Hsieh


¦A³Â·Ð¤j¤j!§ÚªºÀɮ׳£9ÂI©T©w·s¼W    ¦ý¬O§Ú§Æ±æ§Ú¤¤¶¡¥i¥H¤£¬qªº°õ¦æ   ©Ò¥H ¦pªG¹L¤F12ÂI ´N·|Åܦ¨§ä¤£¨ì¸ê®Æ
¥i¥H°µ¦¨¦pªG¤µ¤Ñªº§ä¤£¹D  ´N­Ë°h¤@¤Ñ¶Ü      °²³]¤µ¤Ñ 1217     ¹L¤F12ÂI ¥L·|Åܦ¨§ä1218ªº ¦ý¬O §ä¤£¹D´N©¹¦^§ä1217ªº!
¸Ó¦p¦ó§ï©O??   ÁÙ¬O°®¯Ü´N¥Î²¤¹L¿ù»~µ¥¨ì9ÂI´N·|·|¥¿±`°õ¦æ¤F =="  !
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 4# Hsieh


    ¤j¤j  ­è¦Û¤v¸Õ¤@¤U ¤w¸Ñ¨M¤F.......^^
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 4# Hsieh


    ¤j¤j ¡A¦¹µ{¦¡¥Î¤F¤@¬q®É¶¡ ¤]¹J¨ì¤F¨Ç°ÝÃD ¡AÁöµM¤£¬qªº¦A¶i­×»P½m²ß¼g·sµ{¦¡  
   ¦ýÁÙ¬O·Q¤£¥XÀYºü¡A ¦]¬°¦¹Àɶǰe¨Ó¥u¦³¤é´Á¨S¦³¦~¥÷  ©Ò¥H §Ú²{¦b§ìªº¸ê®Æ ¦³®É­Ô³£·|§ì¨ì¥h¦~ªº0416ªºÀÉ®× ....(¦ý¦³®É¤S·|¬O2013¥¿½Tªº)¤£ª¾¹D§ì¨úªº©w¸q¬O§_¬°ÀH¾÷ªº
¦ý¬O¦¹ªþ¥óªº  ID  ·|¤@ª½¦V¤W¼W¥[  ¦³¿ìªk¥ÎDIR§ì¨ú ID¸û¤jªºÀɮ׶Ü??   ©ÎªÌ¬O¤ñ¸û³Ì«áÀx¦s¤é´Á¨Ó§ì¨ú³Ì·sªº¸ê®Æ!(³Ì¦n¬O¨âºØ¤è¦¡³£±Ð§Ú^^)«¢«¢
¥Ø«eµ{¦¡¬°:
  1. fs = Dir("C:\¤U¸ü¸ê®Æ\From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(" & "*" & ")_I55447_" & Format(Date, "mmdd") & "*" & ".CSV")
  2. If fs <> "" Then
  3. Workbooks.Open "C:\¤U¸ü¸ê®Æ\" & fs
  4. Else:
  5. fs = Dir("C:\²Î¤@«H¥ó\From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(" & "*" & ")_I55447_" & Format(Date - 1, "mmdd") & "*" & ".CSV")
  6.         If fs <> "" Then
  7.         Workbooks.Open "C:\¤U¸ü¸ê®Æ\" & fs
  8.         Else: GoTo Â÷¶}
  9.         End If
  10. End If
½Æ»s¥N½X
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 10# GBKEE


    ¤j¤j §A¦³»·ºÝ¶Ü?? ¥i§_À°§Ú¬Ý¤@¤U??
¥Ø«e Åã¥Ü¨S¦³©w¸q f  

§Ú§âf ©w¬° string ¦]¬°¬Ofs = dir(f) '­Ó¤H·QªkÀ³¸Ó¬O§â°»´ú¨ìªº¦WºÙ¬ö¿ý¬° fs
¦ý¤U­±³o¥y´N¤£¤Ó¤F¸Ñ   ¦Ó¥BÅã¥Ü¿ù»~
If Year(Fc.GetFile(a & f).DateLastAccessed) = Year(Date) Then  'Åã¥Ü§ä¤£¨ìÀÉ®×

¦Ó¥B§Ú«Ø¥ß«ö¶s  «ö¤F³£¨S¤ÏÀ³   ¥ÎF8 or F5 °õ¦æ¤~·|¶]µ{¦¡(©Ç¨Æ)
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 10# GBKEE


    µ{¦¡¥i¦æ¤F ¦ý¬O ....¥L¤@¦¸¶}¨â­ÓÀÉ®×  =="  ©Ò¥H¨S¦³°µ¿z¿ïÕÙ  §â§ä¨ìªº³£¥´¶}¤F
§Ú¥h¦~04/18ªºÀɮתº³Ì«á­×¥¿¤é´Á¬°2013-03-21    ¤µ¦~04/18ªº¬O¤µ¤Ñ   ·|¤£·|¬O¥Î¦~¥÷°Ï¤ÀªºÃö¦è??
¥i¬O§Aµù¸Ñ¬O¼g»¡¶}±Ò³Ì«áªº¸ê®Æªü......~"~ G¤j©çÁ®º  ¤S­n¦A³Â·Ð±z¤F@@"
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 13# GBKEE


    ¡°¤µ¦~04/18ªº¬O¤µ¤Ñ ©Ò¥HÀɮ׶·¬O¤µ¦~04/18©Ò«Ø¥ß©Î­×§ï¦sÀɪº¡°

¬Oªü= ="  §Ú¦b¸Ñ»¡¤@¦¸³á

2013/04/18 ±H¨ÓªºÀÉ®×   ¦s¨ú®É¶¡¬O2013/04/18 09:00   (À³¸Ó³æ¶}¦¹ÀÉ)
2012/04/18 ªºÀÉ®×    ¦s¨ú®É¶¡¬O 2013/03/21 06:29
«o·|¶}±Ò¨â­ÓÀÉ®×
¨º°ÝÃD¬O¥X¦b­þ???
§Ú¸ÕµÛ§â  a §ï¬° a= Format(Date - 1, "mmdd")
¦ý¬OÁÙ¬O¶}¨â­ÓÀÉ®×  2013/04/17¸ò2012/04/17ªºÀÉ®×= =©Ò¥H ¦n¹³¶}±Ò³Ì«á¦s¨úªº»yªk¨S¤ÏÀ³
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 15# GBKEE

Msgbox DateValue(Fc.GetFile("C:\¤U¸ü¸ê®Æ\" & f).DateLastAccessed)

    ¦¹¥N½X­n¶K¦b f = Dir(f)¥H¤U  °j°é¥H¤W
±o¨ìµ²ªG¬°2013/04/18   ¬°¥¿½Tªº
§Ú¦b·Q À³¸Ó¬O°j°é¤§«á§âªº¤]¶}±Ò¤F
©Ò¥H§Ú¦b
             Workbooks.Open "C:\¤U¸ü¸ê®Æ\" & f         «á­±Åý¥L¸õ²æ°j°é´NOK¤F     ~>>>  : GoTo Â÷¶}

¬O³o¼ËªºÃö¦è¶Ü??   
DO While
¤£¾A°õ¦æ¤@¦¸¬O¥¿½Tªº´NÂ÷¶}¤F  «ç»ò¤S·|«ùÄò°j°é  ÁÙ¬O§Ú°O¿ù¤F= ="!!

¤Ï¥¿¥Ø«e¬Ý°_¨ÓÀ³¸Ó¬OOK¤F....§Ú¦b¦h´ú¸Õ¬Ý¬Ý  @@
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD