[發問] 如何在工作表中直接匯入文字檔

本帖最後由 GBKEE 於 2011-7-27 19:33 編輯

1.在B1輸入路徑
2.只要在D9~58中輪入檔案檔案名稱後按Import Data按鈕，看D9~D58有幾個檔案就會開幾個工作表並匯入文字檔
以上困擾小弟我很久，檔案如附件

excel.rar (13.79 KB)

樓主熱帖

Simon

morris0914

中學生 Rank: 2

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

2^#

發表於 2011-7-28 10:41 | 顯示全部帖子

回復 2# GBKEE

感謝大大的幫忙，困擾我好幾天的程式解決了
再請問一下，匯入的文字檔的資料有空格或是有逗號的要如何分開，讓每個資料放在一個欄位~~

Simon

TOP

morris0914

中學生 Rank: 2

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

3^#

發表於 2011-7-28 14:47 | 顯示全部帖子

回復 5# ky2599y

感謝提醒，我已改為巨集如下:

      Range("A1:A255").Select
      Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
      TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
      Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
      :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
      TrailingMinusNumbers:=True

但有個問題是如何資料判斷，自動增加Array
另一個問題是如何讓程式排列整齊，如下:
TextQualifier=xlDoubleQuote
ConsecutiveDelimiter=False
Tab=True

Simon

TOP

morris0914

中學生 Rank: 2

帖子: 19
主題: 4
精華: 0
積分: 62
點名: 0
作業系統: winxp
軟體版本: winxp
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2011-7-27
最後登錄: 2015-5-20

4^#

發表於 2011-7-28 17:13 | 顯示全部帖子

excel.rar (192.08 KB) 回復 7# ky2599y
還有幾個問題請教一下
1.附件4.log及5.log如何匯入工作表，我使用版大給的程式是在全是數字時ok，但前幾列有文字時就會出現問題
2.文字檔匯入工作表後如何遇到資料有空格或是有逗號的要如何分開，讓每個資料放在一個欄位，並讓程式判斷資料有需幾欄資料就會產生幾欄Array放置資料

Simon

TOP

morris0914