- 帖子
- 57
- 主題
- 10
- 精華
- 0
- 積分
- 104
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- taiwan
- 註冊時間
- 2012-7-5
- 最後登錄
- 2017-2-18
|
2#
發表於 2012-7-5 16:01
| 只看該作者
直接用excel去開啟文字檔
開啟後就會有資料剖析ㄉ選擇頁面出現了
Sub Macro1()
Workbooks.OpenText Filename:="C:新增文字文件.txt" _
, Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1)), _
TrailingMinusNumbers:=True
End Sub |
|
