返回列表 上一主題 發帖

txt文字檔匯入excel VBA?

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
1# 跳轉到 »
發表於 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
boyao

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
2#
發表於 2012-7-6 22:08 | 顯示全部帖子
開啟檔案ㄉ路徑
  Workbooks.OpenText Filename:="C:新增文字文件.txt"
資料剖析的那些打勾選項(連續空格設定為單1.其他都不勾選)
      , Origin:=950, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=True, Other:=False,
設定分類選項 1~7為第幾類.後面那個1是設定顯示.隱藏.或格式
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

最簡單的做法...
直接開啟空白Excel.然後錄製巨集
接著開啟你所要轉換的文字檔.依照你要的資料剖析格式執行一次
再開啟程式碼.修改一下路徑就ok了
boyao

TOP

boyao

帖子
57 
主題
10 
精華
0 
積分
104 
點名
0  
作業系統
WINXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
來自
taiwan 
註冊時間
2012-7-5 
最後登錄
2017-2-18 

2013蛇年全勤獎章
3#
發表於 2013-1-19 21:34 | 顯示全部帖子
回復 9# qqchange


他無法不依序指定匯入
選定要匯入資料的項目.不要的資料就設定不匯入
重複匯入幾次就可以了...
boyao

TOP

        靜思自在 : 君子為目標，小人為目的。
返回列表 上一主題