ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ½Ð°Ý¦pªG¦³¤@­ÓªÑ²¼¸ê®Æ®w¡A¦p¦ó¨Ï¥Îvba¡K

¦^´_ 10# 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 ', Ar() As String, Ex_Name As String
  5.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\¤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.     'Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
  13.     For i = 1 To 7
  14.        '** Name ¬OVBA©Ò¥ÎªºÃöÁä¦r¦ê,ÁקK¨Ï¥Î¬°ÅܼƦWºÙ.
  15.        ' If i = 1 Then Ex_Name = "¥xªd"
  16.        ' If i = 2 Then Ex_Name = "¨Èªd"
  17.        ' If i = 3 Then Ex_Name = "¹Åªd"
  18.        ' If i = 4 Then Ex_Name = "Àôªd"
  19.        ' If i = 5 Then Ex_Name = "©¯ºÖ"
  20.        ' If i = 6 Then Ex_Name = "«H¤j"
  21.        ' If i = 7 Then Ex_Name = "ªFªd"
  22.       
  23.         With Sheets(i)                                                '¨Ì¤u§@ªí¯Á¤Þ­È«ü©w¤u§@ªí
  24.         '****¤u§@ªí¦WºÙ ¦b¬¡­¶Ã¯µøµ¡±Æ§Ç¦p¬O¨ÌIF i=1¦p¦¹¶¶§Ç***
  25.         '***¨º´N¤£»Ý³o¨ÇIF i=1 ...........
  26.       
  27.         'With Sheets(Ex_Name)                                          '¨ÌEx_Name «ü©w¤u§@ªí
  28.         '****¦p¦b¬¡­¶Ã¯µøµ¡¤u§@ªí¦WºÙ±Æ§Ç¤£¬O¦p¦¹¶¶§Ç***
  29.         '***¨º´N»Ý­n³o¨ÇIF i=1 ...........
  30.       
  31.         'With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
  32.             .Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
  33.             Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  34.             Do While Ex_File <> ""
  35.                 Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  36.                 Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  37.                 Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  38.                
  39.                 Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  40.                 '************************************************
  41.                 Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
  42.                 Set Rng = Ex_Wb.Sheets(1).Range("b:b").Find(.Name, lookat:=xlWhole)
  43.                  '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '** °O¿ý©Ò¦³¤é´Á***
  44.                 If Not Rng Is Nothing Then
  45.                     .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
  46.                     .Cells(Ex_Row, "B") = Rng.Offset(, 7)
  47.                     .Cells(Ex_Row, "e") = Rng.Offset(, 4)
  48.                     .Cells(Ex_Row, "f") = Rng.Offset(, 5)
  49.                     .Cells(Ex_Row, "g") = Rng.Offset(, 6)
  50.                     .Cells(Ex_Row, "i") = Rng.Offset(, 1)
  51.                 End If
  52.                 '************************************************
  53.                 Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  54.                 Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  55.             Loop
  56.         End With
  57.     Next
  58.     Application.ScreenUpdating = True
  59.     MsgBox "OK"
  60. End Sub
½Æ»s¥N½X

TOP

¼ö¤ßªºªO¤j¡G

