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

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

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-6-6 07:03 ½s¿è

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

TOP

¦^´_ 9# Hsieh

     ÁÂÁÂH¤j

    ´¡¤JBB-1.csv©MDD1.csv¨â­ÓÀÉ©Ò·s«Ø¥ßªºTEST21OK.csv,
    ¨äÀɧÀ³BÅã¥Ü[**]¦pªþ¥ó
    TEST21OK.rar (369 Bytes)

TOP

¦^´_ 12# luke

§Ú´ú¸ÕOKªü
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# GBKEE

     #11·s­×§ïµ{¦¡´ú¸Õ«á,
     ±Æ§Ç±¡§ÎÅܱo«Ü¿ù¶Ã
     
     ¦]ÀɦWªø©MÀɮ׫ܦh
     §Úªº·Qªk¬O±NÀɮפÀ§O¦sÀÉ«á
     ¦A¨Ì·Ó±Æ¦C¶¶§Ç
     µ²¦X¤@°_
     ¦pH¶Wª©©ó#9µ{¦¡
     (¦ý¦¹µ{¦¡±ÄChr(9)¤è¦¡µ²¦X, µLªk¶¶§Q³q¹L½sĶ)
     
     ¥H¤W·Qªk
     
    ·Ð½Ð«ü¾É

TOP

¦^´_ 14# luke


    H¤j¦n

   #9 ²Ä54¦CAr(0) = "[*div*]"¤£¤p¤ß¥´¦¨ Ar(0) = "[**]"
     
  ÁÂÁ¦^ÂÐ

TOP

¦^´_ 14# luke
±Æ§Ç±¡§ÎÅܱo«Ü¿ù¶Ã
¥i¥H¬Ý¬Ý¶Ü?

TOP

¦^´_ 16# GBKEE


    ÁÂÁª©¤j

    ¦sÀɮɦp¦ó§âANSI¤å¦rÀɮ榡§ï¦¨Unicode¤å¦rÀɮ榡

    ¥H¤U¬O¥Î¥¨¶°¿ý»s»yªk
    ActiveWorkbook.SaveAs Filename:="D:\TEST21OK.txt", _
    FileFormat:=xlUnicodeText, CreateBackup:=False

    À³¦p¦ó®M¨ì#9©M#11µ{¦¡?
   
    ·Ð½Ð«ü¾É ÁÂÁÂ

TOP

¦^´_ 17# luke
Sh(1).Parent.Close True
Sh(1).Parent.SaveAs Filename:="D:\TEST21OK.txt", FileFormat:=xlUnicodeText, CreateBackup:=False

ActiveWorkbook.SaveAs fd & "µ²ªG\" & "TEST21OK.csv", 6
ActiveWorkbook.SaveAs  "D:\TEST21OK.txt", FileFormat:=xlUnicodeText, CreateBackup:=False

TOP

¥»©«³Ì«á¥Ñ luke ©ó 2012-6-7 21:20 ½s¿è

¦^´_ 18# GBKEE

    ÁÂÁª©¤j

   ¤å¦rÀɦsÀɮ榡¤w¸Ñ¨M.

   TEST21OK.csvÀÉ®×¥i§_«ö·Ó¶¶§Ç°£¥hÀÉ®×­º¦C¦W¦r[*ÀɦW.csv*]©MÀÉ®×µ²§À[*div*]©M«e¤@­ÓªÅ¥Õ¦C,
   ¶È¯d¤¤¶¡¤º®e¦pªþ¥ó©Ò¥ÜªºÀÉ®×,
    (©Î¨Ï¥Î#9µ{¦¡©ó©îÀÉÂà¦sUnicode¤å¦rÀɮ榡®É, ¤£­n±a¤J¤W­zÀɦW©Mµ²§À)
      
    ·Ð½Ð«ü¾É ÁÂÁÂ!
    TEST21C.rar (12.56 KB)

TOP

¦^´_ 18# GBKEE


    ¤å¥ó¤w¤W¶Ç

     ·Ð½Ð«ü¾É ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD