Excel VBA追加写入文件时自动加引号的原因及解决方法

问题背景 #

首次使用VBA的Open语句写入文件（此前用FSO），需兼容Windows和MacOS。代码如下：

Dim myFile As String
myFile = Application.ActiveWorkbook.Path & "\& "CGATS.txt"
Open myFile For Append As #1
Write #1, "NUMBER_OF_FIELDS"
Write #1, "BEGIN_DATA_FORMAT"
Write #1, "SAMPLE_ID"
Write #1, "END_DATA_FORMAT"
Write #1, ""
Write #1, "NUMBER_OF_SETS" & vbTab & numRows
Write #1, "BEGIN_DATA" & vbTab & "LAB_L" & vbTab & "LAB_A" & vbTab & "LAB_B"

代码可运行，但输出每行都被双引号包裹：

"NUMBER_OF_FIELDS"
"BEGIN_DATA_FORMAT"
"SAMPLE_ID"
"END_DATA_FORMAT"
""
"NUMBER_OF_SETS 52"
"BEGIN_DATA LAB_L   LAB_A   LAB_B"

原因 #

Write #是VBA为生成**结构化文本（如CSV）**设计的语句，它会自动给字符串添加双引号，目的是处理包含逗号、空格等特殊字符的内容，避免后续解析时出现歧义。这是该语句的默认行为，并非代码错误。

解决方法 #

改用Print #语句替代Write #，Print #会完全按照指定内容输出，不会自动添加引号或额外格式。

同时修正路径拼接的语法错误，并使用Application.PathSeparator适配Windows和Mac的路径分隔符，优化后的代码如下：

Dim myFile As String
' 自动适配系统路径分隔符，兼容Windows/Mac
myFile = Application.ActiveWorkbook.Path & Application.PathSeparator & "CGATS.txt"
Open myFile For Append As #1
Print #1, "NUMBER_OF_FIELDS"
Print #1, "BEGIN_DATA_FORMAT"
Print #1, "SAMPLE_ID"
Print #1, "END_DATA_FORMAT"
Print #1, ""
Print #1, "NUMBER_OF_SETS" & vbTab & numRows
Print #1, "BEGIN_DATA" & vbTab & "LAB_L" & vbTab & "LAB_A" & vbTab & "LAB_B"
Close #1 ' 务必关闭文件，释放资源

调整后输出的内容将不再包含多余引号，且跨平台兼容性更好。

内容的提问来源于stack exchange，提问作者jisner