職場的你，隨著年齡的增長，往往無法選擇回程，時光無法倒流。但是你可以清晰地面對已經出現的挑戰。努力去調整，並相信自己可以成功。你對過去無能為力，但你只要你努力，堅信自己，職場往往就能柳暗花明。

《VBA之Excel應用》是非常經典的，是我推出的第七套教程，定位於初級。這套教程無論是理論知識還是具體應用，內容都非常豐富，同時在講解的過程中我會從我多年實踐的角度給大家以不經意間的指導，讓大家在不知覺間會更好的利用VBA這個工具。是的，代碼習慣非常重要。

這套教程從簡單的錄製宏開始講解，一直到窗體的搭建，內容豐富，實例眾多。大家可以非常容易的掌握相關的知識，這套教程共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。今日講解的內容是「VBA之EXCEL應用」的第十四章「應用程序對象(Application Object)」的第7節：如何將數據寫入到文本文件

第七節 如何將數據寫入到文本文件

在上一講中我們講了如何利用open語句打開一個文件並提取文件的信息到工作表中的方法。這講，我們將講解如何將信息寫入到文本文件中。

1 將數據寫入文本文件的思路分析

為了實現將數據寫入文本文件，我們仍是要先打開這個文件，本講的代碼中，我們利用

Open myFile For Output As #1 在OPEN語句中當參數mode為Output時允許用戶向這個文件中寫入信息。利用該語句允許文件被寫入。如果該文件已經存在，它將被刪除，並創建一個同名的新文件。這一點大家要小心操作，不然文件將被覆蓋。

創建了一個新的文件後，我們就可以向其中寫入信息了，利用的Write語句，這個語句會將信息寫入到文本文件中。

2 Write # 語句

語法：Write #filenumber、[ outputlist ]

參數：

1）filenumber 必需。 任何有效的文件編號。

2）outputlist 可選。 可寫入到文件中的一個或多個逗號分隔的數值表達式或字元串表達式。

• 使用Write # 寫入的數據通常是從帶Input #的文件中讀取的。如果您省略 outputlist 並在 filenumber 之後包含一個逗號，則會將空行列印到文件中。多個表達式可使用空格、冒號或逗號進行分隔。空格的效果與冒號一樣。
• 當Write # 用於將數據寫入文件時, 將遵循幾個通用假設, 以便始終可以使用Input # 讀取和正確地解釋數據, 而不管區域設置如何:

1) 始終使用句點作為小數分隔符寫入數值數據.

2) 對於 Boolean 數據，將列印 #TRUE# 或 #FALSE#。無論區域設置如何,都不翻譯True和False 關鍵字。

3) 日期數據使用通用日期格式寫入文件。當日期或時間組件缺失或為零時，僅提供的部分將被寫入到文件中。

4) 如果 outputlist數據為Empty，則不向文件中寫入任何內容。但是對於Null數據，將寫入 #NULL#。

5) 如果outputlist數據為Null數據, #NULL#則會被寫入到文件中。

6) 對於 Error 數據，輸出將顯示為 #ERROR errorcode#。 將不會翻譯 Error 關鍵字，而不管區域設置如何。

• 與Print # 語句不同, 在寫入文件時Write # 語句在項和字元串的引號之間插入逗號 。您不必在列表中放置顯式的分隔符。 Write # 在將outputlist中的最後一個字元寫入到文件中後, 插入一個換行符, 即回車換行符 (Chr(13) + Chr(10))。
• 不應寫入包含嵌入的引號的字元串, 例如, “1,2””X”與Input # 語句一起使用;Input # 將此字元串分析為兩個完整且獨立的字元串。

3 將數據寫入文本文件的實例應用

我們看下面的代碼：

Sub mynzK() ‘向文本文件中寫入信息

Dim myFile As String, rng As Range, cellValue As Variant, i As Integer, j As Integer

myFile = ThisWorkbook.Path & “testin.txt”

‘myFile = ThisWorkbook.Path & “testin.csv”

Set rng = Range(“A1”).CurrentRegion

Open myFile For Output As #1

For i = 1 To rng.Rows.Count

For j = 1 To rng.Columns.Count

cellValue = rng.Cells(i, j).Value

If j = rng.Columns.Count Then

Write #1, cellValue

Else

Write #1, cellValue,

End If

Next

Next

Close #1

End Sub

代碼截圖：

