在excel vba中输出UTF-8文本文件

Sub ExportToUTF8()
    Dim fso As FileSystemObject
    Dim file As TextStream
    Dim filePath As String
    Dim data As String
    
    ' 设置文件路径
    filePath = "C:\path\to\output.txt"
    
    ' 创建FileSystemObject对象
    Set fso = New FileSystemObject
    
    ' 创建文本文件并打开以供写入
    Set file = fso.CreateTextFile(filePath, True, True)
    
    ' 设置输出的文本数据（示例数据）
    data = "你好，世界！"
    
    ' 将文本数据写入文件（以UTF-8编码）
    file.Write data
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
    
    MsgBox "文本文件已成功输出为UTF-8编码！"
End Sub