這裡介紹如何在 Excel VBA 中讀取與寫入文字檔,並提供基本的參考範例。

通常 Excel VBA 程式都會從 Excel 表格中取得資料,經過處理之後再送回 Excel 表格中,但有些時候我們也會需要直接從外部的文字檔讀取資料,或是將處理完的資料儲存至外部的文字檔中,以下是 Excel VBA 中檔案讀取與寫入的教學。

讀取外部文字檔

若要在 VBA 中讀取外部的文字檔,可以使用 Open 來開啟檔案,其語法為:

Open 檔案位置 For Input As 檔案代碼

檔案位置就是檔案在硬碟中的路徑,VBA 在開啟檔案之後,會使用檔案代碼來辨識檔案,每個已開啟的檔案都會對應一個不重複的檔案代碼,例如 #1#2 等,編號可以不連續,但不可以重複。

開啟檔案之後,通常我們會使用迴圈的方式來讀取整個檔案內容,每次以 Line 讀取一行資料,然後藉由 EOF(end of file)來判斷檔案是否已經讀取到結尾,如果讀取至結尾則跳出迴圈。

在檔案開啟之後,後續所有的檔案讀取以及判斷檔案結尾等動作,都會使用檔案代碼的方式來指定檔案。

以下是一個簡單的範例:

Dim FilePath As String

' 文字檔案位置
FilePath = "C:\ExcelDemo\demo.txt"

' 開啟 FilePath 文字檔,使用編號 #1 檔案代碼
Open FilePath For Input As #1

' 執行迴圈,直到編號 #1 檔案遇到結尾為止
Do Until EOF(1)

  ' 從編號 #1 檔案讀取一行資料
  Line Input #1, LineFromFile

  ' 輸出一行資料
  MsgBox (LineFromFile)

Loop

' 關閉編號 #1 檔案
Close #1

VBA 讀取文字檔案

這個範例會開啟 C:\ExcelDemo\demo.txt 這個文字檔(執行時請自己建立這個檔案),並將其設定為編號 #1 的檔案,如果要開啟多個檔案時,則可自行變更每個檔案的代碼,例如 #2#3 等。

在迴圈的判斷式中,我們使用 EOF(1) 來判斷編號 #1 的檔案是否已經到達結尾處。

在讀檔的動作則使用 LineInput #1 之中讀取一行資料,然後將這一行資料儲存在 LineFromFile 這個變數當中。

當檔案使用完畢之後,要使用 Close 將開啟的檔案關閉。

寫入外部文字檔

若要將資料寫入外部的文字檔,一開始也是使用 Open 開啟檔案:

Open 檔案位置 For Output As 檔案代碼

這個語法跟之前讀檔的語法類似,只是把開檔的模式改為 Output,檔案位置就填入要寫入的檔案路徑,而檔案代碼也是自己取一個不重複的數字即可。開啟檔案之後,即可使用 Print 函數將指定的資料寫入檔案中。

Dim OutputFilePath As String
Dim Content As String

' 文字檔案位置
OutputFilePath = "C:\ExcelDemo\demo_output.txt"

' 開啟 OutputFilePath 文字檔,使用編號 #2 檔案代碼
Open OutputFilePath For Output As #2

' 要寫入檔案的內容
Content = "This is a test."

' 將 Content 的內容寫入編號 #2 的檔案
Print #2, Content

' 關閉編號 #2 檔案
Close #2

VBA 寫入文字檔案

這個範例會打開 C:\ExcelDemo\demo_output.txt 這個檔案,然後將 Content 變數的內容以 Print 寫入其中,最後呼叫 Close 將檔案關閉。而在寫入完成後,demo_output.txt 的檔案內容如下:

寫入檔案的內容

如果呼叫 Print 時,省略要寫入的資料,就會寫入空白行至檔案中:

' 寫入空白行
Print #2,

若要拼湊多個變數,產生想要的排版格式,可以使用分號將多個資料串起來:

' 以空白分隔
Print #2, "Hello"; " "; "World"

' 以 5 個空白分隔
Print #2, "Hello"; Spc(5); "World"

Dim MyBool As Boolean
MyBool = True
' 輸出字串與布林變數
Print #2, "The "; MyBool; " is a Boolean value."

Dim MyInt As Integer
MyInt = 123
' 輸出字串與整數變數
Print #2, "The"; MyInt; "is a Integer value."

這是寫入的檔案內容:

寫入檔案的內容

更多 Print 的範例,可以參考 MSDN 的說明文件

除了使用 Print 之外,還有一個 Write 也可以寫入檔案,它會自動將文字的內容加上雙引號,並以逗號分隔多個輸入變數,以下是一個範例(將上面 Print 的位置直接替換成 Write 即可):

' 以逗號分隔,寫入檔案
Write #2, "Hello, World", 123

Write 在寫入檔案時,會將幾種 VBA 變數轉換為特殊的格式,例如 True 就會轉為 #TRUE#,詳細的說明請參考 MSDN 的說明文件