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

[µo°Ý] ¦p¦ó©îÀÉ©Mµ²¦X·s´¡¤Jªº«ü©w¤å¦rÀÉ

[µo°Ý] ¦p¦ó©îÀÉ©Mµ²¦X·s´¡¤Jªº«ü©w¤å¦rÀÉ

¦U¦ì¤j¤j

§Ú¦³1­Ó¤å¦rÀÉ¥Ñ300­ÓÀÉ®×¥ª¥k²Õ¦X¦Ó¦¨,¨Ã¥Ñ¬A©·°Ï¹j¦p¤U»¡©ú
1.¶}±ÒTEST.21csv¤å¦rÀÉ,¸ÓÀɥѦh­Ócsv¤å¦rÀɲզ¨,¨£¬A©·¤º[*ÀɦW*],
¦pA01.csv,CC0001.csv©ME00001.csv,ÀɦW¤U¤è¬°Àɮפº®e,
¥]§t¤£¦P¼Æ¶q²Õ¦Xªº¦æ¦C¼Æ(Àɮפj¤p¤£¬Ûµ¥),
ª½¦ÜªÅ¥Õ¦C«á·|¥X²{[*div*]¬°¸ÓÀɵ²§À
,µM«á¬O±µÄò¤U¤@­ÓÀɦW.

°ÝÃD1:¦p¦ó±NTEST.21csv¤å¦rÀɤºªº¥þ³¡ÀÉ®×,
            ¨Ì·ÓÀɮצW¦r©î¥X¨Ó,
            ¨Ì§Ç©î¦¨A01.csv,CC0001.csv©ME00001.csv.

°ÝÃD2:¦p¦ó§â·s¼Wªº¤å¦rÀɦpBB01.csv©MDD1.csv,
             ¨Ì·Ó­^¤åÀɦW¤å¦r±Æ¦C¶¶§Ç,
            «ö¥ý«á¶¶§Ç¶ñ¤JÀɦW©MÀɧÀµü,
            ©ñ¤J¦ÜTEST21.csv¤å¦rÀÉ
            ¨ÃÂà¦s¦¨¦ÜTEST21OK.csv.
(µ²ªG¦pªþ¥ó)

·Ð½Ð¥ý¶i ¤j¤j«ü¾É

TEST21.rar (23.48 KB)

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-4 12:06 ½s¿è

¦^´_ 1# luke
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Ar, E As Variant, xi As Integer, xlCsv As String, xlPath As String
  4.     Dim Sh(1 To 2) As Worksheet
  5.     xlPath = ThisWorkbook.Path & "\"                                '->­×§ï¬°¥¿½TªºÀɮ׸ô®|
  6.     Set Sh(1) = Workbooks.Open(xlPath & "test21.csv").Sheets(1)
  7.     Set Sh(2) = Sh(1).Parent.Sheets.Add
  8.     Sh(1).Cells.Copy Sh(2).Cells(1)                                 '½Æ»s test21.csv ªº¸ê®Æ                             '
  9.     xlCsv = Dir(xlPath & "*.Csv")                                   '´M§ä *.CsvÀÉ®×
  10.     Do While xlCsv <> "" And LCase(xlCsv) <> "test21.csv"
  11.         With Workbooks.Open(xlPath & xlCsv).Sheets(1)
  12.             Sh(2).Cells(Rows.Count, 1).End(xlUp).Offset(2) = "[*" & xlCsv & "*]"
  13.             .[a1].CurrentRegion.Copy Sh(2).Cells(Rows.Count, 1).End(xlUp).Offset(1)
  14.             .Parent.Close 0
  15.         End With
  16.         xlCsv = Dir
  17.     Loop
  18.      With Sh(2)
  19.         .Activate
  20.         For Each E In ActiveWorkbook.Names
  21.             '§R°£©Ò¦³¤w©w¸qªº¦WºÙ ¥HÁקK : ©w¸qªº¦WºÙ¤¤¦³¤£¦bªº *.Csv
  22.              E.Delete
  23.         Next
  24.        '*** ³B¸Ì ¤w¶×¤Jªº *.Csv  *********
  25.         Ar = .Range("a:a").Value
  26.        .Range("a:a").Replace "[*.*]", "=1/0"                                '[*.Csv] ´À¥N¬°¿ù»~­È
  27.        .Range("a:a").SpecialCells(xlCellTypeFormulas, xlErrors).Select      '¿ï¾Ü¦³¿ù»~­ÈªºÀx¦s®æ
  28.         .Range("a:a").Value = Ar                                            '½Æ­ì­ì¨Óªº­È
  29.         For Each E In Selection
  30.             E.CurrentRegion.Name = Replace(Replace(E, "*]", ""), "[*", "")
  31.             '¨C¤@Àx¦s®æªº©µ¦ù½d³ò: ©w¸q¦WºÙ  *.Csv
  32.         Next
  33.         '****************************
  34.         Sh(1).Cells.Clear      'test21.csv.Sheets(1) :²M°£©Ò¦³¸ê®Æ ­«·s¶×¤J±Æ§Ç«áªº*.Csv
  35.         For Each E In ActiveWorkbook.Names             '©w¸q¦WºÙ :·|¦Û°Ê±Æ§Ç¦WºÙ
  36.             xi = Sh(1).Cells(Rows.Count, 1).End(xlUp).Row
  37.             xi = IIf(xi = 1, 1, xi + 2)
  38.             Range(E.Name).Copy Sh(1).Cells(xi, 1)
  39.             xi = Sh(1).Cells(Rows.Count, 1).End(xlUp).Row
  40.             Sh(1).Cells(xi + 2, 1) = "[*div*]"
  41.         Next
  42.         Application.DisplayAlerts = False
  43.         .Delete                                         '§R°£¤u§@ªí
  44.         Application.DisplayAlerts = True
  45.     End With
  46.     '*****  ´ú¸Õ ¦¨¥\«á ¸Ñ°£µù¸Ñ ¥i¦sÀÉ
  47.     'Sh(1).Parent.Close True
  48. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# GBKEE

   ·íÀɮצW¦r¤¤¦³³sµ²²Å¸¹ "-" ¦pBB-1.csv®É
   ·|¥X²{°õ¦æ¶¥¬q¿ù»~ '1004'
    Error.jpg
   ·Ð½Ð¥ý¶i  «ü¾É ÁÂÁÂ
    TEST21A.rar (36.81 KB)

TOP

¦^´_ 3# luke
BB-1.csv  ->  BB_1.csv

TOP

¦^´_ 4# GBKEE

   ¦]¥DÀɦWµLªk­×§ï
    ­ì#2²Ä30¦C»yªk
   E.CurrentRegion.Name = Replace(Replace(E, "*]", ""), "[*", "")
   ¬O§_¥i±N"©w¸q¦WºÙ " ©Ò«ü¦VªºÀɦW¥Îsplit¤À³Î«á
   ¦A¥[¤W³sµ²²Å¸¹ "-" §@ÃöÁä¦r´À¥N
   ¦pBB-1¥ý¤À¦¨ BB©M¼Æ¦r"1"
   ¦Aµ²¦XÀɦW¦¨¤å¦r"BB"&"-"&"1"

    ¥H¤W·Qªk
    ·Ð½Ð«ü¾É
    ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-5 21:34 ½s¿è

¦^´_ 5# luke
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Sh(1 To 2) As Worksheet, Ar, E As Variant, xlCsv As String, xlPath As String
  4.     Dim xi As Integer, xR As Integer, xF As Integer
  5.     xlPath = ThisWorkbook.Path & "\"                                                '->­×§ï¬°¥¿½TªºÀɮ׸ô®|
  6.     Set Sh(1) = Workbooks.Open(xlPath & "test21.csv").Sheets(1)
  7.     Set Sh(2) = Sh(1).Parent.Sheets.Add
  8.     Sh(1).Cells.Copy Sh(2).Cells(1)                                                 '½Æ»s test21.csv ªº¸ê®Æ                          '
  9.     xlCsv = Dir(xlPath & "*.Csv")                                                   '´M§ä *.CsvÀÉ®×
  10.     Do While xlCsv <> "" And LCase(xlCsv) <> "test21.csv"
  11.      With Workbooks.Open(xlPath & xlCsv).Sheets(1)
  12.            Sh(2).Cells(Sh(2).Rows.Count, 1).End(xlUp).Offset(2) = "[*" & xlCsv & "*]"
  13.            .[a1].CurrentRegion.Copy Sh(2).Cells(Sh(2).Rows.Count, 1).End(xlUp).Offset(1)  '½Æ»s *.Csvªº¸ê®Æ
  14.            .Parent.Close 0
  15.      End With
  16.      xlCsv = Dir
  17.     Loop
  18.     Sh(1).Cells.Clear     'test21.csv.Sheets(1) ²M°£©Ò¦³¸ê®Æ: ¤w³Æ­«·s¶×¤J±Æ§Ç«áªº*.Csv
  19.     '*** ³B¸Ì ¤w¶×¤Jªº *.Csv*********
  20.     With Sh(2)
  21.         .Activate
  22.         Ar = .Range("a:a").Value
  23.         .Range("a:a").Replace "[*.*]", "=1/0"                                       '[*.Csv] ´À¥N¬°¿ù»~­È
  24.         .Range("a:a").SpecialCells(xlCellTypeFormulas, xlErrors).Name = "ÀɦW"      '±N¦³¿ù»~­ÈªºÀx¦s®æ ©w¸q¦WºÙ
  25.         .Range("a:a").Value = Ar                                                    '½Æ­ì­ì¨Óªº­È
  26.         With .Columns(Columns.Count)
  27.             [ÀɦW].Copy .Cells(1)
  28.             .Sort Key1:=.Range("a1"), Order1:=xlAscending, Header:=xlGuess          '±Æ§Ç[ÀɦW]
  29.             xR = 1
  30.             Do While .Cells(xR) <> ""                                               '¶×¤J "ÀɦW"¸ê®Æ
  31.                 xF = Application.Match(.Cells(xR), .Parent.Columns(1), 0)           '´M§ä "ÀɦW"
  32.                 xi = Sh(1).Cells(Sh(1).Rows.Count, 1).End(xlUp).Row
  33.                 xi = IIf(xi = 1, 1, xi + 2)                                         '²Ä¤G­Ó[*.Csv]¥H«á ¶·¦A©¹¤U¦ì²¾¨ì2¦C
  34.                 .Parent.Cells(xF, 1).CurrentRegion.Copy Sh(1).Cells(xi, 1)
  35.                 xi = Sh(1).Cells(Sh(1).Rows.Count, 1).End(xlUp).Row
  36.                 Sh(1).Cells(xi + 2, 1) = "[*div*]"
  37.                 xR = xR + 1
  38.             Loop
  39.         End With
  40.         Application.DisplayAlerts = False
  41.         .Delete                                      '§R°£¤u§@ªí
  42.         Application.DisplayAlerts = True
  43.     End With
  44.     '*****´ú¸Õ ¦¨¥\«á ¸Ñ°£µù¸Ñ ¥i¦sÀÉ
  45.     'Sh(1).Parent.Close True
  46. End Sub
½Æ»s¥N½X

TOP

¦^´_ 6# GBKEE

    ±a¤J#6·sµ{¦¡«á°õ¦æ¦Ü²Ä12¦C·|¥X²{¤U¦C¿ù»~«H®§

    Error1.jpg

   ¬d¤U¦Cºô§}®É¦³´£¨ì¬°¹ÏªíÅܧó¿ù»~, ¦ý¹ê»Ú¤u§@ªí¤W¨ÃµL¥ô¦ó¹Ïªí
   http://support.microsoft.com/kb/211436/zh-tw  
   
   ¤£ª¾¦¹°ÝÃD¬O§_ÀÉ®×¹L¦h(200~300­ÓÀÉ)³y¦¨
   
   ·Ð½Ð«ü¾É

TOP

¦^´_ 7# luke
ª©¥»ªº°ÝÃD
6#µ{¦¡½X¥H§ó·s ¸Õ¸Õ¬Ý

TOP

¦^´_ 7# luke
  1. Sub Split_CSV()
  2. Dim Ar(), Ay()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. Application.DisplayAlerts = False
  5. Application.ScreenUpdating = False
  6. fd = ThisWorkbook.Path & "\"
  7. fs = fd & "TEST21.csv"
  8. Set wb = Workbooks.Open(fs)
  9. yn = False
  10.   With wb.Sheets(1) '¤À³ÎÀÉ®×
  11.   k = .UsedRange.Columns.Count
  12.      For Each a In .Range(.[A1], .Cells(.Rows.Count, 1).End(xlUp))
  13.         If yn = False And InStr(a, ".csv") > 0 Then _
  14.         yn = True: r = 1: _
  15.          f = Replace(Replace(Replace(a, "[", ""), "]", ""), "*", ""): _
  16.          Set sh = wb.Sheets.Add(after:=wb.Sheets(1))
  17.          Ar = a.Resize(, k).Value
  18.          With sh
  19.          If yn = True Then
  20.          .Cells(r, 1).Resize(, k) = Ar: r = r + 1
  21.          ReDim Preserve Ay(s)
  22.          Ay(s) = Join(Application.Transpose(Application.Transpose(Ar)), Chr(9))
  23.          s = s + 1
  24.          End If
  25.          End With
  26.         If InStr(a, "div") > 0 Then fs = fd & "µ²ªG\" & f: yn = False: sh.Move: ActiveWorkbook.SaveAs fd & "µ²ªG\" & f, 6: Workbooks(f).Close:        d(f) = Join(Ay, Chr(10)): Erase Ay: s = 0
  27.      Next
  28.     End With
  29. wb.Close 0
  30.     fs = Dir(fd & "*.csv")
  31.     Do Until fs = ""
  32.     If fs <> "TEST21.csv" Then
  33.     Set wb = Workbooks.Open(fd & fs)
  34.     With wb.Sheets(1)
  35.     k = .UsedRange.Columns.Count
  36.     ReDim Ar(k)
  37.     Ar(0) = "[*" & fs & "*]"
  38.       For i = 1 To k - 1
  39.         Ar(i) = ""
  40.       Next
  41.     ReDim Preserve Ay(s)
  42.     Ay(s) = Join(Ar, Chr(9))
  43.     s = s + 1
  44.     For Each a In .UsedRange.Columns(1).Cells
  45.        Ar = a.Resize(, k).Value
  46.     ReDim Preserve Ay(s)
  47.     Ay(s) = Join(Application.Transpose(Application.Transpose(Ar)), Chr(9))
  48.     s = s + 1
  49.     Next
  50.     ReDim Preserve Ay(s)
  51.     Ay(s) = Join(Array("", "", "", "", "", "", "", ""), Chr(9))
  52.     s = s + 1
  53.     ReDim Ar(k)
  54.     Ar(0) = "[*div*]"
  55.       For i = 1 To k - 1
  56.         Ar(i) = ""
  57.       Next
  58.     ReDim Preserve Ay(s)
  59.     Ay(s) = Join(Ar, Chr(9))
  60.     s = s + 1
  61.     d(fs) = Join(Ay, Chr(10))
  62.     Erase Ay: s = 0
  63.     End With
  64.     wb.Close 0
  65.     End If
  66.     fs = Dir
  67.     Loop
  68. With Worksheets.Add
  69. .[A1].Resize(d.Count, 1) = Application.Transpose(d.keys)
  70. .[A1].Resize(d.Count, 1).Sort key1:=.[A1], Header:=xlNo
  71. Ar = .[A1].Resize(d.Count, 1).Value
  72. r = 1
  73. For Each ky In Ar '²Õ¦XÀÉ®×
  74.    an = Split(d(ky), Chr(10))
  75.    For j = 0 To UBound(an)
  76.      ak = Split(an(j), Chr(9))
  77.      .Cells(r, 1).Resize(, UBound(ak) + 1) = ak
  78.      r = r + 1
  79.    Next
  80.    r = r + 1
  81. Next
  82. .Move
  83. ActiveWorkbook.SaveAs fd & "µ²ªG\" & "TEST21OK.csv", 6
  84. ActiveWorkbook.Close 1
  85. End With
  86. Application.DisplayAlerts = True
  87. Application.ScreenUpdating = True
  88. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 8# GBKEE


    ´ú¸Õ#6§ó·sµ{¦¡«á, ¥Ø«eµo²{¦³2­Ó°ÝÃD
     1.·s´¡¤Jªº¥DÀɦW­Y¤j©ó­ì©lÀÉTEST21®É,
         ¦pTEST22.csv(22>21)©ÎTF.csv(TF>TE),
         ÁöµL¿ù»~µo¥Í, ¹ê»ÚµLÀɮײ£¥Í.

     2.¥DÀɦW±a¦³"Monitor"¨Ò¦pMonitorTempContSet.csv©MMonitorTimInv.csv¨â­ÓÀÉ®×
         °õ¦æ±Æ§Ç®É·|»PTempContSet.csv©MTimInv.csv½Ä¬ð
         ¨ä±¡§Î¬OMonitorTempContSet.csv©MMonitorTimInv.csv­Ó¦@¥X²{¨â¦¸
         ¨Ãª½±µÂл\«áªÌ§YTempContSet.csv©MTimInv.csv·|±q­ì©lÀÉ®ø¥¢¤£¨£
         (¦ýÀɦWMonitorAbb.csv©MMonitorAbc.csv«o¤£·|»PAbb.csv©MAbc.csv½Ä¬ð)
         ¬ã§P¬O±Æ§Ç[ÀɦW]¿ù¶Ã³y¦¨

¡@¡@¥H¤W¿ù»~
   ¡@ ·Ð½Ð«ü¾É
    ¡@ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD