VBA写入含特殊字符的字符串到文件的技术问题

要直接写入目标字符串<exportfolder value="C:\placeholder_loc" />（其中路径为变量），核心是正确处理双引号转义，避免VBA的自动格式干扰，以下是可行方案：

1. 正确拼接字符串 #

VBA中双引号需要用两个双引号转义，或用Chr(34)（双引号的ASCII码）替代，两种方式都能生成正确的目标字符串：

方式一：双引号转义 #

Dim strPath As String, strOutput As String
strPath = "C:\Your_Actual_Path" ' 替换为你的变量路径
strOutput = "<exportfolder value=""" & strPath & """ />"

方式二：用Chr(34)替代双引号 #

这种写法更直观，避免多引号混淆：

Dim strPath As String, strOutput As String
strPath = "C:\Your_Actual_Path"
strOutput = "<exportfolder value=" & Chr(34) & strPath & Chr(34) & " />"

2. 写入文件的正确代码 #

使用FreeFile()获取空闲文件号，配合Open和Print #语句写入，不会自动添加多余空格或报错：

Sub WriteXMLNode()
    Dim strPath As String
    Dim strOutput As String
    Dim intFileNum As Integer
    
    ' 赋值变量路径
    strPath = "C:\Your_Target_Folder"
    
    ' 拼接目标字符串（二选一即可）
    ' 方式一
    strOutput = "<exportfolder value=""" & strPath & """ />"
    ' 方式二
    ' strOutput = "<exportfolder value=" & Chr(34) & strPath & Chr(34) & " />"
    
    ' 获取空闲文件号
    intFileNum = FreeFile()
    
    ' 打开文件：Output模式会创建新文件，存在则覆盖；Append模式可追加内容
    Open "C:\Your_Output_File.xml" For Output As #intFileNum
    
    ' 写入字符串
    Print #intFileNum, strOutput
    
    ' 关闭文件
    Close #intFileNum
End Sub

关键说明 #

• /和>属于普通字符，VBA字符串中无需额外处理，之前的错误大概率是双引号转义逻辑错误导致的；
• Print #语句会原样写入拼接好的字符串，不会自动添加多余空格，只要拼接正确就能生成目标内容。

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