GBKEE

¦^´_ 1# t8899

1. Option Explicit
   
2. Sub Ma3333()
   
3.     Dim A As Workbook
   
4.     Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd"))
   
5.     Workbooks.Open Filename:="a - 5.xls"
   
6.     'Workbooks.Open Filename:="a - 5" & ".xls"  '©Î¬O
   
7.     Workbooks("a - 5" & ".xls").Activate
   
8.     'Workbooks("a - 5.xls").Activate            '©Î¬O
   
9. End Sub
   
10. Sub Macro2()  '1.°²¦p¶}ªºÀɮצs¦b«h¸õ¨ì123ªº»yªk¬O???
    
11.     '2¥u¯à¶}¨ì 1030401 , ±µ¤U¬O 1030399  ¤£¬O 1030331  ****¬Ý¤£À´???
    
12.     Dim k As Integer, A As String
    
13.     For k = 1 To 15
    
14.     A = "v:\program\supertsc" & "\" & Format(Date, "eemmdd") - k & ".xls"  '§¹¾ãªº¸ô®|ÀɮצWºÙ
    
15.     If Dir(A) <> "" Then   'Àɮצs¦b«h Dir(A)¶Ç¦^ ÀɮצWºÙ
    
16.         Workbooks.Open A
    
17.         Exit For   'Â÷¶}¦^°é
    
18.         ' GoTo 123 '©Î¬O ¨ì 123
    
19.     End If
    
20.   Next
    
21. 123:
    
22. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# t8899

1. Format(Date - k, "eemmdd")

½Æ»s¥N½X

·í«eªº©Ò¦b¥Ø¿ý¨S¦³³oÀÉ®×,·|¦³À³¥Îµ{¦¡©Îª«¥ó©w¸q¿ù»~

1. MsgBox CurDir  '·í«eªº©Ò¦b¥Ø¿ý
   
2. Workbooks.Open Filename:="a - 5.xls"
   
3. 'Workbooks.Open Filename:="§¹¾ã¸ô®|ÀɮצWºÙ.xls"

½Æ»s¥N½X

ÀɮצWºÙªº«á­±¦³¦h¾lªº¤]¥[¤J²Å¦X±ø¥óªº§PÂ_¡A­n«ç»ò§ï?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim k
   
4.     k = "1030407.xls"
   
5.     If k Like "#######.xls" Then MsgBox k   '# ->¼Æ¦r
   
6.     k = "1030407.xls"
   
7.     If k Like "######.xls" Then MsgBox k    '? ->¦r¤¸
   
8.     k = "1030407 adef.xls"
   
9.     If k Like "####### ????.xls" Then MsgBox k
   
10.     k = "1030407 adef.xls"
    
11.     If k Like "####### ???.xls" Then MsgBox k
    
12.     k = "1030407 bf.xls"
    
13.     If k Like "####### ??.xls" Then MsgBox k
    
14.     k = "1030407 bf.xls"
    
15.     If k Like "####### ???.xls" Then MsgBox k
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# t8899
Set ->«ü©wÅܼƬ°ª«¥ó

1. Set A = Workbooks.Open("v:\program\supertsc\" & Format(Date, "eemmdd"))

½Æ»s¥N½X

Workbooks.Open ¬O¶}±ÒÀɮתº«ü¥O

GBKEE

¦^´_ 9# t8899

1.    Dim K As Integer, B As String
   
2.     For K = 0 To 0
   
3.     B = "v:\program\supertsc" & "\" & 1030403 - K & "?????" & ".xls" '§¹¾ãªº¸ô®|ÀɮצWºÙ
   
4.     '½Ð§A¥²¶·ª¾¹D  1030403 - K & "?????" & ".xls" <> 1030403ª`·N¦³°ÝÃD.xls
   
5.         [o1] = B
   
6.          MsgBOX Dir(B)   '¥iª¾Àɮ׬O§_¦s¦b
   
7.          If Dir(B) <> "" Then
   
8.       Workbooks.Open Filename:=B
   
9.        end if
   
10.         next
    
11. 
    
12. ÀɦW¬° 1030403ª`·N¦³°ÝÃD.xls

½Æ»s¥N½X

GBKEE

¦^´_ 11# t8899

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim S As String
   
4.     S = Dir("C:\*.xls")   '¶Ç¦^¦r¦ê: °ÆÀɦW¬°xlsªºÀÉ®×
   
5.     Do While S <> ""
   
6.         If S Like "1030415*" Then MsgBox S
   
7.         S = Dir            'Ä~Äò¨Ì¤W¤@¦¸ªº±ø¥ó, ¶Ç¦^¦r¦ê: °ÆÀɦW¬°xlsªºÀÉ®×
   
8.     Loop
   
9. End Sub

½Æ»s¥N½X