GBKEE

¦^´_ 1# taiwan
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xDir As String, i As Integer, Ay(), Ar(), s As Variant
   
4.     Dim xPath As String
   
5.     xPath = "A:\"
   
6.     xDir = Dir(xPath & Format(Date, "yyyy-mm-dd") & "*.xls", vbDirectory)
   
7.     'Dir: ªí¥Ü¦X¥G±ø¥ó¡BÀÉ®×ÄÝ©Ê¡BºÏºÐ¼Ð°Oªº¤@­ÓÀɮצWºÙ¡B©Î¥Ø¿ý¡BÀɮק¨¦WºÙ¡C
   
8.     If xDir = "" Then MsgBox "¨S¦³³Ì·sÀÉ®×": Exit Sub
   
9.     Do While xDir <> ""
   
10.         ReDim Preserve Ar(0 To i)   '°}¦C:«O«ù­ì¦³¤¸¯À,­«·s°t¸m°ÊºA°}¦CÅܼƪºÀx¦sªÅ¶¡¡C
    
11.         ReDim Preserve Ay(0 To i)
    
12.         Ar(i) = xDir
    
13.         Ay(i) = Val(Replace(Split(xDir, " ")(1), ".xls", "")) '¨ú±o¼Æ¦r
    
14.         i = i + 1
    
15.         xDir = Dir                  '¤U¤@­Ó ¦X¥G±ø¥óªºÀÉ®×
    
16.     Loop
    
17.     s = Application.Max(Ay)
    
18.     s = Application.Match(s, Ay, 0)
    
19.     If MsgBox("¶}±Ò³Ì·s  ÀÉ®× " & vbTab & Ar(s - 1) & vbLf & Join(Ar, vbLf), vbYesNo) = vbYes Then
    
20.         Workbooks.Open xPath & Ar(s - 1)
    
21.     End If
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# taiwan
¦³ÂI¬Ý¤£¤ÓÀ´
ºCºC¨Ó,¤£À´ªº¨ç¼Æ,¤èªk ¥i¹î¬Ývbaªº»¡©ú

DIR ·|¨ÌÀɮצWºÙ»¼¼W¨Ó±Æ§Ç
2#ªºµ{¦¡½X¥i­×§ï¤@¤U

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xPath As String, xDir As String, S As String
   
4.     xPath = "A:\"
   
5.     xDir = Dir(xPath & Format(Date, "yyyy-mm-dd") & "*.xls", vbDirectory)
   
6.     'Dir: ªí¥Ü¦X¥G±ø¥ó¡BÀÉ®×ÄÝ©Ê¡BºÏºÐ¼Ð°Oªº¤@­ÓÀɮצWºÙ¡B©Î¥Ø¿ý¡BÀɮק¨¦WºÙ¡C
   
7.     If xDir = "" Then MsgBox "¨S¦³³Ì·sÀÉ®×": Exit Sub
   
8.     Do While xDir <> ""
   
9.         S = xDir
   
10.         xDir = Dir                  '¤U¤@­Ó ¦X¥G±ø¥óªºÀÉ®×
    
11.     Loop
    
12.     If MsgBox("¶}±Ò³Ì·s  ÀÉ®× " & vbTab & S, vbYesNo) = vbYes Then
    
13.         Workbooks.Open xPath & S
    
14.     End If
    
15. End Sub

½Æ»s¥N½X