[µo°Ý] ¦p¦ó¦b¤u§@ªí¤¤ª½±µ¶×¤J¤å¦rÀÉ

morris0914

1.¦bB1¿é¤J¸ô®|
2.¥u­n¦bD9~58¤¤½ü¤JÀÉ®×ÀɮצWºÙ«á«öImport Data«ö¶s¡A¬ÝD9~D58¦³´X­ÓÀÉ®×´N·|¶}´X­Ó¤u§@ªí¨Ã¶×¤J¤å¦rÀÉ
¥H¤W§xÂZ¤p§Ì§Ú«Ü¤[¡AÀɮצpªþ¥ó

excel.rar (13.79 KB)

¤U¸ü¦¸¼Æ: 21

2011-7-27 17:32

GBKEE

¦^´_ 1# morris0914
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim FilePath As String, Rng As Range, FS As Object, Ar
   
3.     FilePath = Sheets("Menu").Range("B1")                   'Àɮ׸ê®Æ§¨"
   
4.     FilePath = FilePath & IIf(Right(1, 1) = "\", "", "\")   'Àˬd¸ê®Æ§¨§ÀºÝ¦³µL"\"
   
5.     Set Rng = Sheets("Menu").Range("D9")                    '²Ä1­ÓÀɮצWºÙ
   
6.     Do
   
7.        Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng) '¨úªºÀɮת«¥ó
   
8.                                              'FileSystemObject ´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨úªºª«¥ó
   
9.         Set FS = FS.OpenAsTextStream(1, -2)  'TextStream ª«¥ó->¥[§Ö¹ïÀɮתº¶¶§Ç¦s¨ú¡C
   
10.         Ar = Split(FS.READALL, Chr(10))      'Ū¨ú¸ê®Æ¦s¤J°}¦C Ar
    
11.         FS.Close                             ' ±NÀÉ®×Ãö³¬¡C
    
12.         With ActiveWorkbook                  '§@¥Î¤¤ªº¬¡­¶Ã¯
    
13.             .Sheets.Add(, .Sheets(.Sheets.Count)).Name = Rng            '·s¼W¤u§@ªí¥B©R¦W¬°ÀɮצWºÙ
    
14.             .Sheets(Rng.Value).[A1].Resize(UBound(Ar) + 1, 1) = Ar      'Ū¨úªº¸ê®Æ©ñ¤J·s¼W¤u§@ªí
    
15.         End With
    
16.         Set Rng = Rng.Offset(1)                                         '¤U¤@­ÓÀɮצWºÙ
    
17.     Loop Until Rng = ""                                                 '¨S¦³ÀɮצWºÙ Â÷¶}°j°é
    
18. End Sub

½Æ»s¥N½X

morris0914

¦^´_ 2# GBKEE


·PÁ¤j¤jªºÀ°¦£¡A§xÂZ§Ú¦n´X¤Ñªºµ{¦¡¸Ñ¨M¤F
¦A½Ð°Ý¤@¤U¡A¶×¤Jªº¤å¦rÀɪº¸ê®Æ¦³ªÅ®æ©Î¬O¦³³r¸¹ªº­n¦p¦ó¤À¶}¡AÅý¨C­Ó¸ê®Æ©ñ¦b¤@­ÓÄæ¦ì~~

ky2599y

¸ê®Æ¡÷¸ê®Æ­åªR¡÷¨ÌªÅ®æ©Î³r¸¹
§Y¥i±N¸ê®Æ¤Á¶}

ky2599y

¸ê®Æ¡÷¸ê®Æ­åªR¡÷¨ÌªÅ®æ©Î³r¸¹
§Y¥i±N¸ê®Æ¤Á¶}
ky2599y µoªí©ó 2011-7-28 13:47

    ­Y¶×¤J¸ê®Æ¤Ó¦h¡A´N§â¸ê®Æ­åªR¸ô¦¨¥¨¶°

morris0914

¦^´_ 5# ky2599y


·PÁ´£¿ô¡A§Ú¤w§ï¬°¥¨¶°¦p¤U:

        Range("A1:A255").Select
        Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
        TrailingMinusNumbers:=True


¦ý¦³­Ó°ÝÃD¬O¦p¦ó¸ê®Æ§PÂ_¡A¦Û°Ê¼W¥[Array
¥t¤@­Ó°ÝÃD¬O¦p¦óÅýµ{¦¡±Æ¦C¾ã»ô¡A¦p¤U:
TextQualifier=xlDoubleQuote
ConsecutiveDelimiter=False
Tab=True

ky2599y

§A±N­ì©l¸ê®Æ¼W¥[©Î´î¤Ö¸Õ¸Õ¬Ý¡AÀ³¸Ó·|¦Û°Ê§PÂ_ªº

morris0914

excel.rar (192.08 KB)

excel
¤U¸ü¦¸¼Æ: 9

2011-7-28 16:59

¦^´_ 7# ky2599y
ÁÙ¦³´X­Ó°ÝÃD½Ð±Ð¤@¤U
1.ªþ¥ó4.log¤Î5.log¦p¦ó¶×¤J¤u§@ªí¡A§Ú¨Ï¥Îª©¤jµ¹ªºµ{¦¡¬O¦b¥þ¬O¼Æ¦r®Éok¡A¦ý«e´X¦C¦³¤å¦r®É´N·|¥X²{°ÝÃD
2.¤å¦rÀɶפJ¤u§@ªí«á¦p¦ó¹J¨ì¸ê®Æ¦³ªÅ®æ©Î¬O¦³³r¸¹ªº­n¦p¦ó¤À¶}¡AÅý¨C­Ó¸ê®Æ©ñ¦b¤@­ÓÄæ¦ì¡A¨ÃÅýµ{¦¡§PÂ_¸ê®Æ¦³»Ý´XÄæ¸ê®Æ´N·|²£¥Í´XÄæArray©ñ¸m¸ê®Æ

GBKEE

¦^´_ 8# morris0914
¶×¤Jªº¤å¦rÀɪº¸ê®Æ¦³ªÅ®æ©Î¬O¦³³r¸¹ªº­n¦p¦ó¤À¶}
¦³ÂIÃþ¦ü ¦³¯S©wÄ´¦p»¡ 20-30¦æ¤§¶¡   ¦Û¦æ­×§ï¬Ý¬Ý
¦b¨C¤@¦æ¤¤
A = Split(Ar(i), " ")   '³o¬O¤À¹jªÅ®æ ªº°}¦C
A = Split(Ar(i), ",")   '³o¬O¤À¹j³r¸¹ ªº°}¦C
Cells(ii, 1).Resize(, UBound(A) + 1) = A

morris0914

¦^´_ 9# GBKEE


    ªO¤j¡A¤£ª¾¬O¤£¬O¤U¨Òµ{¦¡³y¦¨Åª¨ú4.log®É¥u­«½ÆŪ¨ú²Ä¤@¦C¡A¦ÓµLªk±N4.log¥þ³¡¸ê®Æ¶×¤J¤u§@ªí¤¤
   Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng)