返回列表 上一主題 發帖

如何匯入多個清單編號的文字檔

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-20 22:23 | 顯示全部帖子

如何匯入多個清單編號的文字檔

各位大大

小弟想將多個清單編號的該文字檔匯入sheet1表,

依照父項編號和父項名稱先作分類後,

然後按"項次","子項品號","品名","使用量","單位"和"備註",

分別取出內容和重新編號轉成欄位如sheet2表A:H欄所示

煩請先進 大大指導

TEST12.rar (28.04 KB)
收藏 分享

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
2#
發表於 2012-4-21 11:50 | 顯示全部帖子
本帖最後由 luke 於 2012-4-21 15:25 編輯

回復 2# Hsieh


   謝謝H大

   第35列應為Sheet2.[A7]

   1.若文字檔得主檔名(TEST12.csv)與Excel檔(TEST12.xls)不同名稱時即文字檔得主檔名 為不同名稱, 應如何修改程式?

    2.若文字檔是 txt檔且排列格式內容不同是否能直接打開檔案
       再匯入不需經過sheet1表轉貼至sheet2表, 即直接開啟檔案整理後放入sheet1表
       (PS: 原始文字檔是txt檔, 利用開啟檔案再經過轉存成csv檔)

     煩請先進 大大指導

TOP

luke

帖子
140 
主題
37 
精華
0 
積分
193 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
註冊時間
2012-3-28 
最後登錄
2015-7-5 

2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章
3#
發表於 2012-4-21 19:09 | 顯示全部帖子
回復 4# Hsieh


    謝謝H大

    原程式改成
     fs = Application.GetOpenFilename("Text Files (*.txt), *.txt")
     
     點選文字檔
     改選原TEST12.txt文字檔
     會出現"檔案已開啟"錯誤

      煩請先進 大大指導
       TEST12A.rar (23.91 KB)

TOP

        靜思自在 : 願要大、志要堅、氣要柔、心要細。
返回列表 上一主題