如何在工作表中直接匯入文字檔 - Excel程式區

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

3^# 跳轉到 »

發表於 2011-7-28 10:41 | 只看該作者

回復 2# GBKEE

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

Simon

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-7-27 20:38 | 只看該作者

回復 1# morris0914
試試看

Sub Ex()
Dim FilePath As String, Rng As Range, FS As Object, Ar
FilePath = Sheets("Menu").Range("B1") '檔案資料夾"
FilePath = FilePath & IIf(Right(1, 1) = "\", "", "\") '檢查資料夾尾端有無"\"
Set Rng = Sheets("Menu").Range("D9") '第1個檔案名稱
Do
Set FS = CreateObject("Scripting.FileSystemObject").GetFile(FilePath & Rng) '取的檔案物件
'FileSystemObject 提供對電腦檔案系統的存取的物件
Set FS = FS.OpenAsTextStream(1, -2) 'TextStream 物件->加快對檔案的順序存取。
Ar = Split(FS.READALL, Chr(10)) '讀取資料存入陣列 Ar
FS.Close ' 將檔案關閉。
With ActiveWorkbook '作用中的活頁簿
.Sheets.Add(, .Sheets(.Sheets.Count)).Name = Rng '新增工作表且命名為檔案名稱
.Sheets(Rng.Value).[A1].Resize(UBound(Ar) + 1, 1) = Ar '讀取的資料放入新增工作表
End With
Set Rng = Rng.Offset(1) '下一個檔案名稱
Loop Until Rng = "" '沒有檔案名稱離開迴圈
End Sub

複製代碼

靜思自在 : 得理要饒人，理直要氣和。