VBA 使用 UTF-16 输出到文件

使用VBA编程语言，我们可以轻松地将文本内容以UTF-16格式输出到文件中。UTF-16是一种通用的字符编码方式，适用于几乎所有的语言和字符。

vba
Sub ExportToUTF16File()
    Dim fso As Object
    Dim file As Object
    Dim text As String
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 创建一个文本文件，并以UTF-16编码打开它
    Set file = fso.CreateTextFile("C:\output.txt", True, True)
    file.WriteUnicodeText "这是一段使用UTF-16编码的文本。"
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub

vba
Sub ExportStudentScores()
    Dim fso As Object
    Dim file As Object
    Dim scores() As Variant
    Dim i As Integer
    
    ' 学生成绩数据
    scores = Array("张三,90", "李四,85", "John Doe,92", "田中太郎,88")
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 创建一个文本文件，并以UTF-16编码打开它
    Set file = fso.CreateTextFile("C:\scores.txt", True, True)
    
    ' 输出标题
    file.WriteUnicodeText "学生成绩"
    
    ' 输出学生成绩数据
    For i = LBound(scores) To UBound(scores)
        file.WriteUnicodeText scores(i)
    Next i
    
    ' 关闭文件
    file.Close
    
    ' 释放对象
    Set file = Nothing
    Set fso = Nothing
End Sub