gkld

¦^´_ 20# gkld

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ex_Path As String, Ex_File As String, Ex_Date As String, Ex_Wb As Workbook
   
4.     Dim Rng As Range, Ex_Row As Integer, i As Integer
   
5.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\old ¤W¥«\"
   
6.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
   
7.     If Ex_File = "" Then
   
8.         MsgBox "¨S¦³ A112*ALL_1.csv"
   
9.         Exit Sub
   
10.     End If
    
11.     Application.ScreenUpdating = False
    
12.   
    
13.     For i = 2 To 8
    
14.    
    
15.         With Sheets(i)
    
16.         
    
17.             .Range("a1") = "¤é´Á"           '»s§@ªíÀY
    
18.             .Range("b1") = "¦¬½L"
    
19.             .Range("c1") = "º¦¶^"
    
20.             .Range("d1") = "º¦¶^²v"
    
21.             .Range("e1") = "¶}½L"
    
22.             .Range("f1") = "³Ì°ª"
    
23.             .Range("g1") = "³Ì§C"
    
24.             .Range("h1") = "¦¨¥æ¶q(³æ¦ì)"
    
25.             .Range("i1") = "¦¨¥æ¶q"
    
26.             Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
    
27.             Do While Ex_File <> ""
    
28.                 Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
    
29.                 Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
    
30.                 Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
    
31.                 If Not .Columns(1).Find(CDate(Ex_Date), LookIn:=xlFormulas) Is Nothing Then Exit For
    
32.                 '***  ¤£¦A­«½Æ¦³¸ê®Æ  ****'CDate(Ex_Date)¤é´Á -> ¤u§@ªíAÄ椤 §ä¨ì¤é´Á(¦³):Â÷¶}¦^°é
    
33.                 'CDate¨ç¼Æ   Date¥ô¦ó¥i¨Ï¥Îªº¤é´Á¹Bºâ¦¡¡C
    
34.                     Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
    
35.                 '************************************************
    
36.                 Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
    
37.                 Set Rng = Ex_Wb.Sheets(1).Range("a:a").Find(.Name, LookAt:=xlWhole)
    
38.             
    
39.                 If Not Rng Is Nothing Then
    
40.                     .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
    
41.                     .Cells(Ex_Row, "B") = Rng.Offset(, 8)
    
42.                     .Cells(Ex_Row, "e") = Rng.Offset(, 5)
    
43.                     .Cells(Ex_Row, "f") = Rng.Offset(, 6)
    
44.                     .Cells(Ex_Row, "g") = Rng.Offset(, 7)
    
45.                     .Cells(Ex_Row, "i") = Rng.Offset(, 2)
    
46.                 End If
    
47.                 '************************************************
    
48.                 Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
    
49.                ' End If                                                            '*****¤@©P¤ºªº¤é´Á
    
50.                 Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
    
51.             Loop
    
52.         End With
    
53.     Next
    
54.     Application.ScreenUpdating = True
    
55.     MsgBox "OK"
    
56. End Sub

½Æ»s¥N½X

©ñªº¦ì¸m¦p¤W¡A§Ú°õ¦æªº®É­Ô¡A´Nª½±µ¸õ¥X§Úªºi=2 to 8 ³o­Ó¦^°é¤F

¸Ó¦p¦ó¸Ñ¨M¡H

GBKEE

¦^´_ 21# gkld
»¡©ú18#µ{¦¡½X½s¼gªºÅÞ¿è

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ex_Path As String, Ex_File As String, Ex_Date As String, Ex_Wb As Workbook
   
4.     Dim Rng As Range, Ex_Row As Integer, i As Integer
   
5.     Dim Ar() As String, Wb As Workbook
   
6.     'Set Wb = Workbooks.Open("D:\ªÑ²¼¸ê®Æ®w.xls")    '¶}±ÒªÑ²¼¸ê®Æ®wªº¬¡­¶Ã¯
   
7.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\¤W¥«\"   
   
8.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
   
9.     If Ex_File = "" Then
   
10.         MsgBox "¨S¦³ A112*ALL_1.csv"
    
11.         Exit Sub
    
12.     End If
    
13.     Application.ScreenUpdating = False
    
14.     Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
    
15.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
    
16.     Do While Ex_File <> ""                    ' ´M§ä *.csv  ªº°j°é
    
17.          '.............²²¤
    
18.         For i = 1 To 7                        '¤u§@ªíªº°j°é
    
19.             With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
    
20.                 '.............²²¤
    
21.                 If Not .Columns(1).Find(CDate(Ex_Date), LookIn:=xlFormulas) Is Nothing Then Exit For
    
22.                 'If Not .Columns(1).Find °j°é¤ñ¹ï¦b¤u§@ªí¤¤¤ñ¹ï¤é´Áªº If ±ø¥ó¦¡
    
23. 
    
24.                  'Exit For:Â÷¶}For i = 1 To 7 ³o¦^°é:¤£¦A­«½Æ¦³ªº¸ê®Æ
    
25.                 Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò ¤£¦s¤é´Á ªº.csv.....
    
26.                 '.............²²¤
    
27.             End With
    
28.             Ex_Wb.Close False                                    'Ãö³¬ A11220070102ALL_1.csv.....
    
29.         Next
    
30.         '**************************************
    
31.         Ex_File = Dir                                            '¤U¤@­Ó"A112*ALL_1.csv"
    
32.         'PS 18# ªºµ{¦¡½X¦³¿ù»~:  18# 43¦æµ{¦¡½X  Ex_File = Dir  ¶·²¾¨ì  Loop ªº«e¤@¦æ Ä~Äò§ä¤U¤@­Ó"A112*ALL_1.csv"
    
33.     Loop
    
34.         '**************************************
    
35.     Application.ScreenUpdating = True
    
36.     MsgBox "OK"
    
37. End Sub

½Æ»s¥N½X

gkld

¦^´_ 22# GBKEE
ok~:D
§Ú¤w­×¥¿§¹¦¨~
·PÁªO¤j²Ó¤ß«ü¾É!!