如何用excel VBA创建无双引号的文本文件？

Sub CreateTextFileWithoutQuotes()
    Dim filePath As String
    Dim fileContent As String
    Dim fileNumber As Integer
    
    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 设置文件内容
    fileContent = "This is the content of the text file."
    
    ' 打开文件
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    
    ' 写入文件内容
    Print #fileNumber, fileContent
    
    ' 关闭文件
    Close fileNumber
End Sub