大家好，我們今日繼續講解VBA代碼解決方案的第132講內容：使用 Write #語句把數據寫入打開順序文件中。在上一講的內容中我們講了打開一文本文件來寫入數據的兩種方法有：Append或Output，那么問題來了，如何往打開的文件中寫入數據呢？這一講我們就開始講解寫入數據的方法。今天講的是Write #語句，它會將數據寫入文件。當你使用打開一個順序文件的時候，通常使用Write #語句往該文件寫入數據。

語法：Write #filenumber, [outputlist]

參數：①Filenumber正使用的文件的號碼，它是Write #語句的唯一必須的參數。

②Outputlist是將要寫入的文本。Outputlist可以是你要寫入的單個文本字符，也可以是包含數據的變量清單。

備注：如果你只明確了文件號碼，VBA就會在打開的文件里寫入一個空行。

下面我們通過一個實例來演示數據是如何寫入文件的：

代碼：

Sub mynznewEntry()

Dim newname As String

Dim sex As String

Dim newbirthdate As Date

Dim news As Integer

Open "E:zwork文章人員表單最新版.txt" For Output As #1 '這里用的是Output

newname = "張1"

sex = "男"

newbirthdate = #1/2/1996#

news = 3

Write #1, newname, sex, newbirthdate, news

newname = "張2"

sex = "女"

newbirthdate = #5/12/1994#

news = 2

Write #1, newname, sex, newbirthdate, news

newname = "張3"

sex = "女"

newbirthdate = #4/7/1997#

news = 1

Write #1, newname, sex, newbirthdate, news

Close #1

End Sub

代碼截圖：

上面的過程打開文件E:zwork文章人員表單最新版.txt來寫入數據。因為該文件還不存在，所以VBA將首先創建了一個全新的文件，并寫入三條記錄。字符串由雙引號分隔，而生日則用#號包圍起來，

當我們打開文件E:zwork文章人員表單最新版.txt時，你將看到下述的記錄：

補充說明：Write #語句自動在每個數據之間插入逗號并且將行結束字符(Chr(13) & Chr(10))放在每行文本的后面，所以每行新紀錄都從新的行開始。在上面的例子里面，每行文本顯示一條記錄—— 每條記錄以姓名開始，以最后的數字結束。

那么，上述的過程有沒有簡單的方法來錄入呢？把工作表中的數據如何寫入文本文件中呢？由于篇幅的原因，這能在《VBA代碼解決方案》第三冊的內容中再詳細的介紹了，和上述代碼的思路是一致的。

今日內容回向：

1 如何往文件中寫入數據呢？

2 Write #語句寫入數據有什么特點呢？

總結

以上是生活随笔為你收集整理的c向文件中插入数据_如何把数据写入顺序文件中，VBA代码中Write#语句的利用的全部內容，希望文章能夠幫你解決所遇到的問題。

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