作者：掘掘（鄭廣學VBA175例學員）

今天學習了鄭老師VBA175例教程的第151例教程視頻,這一講關于將TXT文本讀取后,處理數(shù)據(jù)后再輸出到表格中的技巧,特別實用。接下來跟大家分享以下我這一課的心得體會。

先看效果圖：將所有明細表名字的TXT文件導入到表格中并設置樣式。

知識儲備

要掌握這個技巧，就得先理解鄭老師這一講為我們準備了3個自定義函數(shù)，下面我分享以下我對這三個自定義函數(shù)的理解以及需要注意的地方。

自定義函數(shù)ReadFromTextFile。

ReadFromTextFile為讀取文本內容的函數(shù)

需要注意的點是:

1. 第一參數(shù)FileName傳入的是一個全路徑的名稱,第二個一般默認就好。

2. 結果返回所有txt所有文本內容.如下圖

2、自定義函數(shù)TxtToArr。

TxtToArr為將文本處理為數(shù)組的函數(shù)

需要注意的點是:

1. 第一參數(shù)S為txt文本內容,第二參數(shù)為每一行中每一類的分隔符,第三個參數(shù)為txt文本的列數(shù).

2. 結果返回上標都為0的數(shù)組.如下圖

3、自定義函數(shù)DirFiles。

DirFiles單層文件夾遍歷文件,這個函數(shù)批量導出時需要用到.

需要注意的點是:

1. 第一參數(shù)Path為全名稱路徑,第二個參數(shù)為文件后綴,如本案例中的為”txt”,不能帶點,如”.txt”會運行不了.

2. 結果返回文件名列表數(shù)組.如下圖

鄭廣學ExcelVBA175例實戰(zhàn)教程

二、思路分享

1  DirFiles單層文件夾遍歷文件。

2 用for each 循環(huán)每個txt文件，用自定義函數(shù)ReadFromTextFile讀取文本內容后，接著用自定義函數(shù)TxtToArr處理文本內容并逐個輸出到表格中。

輸出結果如下：

3 接下來通過錄制宏等處理格式就能得到開頭動圖的結果了(最后附代碼)

這里，向大家推薦鄭老師的代碼助手。只需輸入關鍵字，就能將收藏過的代碼整個帶出來，不用每一次都輸入,節(jié)省了好多時間,太贊了。