大家好，在我們日常工作的時候，有時候需要将資料儲存下來，其實你殊不知更多的時候我們是将Excel源資料的檔案另存為Txt文檔。但是呢，如果需要将很多的工作表中的資料分别儲存為文本檔案，我們需要手動分别建立文本檔案用于儲存資料。顯然在這個時候，手動操作方法并不合适，我們需要尋找使用VBA的方法來操作這個。
PS：手動建立将Excel的資料儲存為文檔的操作為，點選開始檔案—另存為—儲存類型選擇文本檔案-然後點選儲存。
今天我們和大家介紹有2種方式可以實作這個操作，分别是OpenTextFile和CreateTextFile，這2個方法都可實作将Excel的資料另存為文檔檔案。
PS：如果重複運作OpenText過程将在文本檔案中重複寫入工作表資料，是以OpenTextFile方法更适用于對文本檔案進行追加操作。
将要使用的源代碼如下，代碼實作的方式是一樣的，唯一不同的是兩個資料的操作執行方式不一樣。CreateTextFile是建立一個文檔，而OpenTextFile是在源文檔上面增加。
Step-01 CreateText方式的操作動畫如下，我們可以看到輕按兩下一下滑鼠就完成将Excel檔案另存為文檔格式，當時我們如果有很多的工作表或者工作薄，隻需要在外面加上循環操作即可進行批量另存為。我們可以發現，不管我們執行次數是多少，資料均和Excel的資料是一緻的。
Step-02 OpenText方式的操作動畫如下，最後我們看到的結果可能讓你有點詫異，為什麼是這樣的呢？我們在前面已經說過如果重複運作OpenText過程将在文本檔案中重複寫入工作表資料，言外之意就是我們會在原來的資料上面繼續增加資料，并不是一個建立過程。這點請務必注意。
當然了，運作CreText過程和OpenText過程将在示例所在的檔案夾中建立一個名稱為“工資表”的文本檔案并将工作表資料讀入到檔案内。這個的前提是隻運作一次，如果程式運作多次的話，那麼結果就會不一緻的。
以下的2點知識點，小夥伴們有興趣的可以了解一下哈！
1、FileSystemObject對象的OpenTextFile方法打開一個指定的檔案并傳回一個 TextStream對象，該對象可用于對檔案進行讀操作或追加操作。示例中将OpenTextFile方法的iomode參數設定為8，打開文本檔案後在檔案的尾部進行追加操作；将create參數設定為True，如果指定的文本檔案不存在則建立一個新檔案。
2、FileSystemObject對象的CreateTextFile方法建立一個指定的檔案并且傳回一個用于該檔案讀寫的TextStream對象，文法如下：
object.CreateTextFile(filename[, overwrite[, unicode]])
參數object是必需的，FileSystemObject對象的名字。
參數filename是必需的，需要建立的檔案名稱。
參數overwrite是可選的，表示是否覆寫已存在檔案。如果可被覆寫其值為True，其值為False時不能覆寫，如果省略，則已存在檔案不能覆寫。
參數unicode是可選的，表示檔案是作為一個Unicode檔案建立的還是作為一個ASCII檔案建立的。如果作為一個Unicode檔案建立，其值為True，作為一個ASCII 檔案建立，其值為False，如果省略，則認為是一個ASCII檔案。
應用于TextStream對象的WriteLine方法寫入一個指定的字元串和換行符到一個TextStream檔案中，文法如下：
object.WriteLine([string])
參數object是必需的，TextStream對象的名字。
參數string是可選的，要寫入檔案的正文。如果省略，寫入一個換行符。
如果有不明白的或者不懂的可以在下方留言，我們會一一解答的。