大家好，我們今日繼續(xù)講解VBA代碼解決方案的第77講內容：如何導出文件，形成一個文本文件，如果需要將工作表中的數(shù)據(jù)保存為文本文件，可以創(chuàng)建一個文本文件用于保存數(shù)據(jù)。

應用于FileSystemObject對象的CreateTextFile方法創(chuàng)建一個指定的文件并且返回一個用于該文件讀寫的TextStream對象，語法如下：

object.CreateTextFile(filename[, overwrite[, unicode]])

參數(shù)a) object是必須的，FileSystemObject對象的名字。

b) filename是必須的，需要創(chuàng)建的文件名稱。

c) overwrite是可選的，表示是否覆蓋已存在文件。如果可被覆蓋其值為True，其值為False時不能覆蓋，如果省略，則已存在文件不能覆蓋。

d) unicode是可選的，表示文件是作為一個Unicode文件創(chuàng)建的還是作為一個ASCII文件創(chuàng)建的。如果作為一個Unicode文件創(chuàng)建，其值為True，作為一個ASCII 文件創(chuàng)建，其值為False，如果省略，則認為是一個ASCII文件。

使用CreateTextFile方法創(chuàng)建文本文件，如下面的代碼所示。

Sub MyCreText()

Dim MyFile As Object

Dim myStr As String

Dim j As Integer, i As Integer

Set MyFile = CreateObject("Scripting.FileSystemObject") _

.CreateTextFile(ThisWorkbook.Path & "" & "人員表單.txt", True)

For i = 1 To Range("A65536").End(xlUp).Row

myStr = ""

For j = 1 To Range("IV"& i).End(xlToLeft).Column

myStr = myStr & Cells(i, j) & ","

Next

myStr = Left(myStr, (Len(myStr) - 1))

MyFile.WriteLine (myStr)

Next

MyFile.Close

Set MyFile = Nothing

End Sub

代碼解析：MyCreText過程使CreateTextFile方法創(chuàng)建一個指定名稱的文本文件并將工作表數(shù)據(jù)寫入到文件內。

第5、6行代碼使用CreateObject函數(shù)創(chuàng)建FileSystemObject對象并將該對象賦給變量MyFile后使用CreateTextFile方法創(chuàng)建一個指定名稱的文本文件。

第7行代碼逐行讀取工作表數(shù)據(jù)。

第8行代碼清空字符串變量myStr的內容，用來保存下一行的數(shù)據(jù)。

第9行代碼遍歷當前行的所有單元格。

第10行代碼將當前行的所有單元格保存到字符串變量myStr中并以逗號進行分隔。

第12行代碼去除保存在字符串變量myStr中當前行數(shù)據(jù)的最后一個逗號。

第13行代碼使用WriteLine方法將當前行數(shù)據(jù)寫入到創(chuàng)建的文本文件。

備注：應用于TextStream對象的WriteLine方法寫入一個指定的字符串和換行符到一個TextStream文件中，語法如下：object.WriteLine([string])其中參數(shù)object是必須的，TextStream對象的名字。參數(shù)string是可選的，要寫入文件的正文。如果省略，寫入一個換行符。

第15行使用Close方法關閉打開的文本文件。

代碼截圖：

打開文件看看：

今日內容回向：

1 如何導出文件，并形成一個文本文件呢？

2 object.CreateTextFile 的意義是什么？

歡迎大家到我的自媒體平臺溝通交流：個人微信號“NZ9668”、頭條號“VBA專家”、百家號“VBA與GO語言”、微信公眾號“NZ_9668”、社群“VBA學習交流群”。

這一系列文章是根據(jù)我多年的工作經驗編寫的，也是一直在利用的工具，非常方便好用。現(xiàn)在分享出來，希望能對同樣在職場打拼的朋友有些許的幫助，使你的工作更加高效、流暢。朋友們有問題請隨時提出來，我們一起探討學習。對數(shù)據(jù)分析有需要的公司、組織或個人可以直接聯(lián)系我，及時為你提供專業(yè)的定制技術支持。

工作不是一切。工作是每個人安身立命、成長發(fā)展的基礎。但你要知道工作是永遠也做不完的，時間會抹去很多問題。多關注自己、家人和朋友，這些才是我們生活中更為重要的東西。

總結

以上是生活随笔為你收集整理的vba 当前文件名_VBA代码解决方案第77讲内容：如何导出文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。