gkld

¦^´_ 3# gkld


    ¥t¥~¡A³Ìªñ¦Û¤w¤Wºô¬Ý¤F¤@¨Ç¦³ÃövbaªºÂ²³æ±Ð¾Ç¡Aµo²{³o¯u¬O¤@­Ó«Ü¹ê¥Îªº¤u¨ã

      ¨äÀ³¥Î½d³ò¯uªº«Ü¼sªx¡C
      
      ·Q½Ð±Ðª©¤j¡K¡A¦pªG·Q­n¾Ç²ßªº¸Ü¡A¦³±ÀÂ˪º®Ñ³æ¶Ü¡H

gkld

¦^´_ 2# GBKEE


    ·PÁ¡Kª©¤j¡A²{¦b¥¿¦b¤W¯Z¤¤¡K;P

¦^®a¦A¨Ó¸Õ¸Õ¬Ý~

GBKEE

¦^´_ 1# gkld
ActiveSheet  '§@¥Î¤¤ªº¤u§@ªí
¬O¬°¹Ï2 ¤¤ ³y¯ÈÃþ«ü¼Æ

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.     Ex_Path = "¸ê®Æ§¨¸ô®|\"                         '******­×§ï¥¦********
   
5.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
   
6.     If Ex_File = "" Then
   
7.         MsgBox "¨S¦³ A112*ALL_1.csv"
   
8.         Exit Sub
   
9.     End If
   
10.     Application.ScreenUpdating = False
    
11.     Do While Ex_File <> ""
    
12.         Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
    
13.         Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
    
14.         Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
    
15.         With ActiveSheet                                            '§@¥Î¤¤ªº¤u§@ªí
    
16.             Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
    
17.             .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Ex_Date  '¤é´Á¿é¤J
    
18.             .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("A:A").Find(.Range("B1"), lookat:=xlWhole).Offset(, 1)
    
19.             '**** §@¥Î¤¤ªº¤u§@ªí.Range("B1") ¬°¬d¸ß«ü¼ÆªºÃþ§O  *********
    
20.             Ex_Wb.Close                                             'Ãö³¬ A11220070102ALL_1.csv.....
    
21.         End With
    
22.         Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
    
23.     Loop
    
24.     Application.ScreenUpdating = True
    
25.     MsgBox "OK"
    
26. End Sub

½Æ»s¥N½X