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

morris0914

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

excel.rar (13.79 KB)

下載次數: 21

2011-7-27 17:32

morris0914

感謝版大的幫忙和建議，我自己會先自行試試看，有問題再請教，謝謝

GBKEE

回復 10# morris0914
讀取4.log時 可以全部讀取的
你8樓 Q:  用版大給的程式是在全是數字時ok，但前幾列有文字時就會出現問題
所以引用類似  有特定譬如說 20-30行之間 你再看看

morris0914

回復 9# GBKEE


    板大，不知是不是下例程式造成讀取4.log時只重複讀取第一列，而無法將4.log全部資料匯入工作表中
   Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng)

GBKEE

回復 8# morris0914
匯入的文字檔的資料有空格或是有逗號的要如何分開
有點類似 有特定譬如說 20-30行之間   自行修改看看
在每一行中
A = Split(Ar(i), " ")   '這是分隔空格 的陣列
A = Split(Ar(i), ",")   '這是分隔逗號 的陣列
Cells(ii, 1).Resize(, UBound(A) + 1) = A

morris0914

excel.rar (192.08 KB)

excel
下載次數: 9

2011-7-28 16:59

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

ky2599y

你將原始資料增加或減少試試看，應該會自動判斷的

morris0914

回復 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

ky2599y

資料→資料剖析→依空格或逗號
即可將資料切開
ky2599y 發表於 2011-7-28 13:47

    若匯入資料太多，就把資料剖析路成巨集

ky2599y

資料→資料剖析→依空格或逗號
即可將資料切開