«ç»ò·|¥X²{¡y½sĶ¿ù»~¡A¦³next«o¨S¦³for¡zªº¹ï¸Ü¤è¶ô¡H

§Ú¤@±ø¤@±ø¬Ýµ{¦¡½X¡A©ú©ú´N¦³for¶Ü¡H¤£´N¬Ofor i=1 to 7¡A²Ä13¦æ¨º¨à¶Ü¡H

TOP

¦^´_ 12# gkld
¤£¦n·N«ä¡KªO¤j¡K§Ú§ä¨ì­ì¦]¤F
¬O§Ú±Nµ{¦¡½X¤é¤F¨ÇªF¦è-____-#
²{¦b§ï¦^¨Ó¡A´ú¸Õ¨S°ÝÃD¤F~
«¢«¢«¢¡K¶}¤ß~
·P®¦¤X!!
Ä~Äò¬ã¨s¬ã¨s :)

TOP

¦^´_ 13# gkld
¤W¶Ç°µ¦nªº­ÓªÑ¸ê®Æ¹Ï¤ù¡A¨Ñ¹³§Ú¤@¼Ëªº·s¤â°Ñ¦Ò
¥t¥~´£¨Ñ©Ò½Í¨ìªº¸ê®Æ¹Ïµ{¦¡ 1.rar (17.65 KB)
·íµM¤p§Ì¨S¦³¨º»ò¼F®`¡A·Q·íµM¤]¬Oºô¸ô¤W¼ö¤ßªº¥ý¶i­Ì´£¨Ñ¡A
ÁöµM¤é´Á³¡¤À±o¤â°Êkeyin¡A¤£¹L§Ú­Ó¤H¤wı±o«Üº¡¨¬¤F
¥u­n¦A±NªO¤jªº«ü¾É¥[¶i¥h©Ò±o¡A´N¥i¥H°µ¥X¨CÀɭӪѾú¥v¸ê®Æ°Õ!!

TOP

¦^´_ 11# GBKEE
½Ð°ÝªO¤j¡K
±zªº³o­Ó¤è¦¡¡A§Ú¥Î¤F¤@°}¤l
«á¨Óµo²{¡A¦pªG§Ú¦³´Xµ§·s³Ìªñ¤é´Áªº¸ê®Æ¡A¦pA11220130307ALL_1.csv¡K­n©ñ¤JªÑ²¼¸ê®Æ®w¸Ì¡A
°õ¦æ±z±Ðªº³o­Óvbaªº¸Ü¡A¥¦·|¾ã­Ó±q¸ê®Æ®w¸Ìªº¨Cµ§Â¤é´Á¸ê®Æ­«·s¶]¹L¡A¬D¥X¨Ó­«·s±Æ¦C
³o¼Ë«Ü®ö¶O®É¶¡
¦³¿ìªk°õ¦ævbaªº®É­Ô¡A¤£¥Î¦A¥h§ì¤é´Áªº¸ê®Æ¡A¥u¹ï·sµ§¸ê®Æ°µ·s¼W¥X¨Ó§@¬°¨C¤é¾ú¥vªÑ»ù¶Ü¡H·P®¦

TOP

¦^´_ 15# 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, ar
  4.     Dim Rng As Range, Ex_Row As Integer, i As Integer ', Ar() As String, Ex_Name As String
  5.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\¤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.     ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
  13.     For i = 1 To 7
  14.         With Sheets(ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
  15.             .Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
  16.             Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  17.             Do While Ex_File <> ""
  18.                 Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  19.                 Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  20.                 Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  21.                 '*****³]¤U¤é´Á±ø¥ó ¤@©P¤ºªº¤é´Á
  22.                 If CDate(Ex_Date) + 6 >= Date Then
  23.                     Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  24.                     Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
  25.                     Set Rng = Ex_Wb.Sheets(1).Range("b:b").Find(.Name, lookat:=xlWhole)
  26.                     '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '** °O¿ý©Ò¦³¤é´Á***
  27.                     If Not Rng Is Nothing Then
  28.                         .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
  29.                         .Cells(Ex_Row, "B") = Rng.Offset(, 7)
  30.                         .Cells(Ex_Row, "e") = Rng.Offset(, 4)
  31.                         .Cells(Ex_Row, "f") = Rng.Offset(, 5)
  32.                         .Cells(Ex_Row, "g") = Rng.Offset(, 6)
  33.                         .Cells(Ex_Row, "i") = Rng.Offset(, 1)
  34.                     End If
  35.                     Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  36.                 End If   '*****  ¤@©P¤ºªº¤é´Á
  37.                 Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  38.             Loop
  39.         End With
  40.     Next
  41.     Application.ScreenUpdating = True
  42.     MsgBox "OK"
  43. End Sub
½Æ»s¥N½X

TOP

¦^´_ 16# GBKEE
­ü§r¡KªO¤j
§Ú·Q¬O§Úªºªí¹F¤è¦¡Åý§A»~·|¦¨¡A§Ú¥u­nºI¨úªñ1¶gªº¸ê®Æ¦Ó¤w
¨ä¹ê¬O¨º­ÓªÑ²¼ªº¸ê®Æ®w¡A¨C¤Ñ³£·|¦³·sªº¸ê®Æ¶i¨Ó¡AµM«á§Ú°õ¦æ
  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 ', Ar() As String, Ex_Name As String
  5.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\¤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.     'Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
  13.     For i = 1 To 7
  14.        '** Name ¬OVBA©Ò¥ÎªºÃöÁä¦r¦ê,ÁקK¨Ï¥Î¬°ÅܼƦWºÙ.
  15.        ' If i = 1 Then Ex_Name = "¥xªd"
  16.        ' If i = 2 Then Ex_Name = "¨Èªd"
  17.        ' If i = 3 Then Ex_Name = "¹Åªd"
  18.        ' If i = 4 Then Ex_Name = "Àôªd"
  19.        ' If i = 5 Then Ex_Name = "©¯ºÖ"
  20.        ' If i = 6 Then Ex_Name = "«H¤j"
  21.        ' If i = 7 Then Ex_Name = "ªFªd"
  22.       
  23.         With Sheets(i)                                                '¨Ì¤u§@ªí¯Á¤Þ­È«ü©w¤u§@ªí
  24.         '****¤u§@ªí¦WºÙ ¦b¬¡­¶Ã¯µøµ¡±Æ§Ç¦p¬O¨ÌIF i=1¦p¦¹¶¶§Ç***
  25.         '***¨º´N¤£»Ý³o¨ÇIF i=1 ...........
  26.       
  27.         'With Sheets(Ex_Name)                                          '¨ÌEx_Name «ü©w¤u§@ªí
  28.         '****¦p¦b¬¡­¶Ã¯µøµ¡¤u§@ªí¦WºÙ±Æ§Ç¤£¬O¦p¦¹¶¶§Ç***
  29.         '***¨º´N»Ý­n³o¨ÇIF i=1 ...........
  30.       
  31.         'With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
  32.           [s][color=Red]  .Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ[/color][/s]
  33.             Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  34.             Do While Ex_File <> ""
  35.                 Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  36.                 Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  37.                 Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  38.                
  39.                 Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  40.                 '************************************************
  41.                 Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
  42.                 Set Rng = Ex_Wb.Sheets(1).Range("b:b").Find(.Name, lookat:=xlWhole)
  43.                  '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '** °O¿ý©Ò¦³¤é´Á***
  44.                 If Not Rng Is Nothing Then
  45.                     .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
  46.                     .Cells(Ex_Row, "B") = Rng.Offset(, 7)
  47.                     .Cells(Ex_Row, "e") = Rng.Offset(, 4)
  48.                     .Cells(Ex_Row, "f") = Rng.Offset(, 5)
  49.                     .Cells(Ex_Row, "g") = Rng.Offset(, 6)
  50.                     .Cells(Ex_Row, "i") = Rng.Offset(, 1)
  51.                 End If
  52.                 '************************************************
  53.                 Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  54.                 Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  55.             Loop
  56.         End With
  57.     Next
  58.     Application.ScreenUpdating = True
  59.     MsgBox "OK"
  60. End Sub
½Æ»s¥N½X
¨C³£³£·|³s¦Pªº¸ê®Æ¤@°_­«§ì­«¶]¡A®É¶¡Ïû¶O¤£¤Ö
§Ú·Q­nªºµ²ªG¬O¤§«e°õ¦æ«áªºÂ¸ê®Æ·|¯dµÛ¡A¨C·í§Ú¦³¤@µ§·s¸ê®Æ¶i¨Ó®É¡A´N¥u­n¶]·sªº¸ê®Æ·s¼W´N¦n
¦]¬°§Úvb¤£¦n¡A¨Sªk¤l¹³ªO¤j¤@¼Ë¡A¥i¥H¼g¥X¤ñ¹ï¸ê®Æ®w¸Ìªºdata¡A¥u§â·s¶i¨Óªºdata§ì¥X¨Ó¡A
«á¨Ó­è¦Y±ßÀ\®É¡A¬ðµM·Q¨ì¥t¤@­Ó¸Ñ¨M¤è¦¡
§Ú±N·sªºdata©ñ¶i¥t¤@­Ó·sªº¸ê®Æ§¨¡AµM«á¤£­n®ø°£¨C¤@¦æªº¸ê®Æ¡A§Y°õ¦æ¥H¤Uµ{¦¡½X
Option Explicit
Sub Ex()
    Dim Ex_Path As String, Ex_File As String, Ex_Date As String, Ex_Wb As Workbook
    Dim Rng As Range, Ex_Row As Integer, i As Integer ', Ar() As String, Ex_Name As String
    Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\·s¸ê®Æ§¨\"
    Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
    If Ex_File = "" Then
        MsgBox "¨S¦³ A112*ALL_1.csv"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    'Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
    For i = 1 To 7
       '** Name ¬OVBA©Ò¥ÎªºÃöÁä¦r¦ê,ÁקK¨Ï¥Î¬°ÅܼƦWºÙ.
       ' If i = 1 Then Ex_Name = "¥xªd"
       ' If i = 2 Then Ex_Name = "¨Èªd"
       ' If i = 3 Then Ex_Name = "¹Åªd"
       ' If i = 4 Then Ex_Name = "Àôªd"
       ' If i = 5 Then Ex_Name = "©¯ºÖ"
       ' If i = 6 Then Ex_Name = "«H¤j"
       ' If i = 7 Then Ex_Name = "ªFªd"
      
        With Sheets(i)                                                '¨Ì¤u§@ªí¯Á¤Þ­È«ü©w¤u§@ªí
        '****¤u§@ªí¦WºÙ ¦b¬¡­¶Ã¯µøµ¡±Æ§Ç¦p¬O¨ÌIF i=1¦p¦¹¶¶§Ç***
        '***¨º´N¤£»Ý³o¨ÇIF i=1 ...........
      
        'With Sheets(Ex_Name)                                          '¨ÌEx_Name «ü©w¤u§@ªí
        '****¦p¦b¬¡­¶Ã¯µøµ¡¤u§@ªí¦WºÙ±Æ§Ç¤£¬O¦p¦¹¶¶§Ç***
        '***¨º´N»Ý­n³o¨ÇIF i=1 ...........
      
        'With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
            .Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
            Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
            Do While Ex_File <> ""
                Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
                Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
                Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
               
                Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
                '************************************************
                Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
                Set Rng = Ex_Wb.Sheets(1).Range("b:b").Find(.Name, lookat:=xlWhole)
                 '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '** °O¿ý©Ò¦³¤é´Á***
                If Not Rng Is Nothing Then
                    .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
                    .Cells(Ex_Row, "B") = Rng.Offset(, 7)
                    .Cells(Ex_Row, "e") = Rng.Offset(, 4)
                    .Cells(Ex_Row, "f") = Rng.Offset(, 5)
                    .Cells(Ex_Row, "g") = Rng.Offset(, 6)
                    .Cells(Ex_Row, "i") = Rng.Offset(, 1)
                End If
                '************************************************
                Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
                Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
            Loop
        End With
    Next
    Application.ScreenUpdating = True
    MsgBox "OK"
End Sub
¦n¹³¤]¥i¥H¸Ñ¨M
­ü¡K¥u¯à¥Î²Â¤èªk¤F

TOP

¦^´_ 17# gkld
§Aªº­×§ï¥i¯àÁÙ¬O¤£¥i¥H ¦]³o¦æ  .Range("a1:ag65536").Clear   '·|®ø°£©Ò¦³ªºÂ¸ê®Æ
¸Õ¸Õ¬Ý
  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.    
  9.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  10.     If Ex_File = "" Then
  11.         MsgBox "¨S¦³ A112*ALL_1.csv"
  12.         Exit Sub
  13.     End If
  14.     Application.ScreenUpdating = False
  15.     Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
  16.     Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  17.     Do While Ex_File <> ""
  18.         Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  19.         Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  20.         Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á-> Ex_Date
  21.         For i = 1 To 7
  22.             With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
  23.             'With Wb.Sheets(Ar(i - 1))                                 '«ü©w©w°}¦C¤¤ªº¤u§@ªí¤£¦b¦¹µ{§Ç±M®×ªº¬¡­¶Ã¯¤¤
  24.                 If Not .Columns(1).Find(CDate(Ex_Date), LookIn:=xlFormulas) Is Nothing Then Exit For
  25.                 '***  ¤£¦A­«½Æ¦³¸ê®Æ  ****'CDate(Ex_Date)¤é´Á -> ¤u§@ªíAÄ椤 §ä¨ì¤é´Á(¦³):Â÷¶}¦^°é
  26.                 'CDate¨ç¼Æ   Date¥ô¦ó¥i¨Ï¥Îªº¤é´Á¹Bºâ¦¡¡C

  27.                 Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  28.                 '************************************************
  29.                 Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
  30.                 Set Rng = Ex_Wb.Sheets(1).Range("b:b").Find(.Name, LookAt:=xlWhole)
  31.                  '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '** °O¿ý©Ò¦³¤é´Á***
  32.                 If Not Rng Is Nothing Then
  33.                     .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
  34.                     .Cells(Ex_Row, "B") = Rng.Offset(, 7)
  35.                     .Cells(Ex_Row, "e") = Rng.Offset(, 4)
  36.                     .Cells(Ex_Row, "f") = Rng.Offset(, 5)
  37.                     .Cells(Ex_Row, "g") = Rng.Offset(, 6)
  38.                     .Cells(Ex_Row, "i") = Rng.Offset(, 1)
  39.                 End If
  40.             End With
  41.             Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  42.             Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  43.         Next
  44.     Loop
  45.     Application.ScreenUpdating = True
  46.     MsgBox "OK"
  47. End Sub
½Æ»s¥N½X

TOP

¦^´_ 18# GBKEE
§r¡K
ªO¥D»¡ªº¨S¦³¿ù¡A¦]³o¦æ  .Range("a1:ag65536").Clear   '·|®ø°£©Ò¦³ªºÂ¸ê®Æ¡A§Ú¬Q±ß¦³§â¥¦§R°£
¸Õ¹L³o¼Ë¬O¥i¥H¡A¬Q±ß§Úpoªºµ{¦¡½X¡A§Ñ¤F§â³o¦æ§ï±¼¡A¥u­n±N®ø°£©Ò¦³ªºÂ¸ê®Æªºµ{¦¡½X¨º¦æ®³±¼¡A³z¹L¥Î¨â­Ó¸ê®Æ§¨ªº¤è¦¡ÁÙ¬O¦³¦¨¥\

§Ú²{¦b¨Ó¸Õ¸ÕªOªº¤èªk¬Ý¬Ý~

TOP

¦^´_ 18# GBKEE
ªO¤j¡K¦pªGµ{¦¡½X¦p¤U
  1. Sub Ex()
  2.     Dim Ex_Path As String, Ex_File As String, Ex_Date As String, Ex_Wb As Workbook
  3.     Dim Rng As Range, Ex_Row As Integer, i As Integer ', Ar() As String, Ex_Name As String
  4.     Ex_Path = "C:\Documents and Settings\gkld\®à­±\my kp\¸ê®Æ®w\old ¤W¥«\"
  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.     'Ar = Array("¥xªd", "¨Èªd", "¹Åªd", "©¯ºÖ", "«H¤j", "ªFªd")
  12.     For i = 2 To 8
  13.        '** Name ¬OVBA©Ò¥ÎªºÃöÁä¦r¦ê,ÁקK¨Ï¥Î¬°ÅܼƦWºÙ.
  14.        ' If i = 1 Then Ex_Name = "¥xªd"
  15.        ' If i = 2 Then Ex_Name = "¨Èªd"
  16.        ' If i = 3 Then Ex_Name = "¹Åªd"
  17.        ' If i = 4 Then Ex_Name = "Àôªd"
  18.        ' If i = 5 Then Ex_Name = "©¯ºÖ"
  19.        ' If i = 6 Then Ex_Name = "«H¤j"
  20.        ' If i = 7 Then Ex_Name = "ªFªd"
  21.       
  22.         With Sheets(i)                                                '¨Ì¤u§@ªí¯Á¤Þ­È«ü©w¤u§@ªí
  23.         '****¤u§@ªí¦WºÙ ¦b¬¡­¶Ã¯µøµ¡±Æ§Ç¦p¬O¨ÌIF i=1¦p¦¹¶¶§Ç***
  24.         '***¨º´N¤£»Ý³o¨ÇIF i=1 ...........
  25.       
  26.         'With Sheets(Ex_Name)                                          '¨ÌEx_Name «ü©w¤u§@ªí
  27.         '****¦p¦b¬¡­¶Ã¯µøµ¡¤u§@ªí¦WºÙ±Æ§Ç¤£¬O¦p¦¹¶¶§Ç***
  28.         '***¨º´N»Ý­n³o¨ÇIF i=1 ...........
  29.       
  30.         'With Sheets(Ar(i - 1))                                      '«ü©w©w°}¦C¤¤ªº¤u§@ªí¦WºÙ
  31.             .Range("m1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
  32.             .Range("a1") = "¤é´Á"           '»s§@ªíÀY
  33.             .Range("b1") = "¦¬½L"
  34.             .Range("c1") = "º¦¶^"
  35.             .Range("d1") = "º¦¶^²v"
  36.             .Range("e1") = "¶}½L"
  37.             .Range("f1") = "³Ì°ª"
  38.             .Range("g1") = "³Ì§C"
  39.             .Range("h1") = "¦¨¥æ¶q(³æ¦ì)"
  40.             .Range("i1") = "¦¨¥æ¶q"
  41.             Ex_File = Dir(Ex_Path & "A112*ALL_1.csv")
  42.             Do While Ex_File <> ""
  43.                 Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  44.                 Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  45.                 Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  46.          If .Columns(1).Find(CDate(Ex_Date), LookIn:=xlFormulas) Is Nothing Then Ex_File = Dir
  47.          '***  ¤£¦A­«½Æ¦³¸ê®Æ ****'CD(EX_Date)¤é´Á->¤u§@ªíAÄ椤§ä¨ì¤é´Á¶¡(¦³)¡GÂ÷¶}¦^°é
  48.          
  49.          
  50.                     Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  51.                 '************************************************
  52.                 Ex_Row = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row '¨ú±o¸ê®Æ¿é¤Jªº¦C¸¹
  53.                 Set Rng = Ex_Wb.Sheets(1).Range("a:a").Find(.Name, lookat:=xlWhole)
  54.                  '.Cells(Ex_Row, "A") = Ex_Date  '¤é´Á¿é¤J         '***°O¿ý©Ò¦³¤é´Á***
  55.                 If Not Rng Is Nothing Then
  56.                     .Cells(Ex_Row, "A") = Ex_Date '¤é´Á¿é¤J  ¦p²¾¨ì³o¸Ì '** ¥u°O¿ý¦³¸ê®Æªº¤é´Á
  57.                     .Cells(Ex_Row, "B") = Rng.Offset(, 8)
  58.                     .Cells(Ex_Row, "e") = Rng.Offset(, 5)
  59.                     .Cells(Ex_Row, "f") = Rng.Offset(, 6)
  60.                     .Cells(Ex_Row, "g") = Rng.Offset(, 7)
  61.                     .Cells(Ex_Row, "i") = Rng.Offset(, 2)
  62.                 End If
  63.                 '************************************************
  64.                 Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  65.       
  66.                 Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  67.             Loop
  68.         End With
  69.     Next
  70.     Application.ScreenUpdating = True
  71.     MsgBox "OK"
  72. End Sub
½Æ»s¥N½X
¨º»ò

         If .Columns(1).Find(CDate(Ex_Date), LookIn:=xlFormulas) Is Nothing Then Ex_File = Dir
         '***  ¤£¦A­«½Æ¦³¸ê®Æ ****'CD(EX_Date)¤é´Á->¤u§@ªíAÄ椤§ä¨ì¤é´Á¶¡(¦³)¡GÂ÷¶}¦^°é

¸Ó©ñ¦b­þ¨à¡A¤~¯à°õ¦æ¦¨¥\¡H

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD