hsieh
 在線
會員性別: 
文章: 3592
 Windows XP
 p4 3.0G
 adsl
 Office 2003
|
EXCEL的資料剖析應能幫你解決問題
用VBA輔助試試
Sub Macro1()
Open "test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, TextLine
Cells(i + 1, 1) = TextLine
i = i + 1
Loop
Close #1
Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
End Sub
|
作者
已記錄
