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

luke

各位大大

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

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

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

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

煩請先進 大大指導

TEST12.rar (28.04 KB)

下載次數: 8

2012-4-20 22:23

luke

回復 2# Hsieh


   謝謝H大

   第35列應為Sheet2.[A7]

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

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

     煩請先進 大大指導

luke

回復 4# Hsieh


    謝謝H大

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

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

下載次數: 3

2012-4-21 19:06