Hsieh

¦^´_ 3# metrostar

1. Sub test()
   
2.     Dim fs, ar, fn$, br(1 To 10000, 1 To 7), t
   
3.     Dim c, i&, j&, r&, ph$
   
4.     ph = ThisWorkbook.Path & "\" 'Àɮץؿý
   
5.     c = Array(0, 0, 1, 2, 3, 4, 5, 7)
   
6.        fs = Application.GetOpenFilename("Text Files (*.txt), *.txt", , , , True)
   
7.         If Not IsArray(fs) Then MsgBox "¨S¦³¿ï¨úÀÉ®× !!!": Exit Sub
   
8.     With CreateObject("vbscript.regexp")
   
9.         .Global = True
   
10.         .Pattern = " +(?!$)"
    
11.         s = LBound(fs)
    
12.        While s <= UBound(fs)
    
13.             Open fs(s) For Input As #1
    
14.             ar = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
15.             Reset
    
16.             For i = 4 To UBound(ar) - 1
    
17.                 r = r + 1
    
18.                 ar(i) = .Replace(ar(i), "|")
    
19.                 t = Split(ar(i), "|")
    
20.                 For j = 1 To UBound(c)
    
21.                     br(r, j) = t(c(j))
    
22.                 Next
    
23.                 br(r, 2) = Mid(Replace(fs(s), ph, ""), 6, 8)
    
24.             Next
    
25.             Close #1
    
26.             s = s + 1
    
27.         Wend
    
28.     End With
    
29.     With Sheets("Sheet2")
    
30.         .Range("2:" & Rows.Count).ClearContents
    
31.         .Range("a:a").NumberFormatLocal = "@"
    
32.         If r > 0 Then .[a2].Resize(r, UBound(br, 2)) = br
    
33.     End With
    
34. End Sub

½Æ»s¥N½X