ªð¦^¦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

¦^´_ 1# die78325
À³¸Ó¬OOpen¤£¤ä´©¸U¥Î¦r¤¸§a
¸Õ¸Õ¬Ý¥ÎDir ¨ú±o¥¿½T¦WºÙ¦AOpen¬Ý¬Ý
¬õ¦r³¡¤À¥i¥Î¬Û¦P¦r¼Æªº°Ý¸¹¤Ç°t

TOP

¦^´_ 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

¦^´_ 3# die78325

fs = Dir("C:\¤U¸ü¸ê®Æ§¨\From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(" & "*" & ")_I55447_" & Format(Date, "mmdd") & "*" & ".CSV")
If fs <> "" Then Workbooks.Open fs
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# die78325
¦P4# , ­×¥¿¤@¤U
If fs <> "" Then Workbooks.Open "C:\¤U¸ü¸ê®Æ§¨\" & fs

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-4-18 14:46 ½s¿è

¦^´_ 9# die78325
¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim a As String, f As String, Fc As Object
  3.     Set Fc = CreateObject("Scripting.FileSystemObject")
  4.     'FileSystemObject ª«¥ó   ´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨ú¡C
  5.     a = Format(Date, "mmdd")
  6.     f = "C:\¤U¸ü¸ê®Æ§¨\From(´ú¸Õ´ú¸Õ ¨t²Îµo°e ([email protected]))_ID(" & "*" & ")_I55447_" & a & "*" & ".CSV"
  7.     f = Dir(f)
  8.     '****¦]¬°¦¹Àɶǰe¨Ó¥u¦³¤é´Á¨S¦³¦~¥÷  ©Ò¥H §Ú²{¦b§ìªº¸ê®Æ ¦³®É­Ô³£·|§ì¨ì¥h¦~ªº0416ªºÀÉ®×****
  9.     '¦p¦¹·|¦³1­Ó¥H¤WªºÀÉ®× ¥Î°j°é³B²z
  10.     Do While f <> ""
  11.         If Year(Fc.GetFile("C:\¤U¸ü¸ê®Æ\" & f).DateLastAccessed) = Year(Date) Then
  12.          'DateLastAccessed ÄÝ©Ê ¶Ç¦^³Ì«á¤@¦¸¦s¨ú«ü©wÀɮשθê®Æ§¨ªº¤é´Á©M®É¶¡¡C°ßŪ¡C
  13.              Workbooks.Open "C:\¤U¸ü¸ê®Æ\" & f
  14.          End If
  15.         f = Dir
  16.     Loop
  17. End Sub
  18. ub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD