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

die78325

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­Ì¸Ñµª   !!

stillfish00

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

die78325

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

Hsieh

¦^´_ 3# die78325

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

stillfish00

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

die78325

¦^´_ 5# stillfish00
¦^´_ 4# Hsieh
·PÁ¨â¦ì¤j¤j¨ó§U~~¤w¦¨¥\!

die78325

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

die78325

¦^´_ 4# Hsieh


    ¤j¤j  ­è¦Û¤v¸Õ¤@¤U ¤w¸Ñ¨M¤F.......^^

die78325

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

GBKEE

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