以UTF-8编码保存文件

Question

我有宏，可以根据Excel工作表中的值创建文本文件。 需要将该文件另存为UTF-8编码 需要专家的建议

这是将字符串另存为txt文件的最终代码

    Dim fso As Object
    Set fso = CreateObject("Scripting.FileSystemObject")

    Dim Fileout As Object
    Set Fileout = fso.CreateTextFile(ThisWorkbook.Path & "\" & Sheet2.Range("H" & k).Value & ".xml", True, True)
    Fileout.Write outStr
    Fileout.Close