代碼講解：

1） myFile = ThisWorkbook.Path & “testin.txt” 給文件名變數賦值，給出要存儲的文件路徑及文件名。

2）Set rng = Range(“A1”).CurrentRegion 指定要導入的數據區域，為A1單元格的當前區域。

3）Open myFile For Output As #1 打開這個文件

4）For i = 1 To rng.Rows.Count

For j = 1 To rng.Columns.Count

cellValue = rng.Cells(i, j).Value

If j = rng.Columns.Count Then

Write #1, cellValue

Else

Write #1, cellValue,

End If

Next

Next

以上代碼向文件中寫入數據。注意其中行列的標識，當出現列的尾部時加入了逗號。

5) Close #1 關閉一個文件。

4 寫入信息到文本文件的效果

我們點擊運行，這個時候會產生一個文件testin.txt，代碼運行完成後我們打開這個文件：

上述內容信息有些亂，我們修改代碼中的「testin.txt」為「testin.csv」這個時候會建立一個csv文件，我們看實現的效果：

這時的效果比剛才的文件效果要好些。

今日內容迴向：

1） 如何向文本文件中寫入信息？

2） 向文本文件中寫入信息時行列如何變化？

3） write語句應用有哪些注意點？

本講內容參考程序文件：工作簿14.xlsm

分享成果，隨喜正能量

• VBA的學習教程（初級、中級、高級）：

VBA是利用Office實現個人小型辦公自動化的有效手段（工具）。這是我對VBA的應用界定。在取代OFFICE新的辦公軟體沒有到來之前，誰能在數據處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！我記得20年前自己初學VBA時，那時的資料甚少，只能看源碼自己琢磨,真的很難。20年過去了，為了不讓學習VBA的朋友重複我之前的經歷，我根據自己多年VBA實際利用經驗，推出了八部VBA專門教程，學習順序七、一（或者四）、三、二、六、五；或者七、八。其中七，一（或者四）是初級；三，二，八是中級；六，五是高級：

第一套：VBA代碼解決方案 是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程序文件更是一座不可多得的代碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程序文件通過32位和64位兩種OFFICE系統測試。

第二套：VBA資料庫解決方案 資料庫是數據處理的專業利器，教程中詳細介紹了利用ADO連接ACCDB和EXCEL的方法和實例操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程序文件通過32位和64位兩種OFFICE系統測試。

第三套：VBA數組與字典解決方案 數組和字典是VBA的精華，字典是VBA代碼水平提高的有效手段，值得深入的學習，是初級及中級人員代碼精進的手段。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。

第四套：VBA代碼解決方案之視頻 是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的視頻講解，視頻更易接受。

第五套：VBA中類的解讀和利用 這是一部高級教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程序文件通過32位和64位兩種OFFICE系統測試。

第六套教程：VBA信息獲取與處理，這是一部高級教程，涉及範圍更廣，實用性更強，面向中高級人員。教程共二十個專題，包括：跨應用程序信息獲得、隨機信息的利用、電子郵件的發送、VBA互聯網數據抓取、VBA延時操作，剪切板應用、Split函數擴展、工作表信息與其他應用交互，FSO對象的利用、工作表及文件夾信息的獲取、圖形信息的獲取以及定製工作表信息函數等等內容。程序文件通過32位和64位兩種OFFICE系統測試。

第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從創建宏、對話框、工作簿和工作表對象、單元格對象等基礎內容講起，到循環結構、錯誤處理、字元串操作、日期和時間、事件、數組應用，函數過程等方面，一直講解到控制項和窗體對象的應用都是我們提高自己EXCEL水平的必須。

第八套教程：VBA之WORD應用 是圍繞「面向對象編程」展開的講解，讓大家充分認識Word中VBA的對象，以及對象的屬性、方法及利用。教程共分三冊，十六章，其中前十五章是各種對象屬性、方法的講解，每節都有專門的實例說明這些屬性方法的具體應用，最後一章是結和具體應用場景的講解，詳細講解了二十八個實際工作中有代表性的實例，緊扣word數據的批量處理，發揮VBA的長處。本套教程實例眾多，大家可以拿來即用，或者修正後加以利用。由於這套教程是圍繞「面向對象編程」來展開，建議大家先學《VBA之Excel應用》，對VBA中的對象、屬性、方法、事件有一定認識後再來學習這套教程。