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

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

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

½Ð°Ý ¦pªG§Ú¦³¤@­ÓªÑ²¼ªº¸ê®Æ®w¡A¸Ì­±ÀɦW¬OA11220070102ALL_1.csv¡BA11220070103ALL_1.csv¡BA11220070104ALL_1.csv ¡K¡Kµ¥¡A¥Nªí¤£¦P¤é´Á2007/01/02¡B2007/01/03¡B2007/01/04ªºªÑ²¼¸ê®Æ¡A
¸Ó¸ê®Æ®w¸Ì¦³«D±`¦hµ§.csvÀÉ¡A¨C­ÓÀÉ®×¥´¶}
¦p¹Ï
²{¦b§Ú·Q­n±q³o­Ó¸ê®Æ®w¤º¾ã¸Ì¥X¤£¦P¤é´Áªº¾ú¥vªÑ»ù¡A®æ¦¡¦p¹Ï
½Ð°Ý¦p¦ó¥Îvba¼g¥X¨Ó¤F©O¡H±Ï±Ï§Ú§a~ÁÂÁ¤j®a~

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

TOP

¦^´_ 2# GBKEE


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

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

TOP

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

TOP

¦^´_ 4# gkld


    ½Ð°ÝªO¤j¡G
§Ú¶]¥X¨Óªºµ²ªG¬O¡A¦p¹Ï

§Ú¦³±N²Ä18¦æµ{¦¡½X§ï¦¨¦p¤U¡A¥D­n¬O¬°¤F§ì¨ú¸ê®Æ®w¤¤¨C­Ócsvªºrange("b12")­È

       .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("A:A").Find(.Range("B12"), lookat:=xlWhole).Offset(, 1)
      
¤£¾å±o¿ù¦b­þ¨à¡H¨D§UªO¤j«ü¾É¡C·P®¦~

TOP

¦^´_ 5# gkld
¥D­n¬O¬°¤F§ì¨ú¸ê®Æ®w¤¤¨C­Ócsvªºrange("b12")­È  
  1. .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("B12")
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

©_©Ç~¥X¨Óªºµ²ªGÀ³¸Ó¬O·|¨ú¨ì¨C­Ócsvªºrange("b12")¡A«ç»ò¥X¨ÓÁÙ¬O¤£¹ï¡H¡H

ªþ¥ó¬O§Úªº¸ê®Æ®w ¤W¥«.part1.rar (1 MB) ¤W¥«.part2.rar (634.63 KB)

¥i¥H½Ðª©¤j¦A¦¸¸Ñ´b¶Ü¡H·PÁÂ

TOP

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

TOP

¦^´_ 8# GBKEE

¤µ¤Ñ¦^¨Ó´ú¸Õ¡Aµ²ªG¨S°ÝÃD~

·PÁªO¤j¹©¤O¬Û§U

±µµÛ¦Û¤w´N¥i¥H²³æ¦a¥hÅÜ´«¬Û§ì¨úªºÀx¦s®æ¤F!!:D

TOP

¦^´_ 9# gkld
¦A½Ð±Ð¤@­Ó°ÝÃD¡A§Ú¨Ò¥ÎªO¤j±Ðªº¤è¦¡¡A¶]¥X²Ä¤@­Ó1101¥xªd¤u§@ªí ¡Aµ{¦¡½X¦p¤U¡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
  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.     Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
  13.     Do While Ex_File <> ""
  14.         Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  15.         Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  16.         Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  17.         With ActiveSheet                                            '§@¥Î¤¤ªº¤u§@ªí
  18.             Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  19.             '************************************************
  20.             .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Ex_Date  '¤é´Á¿é¤J
  21.             If Ex_Wb.Sheets(1).Range("B3") <> "" Then
  22.                 .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find("¥xªd", lookat:=xlWhole).Offset(, 7)
  23.                 .Cells(.Rows.Count, "e").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find("¥xªd", lookat:=xlWhole).Offset(, 4)
  24.                 .Cells(.Rows.Count, "f").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find("¥xªd", lookat:=xlWhole).Offset(, 5)
  25.                 .Cells(.Rows.Count, "g").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find("¥xªd", lookat:=xlWhole).Offset(, 6)
  26.                 .Cells(.Rows.Count, "i").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find("¥xªd", lookat:=xlWhole).Offset(, 1)
  27.                     
  28.             Else
  29.                 .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  30.                 .Cells(.Rows.Count, "e").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  31.                 .Cells(.Rows.Count, "f").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  32.                 .Cells(.Rows.Count, "g").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  33.                 .Cells(.Rows.Count, "i").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  34.                 '**** ­×§ï§@¥Î¤¤ªº¤u§@ªí.Range("B1") ¬°¬d¸ß«ü¼ÆªºÃþ§O  *********
  35.             End If
  36.             '************************************************
  37.             Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  38.         End With
  39.         Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  40.     Loop
  41.     Application.ScreenUpdating = True
  42.     MsgBox "OK"
  43. End Sub
½Æ»s¥N½X
«á¨Ó¡A§Ú·Q¦b·s¼W¦n´X­Ó¤u§@ªí¡A¦p1102¨Èªd¡F1103¹Åªd¡F¡Kµ¥¤@ª½¨ì1110ªFªd¡A¦@7­Ó¤u§@ªí

µ{¦¡½X¦p¤U¡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
  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.     Range("a1:ag65536").Clear '®ø°£¨C¤@¦æ¸ê®Æ
  13.     For i = 1 To 7
  14.     If i = 1 Then Name = "¥xªd"
  15.     End If
  16.     If i = 2 Then Name = "¨Èªd"
  17.     End If
  18.     If i = 3 Then Name = "¹Åªd"
  19.     End If
  20.     If i = 4 Then Name = "Àôªd"
  21.     End If
  22.     If i = 5 Then Name = "©¯ºÖ"
  23.     End If
  24.     If i = 6 Then Name = "«H¤j"
  25.     End If
  26.     If i = 7 Then Name = "ªFªd"
  27.     End If
  28.     Do While Ex_File <> ""
  29.         Ex_Date = Replace(Ex_File, "A112", "")                     '®ø°£ÀɦW¤¤"A112"
  30.         Ex_Date = Replace(Ex_Date, "ALL_1.csv", "")                '®ø°£ÀɦW¤¤"ALL_1.csv"
  31.         Ex_Date = DateSerial(Mid(Ex_Date, 1, 4), Mid(Ex_Date, 5, 2), Mid(Ex_Date, 7, 2)) '±a¤J¤é´Á
  32.         With ActiveSheet                                            '§@¥Î¤¤ªº¤u§@ªí
  33.             Set Ex_Wb = Workbooks.Open(Ex_Path & Ex_File)           '¶}±Ò A11220070102ALL_1.csv.....
  34.             '************************************************
  35.             .Cells(.Rows.Count, "A").End(xlUp).Offset(1) = Ex_Date  '¤é´Á¿é¤J
  36.             If Ex_Wb.Sheets(1).Range("B3") <> "" Then
  37.                 Sheet(i).Cells(.Rows.Count, "B").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find(Name, lookat:=xlWhole).Offset(, 7)
  38.                 Sheet(i).Cells(.Rows.Count, "e").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find(Name, lookat:=xlWhole).Offset(, 4)
  39.                 Sheet(i).Cells(.Rows.Count, "f").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find(Name, lookat:=xlWhole).Offset(, 5)
  40.                Sheet(i).Cells(.Rows.Count, "g").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find(Name, lookat:=xlWhole).Offset(, 6)
  41.                 Sheet(i).Cells(.Rows.Count, "i").End(xlUp).Offset(1) = Ex_Wb.Sheets(1).Range("b:b").Find(Name, lookat:=xlWhole).Offset(, 1)
  42.                     
  43.             Else
  44.                 .Cells(.Rows.Count, "B").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  45.                 .Cells(.Rows.Count, "e").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  46.                 .Cells(.Rows.Count, "f").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  47.                 .Cells(.Rows.Count, "g").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  48.                 .Cells(.Rows.Count, "i").End(xlUp).Offset(1) = "---"   '**¨S¦³¸ê®Æ
  49.                 '**** ­×§ï§@¥Î¤¤ªº¤u§@ªí.Range("B1") ¬°¬d¸ß«ü¼ÆªºÃþ§O  *********
  50.             End If
  51.             '************************************************
  52.             Ex_Wb.Close False                                       'Ãö³¬ A11220070102ALL_1.csv.....
  53.         End With
  54.         Ex_File = Dir                                               '¤U¤@­Ó"A112*ALL_1.csv"
  55.     Loop
  56.     Application.ScreenUpdating = True
  57.     MsgBox "OK"
  58. End Sub
½Æ»s¥N½X
¥Î«Ü²Â©åªº¤è¦¡¥h¼g¡A«o¶]¤£¥Xµ²ªG¨Ó¡A¥X²{¿ù»~¡K¡A¥i¥H½ÐªO¤j¼·ªÅÀ°§Ú¬Ý¬Ý¶Ü¡H

TOP

        ÀR«ä¦Û¦b : §Ú­Ì³Ì¤jªº¼Ä¤H¤£¬O§O¤H¡D¥i¯à¬O¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD