vba读取utf-8格式的文件

在VBA中，要读取UTF-8格式的文件，需要使用ADODB.Stream对象和ADODB.Stream的LoadFromFile方法。首先，我们需要创建一个ADODB.Stream对象，并设置其Charset属性为"utf-8"，以确保正确地解码UTF-8编码的文本。然后，使用LoadFromFile方法将文件加载到ADODB.Stream对象中。

以下是一个简单的示例代码，用于在VBA中读取UTF-8格式的文本文件：

Sub ReadUTF8File()
    Dim filePath As String
    Dim stream As Object
    Dim text As String

    ' 设置文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 创建ADODB.Stream对象
    Set stream = CreateObject("ADODB.Stream")

    ' 设置字符编码为UTF-8
    stream.Charset = "utf-8"

    ' 加载文件到ADODB.Stream对象
    stream.Open
    stream.LoadFromFile filePath

    ' 读取文本内容
    text = stream.ReadText

    ' 关闭ADODB.Stream对象
    stream.Close

    ' 输出文本内容
    MsgBox text
End Sub

请注意，如果要在VBA中使用ADODB对象，需要确保已经在引用中添加了"Microsoft ActiveX Data Objects"库。

在上述代码中，只需将`"C:\path\to\your\file.txt"`替换为实际的文件路径，然后运行宏，就可以读取UTF-8编码的文本文件并将其显示在一个消息框中。

希望以上回答能对您有所帮助！