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

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

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-3-11 08:25 ½s¿è

¦^´_ 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.                  'Exit For:Â÷¶}For i = 1 To 7 ³o¦^°é:¤£¦A­«½Æ¦³ªº¸ê®Æ
  24.                 Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò ¤£¦s¤é´Á ªº.csv.....
  25.                 '.............²²¤
  26.             End With
  27.             Ex_Wb.Close False                                    'Ãö³¬ A11220070102ALL_1.csv.....
  28.         Next
  29.         '**************************************
  30.         Ex_File = Dir                                            '¤U¤@­Ó"A112*ALL_1.csv"
  31.         'PS 18# ªºµ{¦¡½X¦³¿ù»~:  18# 43¦æµ{¦¡½X  Ex_File = Dir  ¶·²¾¨ì  Loop ªº«e¤@¦æ Ä~Äò§ä¤U¤@­Ó"A112*ALL_1.csv"
  32.     Loop
  33.         '**************************************
  34.     Application.ScreenUpdating = True
  35.     MsgBox "OK"
  36. End Sub
½Æ»s¥N½X

TOP

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

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD