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

gkld

½Ð°Ý ¦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¹Ï

¤U¸ü (234.45 KB)

2012-12-26 21:50

²{¦b§Ú·Q­n±q³o­Ó¸ê®Æ®w¤º¾ã¸Ì¥X¤£¦P¤é´Áªº¾ú¥vªÑ»ù¡A®æ¦¡¦p¹Ï

¤U¸ü (198.82 KB)

2012-12-26 21:59

½Ð°Ý¦p¦ó¥Îvba¼g¥X¨Ó¤F©O¡H±Ï±Ï§Ú§a~ÁÂÁ¤j®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

gkld

¦^´_ 2# GBKEE


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

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

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

¦^´_ 4# gkld


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

¤U¸ü (207.06 KB)

2012-12-27 14:42

§Ú¦³±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®¦~

GBKEE

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

gkld

¦^´_ 6# GBKEE

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

¤U¸ü (201.81 KB)

2012-12-27 20:35

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

¤U¸ü¦¸¼Æ: 16

2012-12-27 20:37

¤W¥«.part2.rar (634.63 KB)

¤U¸ü¦¸¼Æ: 13

2012-12-27 20:38

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

GBKEE

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

gkld

¦^´_ 8# GBKEE

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

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

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

gkld

¦^´_ 9# gkld
¦A½Ð±Ð¤@­Ó°ÝÃD¡A§Ú¨Ò¥ÎªO¤j±Ðªº¤è¦¡¡A¶]¥X²Ä¤@­Ó1101¥xªd¤u§@ªí

¤U¸ü (260.06 KB)

2012-12-28 23:12

¡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