HSIEN6001

¦^´_ 14# GBKEE

½Ð°ÝGBKEE¤j,¦p¦ó§¹¦¨

»Ý¨D¡G
¸ê®Æ§¨¤º "ANY*.xls" ªº©Ò¦³ÀɦW
¦pªG¸Óªí®æSheets(1).Range("A2") <> "¤é´Á"
´N§R°£¸ÓÀÉ®×.xls

1. Sub Ex()
   
2. Dim F As String, xpath As String, xfile As String
   
3. xpath = "D:\´ú¸Õ\"
   
4. xfile = Dir(xpath & "ANY*.xls")
   
5.     Do While xfile <> ""
   
6.         If Sheets(1).Range("A2") <> "¤é´Á" Then
   
7.             With ActiveWorkbook
   
8.                 F = .FullName      '¶Ç¦^ª«¥óªº¦WºÙ¡A¥]¬A¨äºÏºÐ¸ô®|
   
9.                 .Close 0           'Ãö³¬ÀÉ®×
   
10.             End With
    
11.             Kill F     '§R°£ÀÉ®×"123.xls
    
12.         End If
    
13.         xfile = Dir
    
14.     Loop
    
15. End Sub

½Æ»s¥N½X

°õ¦æµ²ªG·|ª½±µÃö³¬¥¨¶°¸ÓÀÉ®×

HSIEN6001

¦^´_ 12# GBKEE


§Ú²×©ó·Q³q¤F^^
[¤w¸Ñ¨M]

1. Sub EX()
   
2.     Dim F As String, xpath As String, xfile As String
   
3.     xpath = "D:\´ú¸Õ\"   
   
4.     xfile = Dir(xpath & "ANY*.xls")
   
5.     Do While xfile <> ""
   
6.         With Workbooks.Open(xpath & xfile)
   
7.         If Sheets(1).Range("A2") <> "¤é´Á" Then
   
8.             With ActiveWorkbook
   
9.                 F = .FullName      '¶Ç¦^ª«¥óªº¦WºÙ¡A¥]¬A¨äºÏºÐ¸ô®|
   
10.                 .Close 0           'Ãö³¬ÀÉ®×
    
11.             End With
    
12.         End If
    
13.     Kill F     '§R°£ÀÉ®×"123.xls
    
14.         End With
    
15.         xfile = Dir
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X