将文本文件导入为U​​TF-8

我正在使用以下vba代码将活动目录中的所有txt文件导入到excel中。

Sub ImportTXTfiles() Dim Path As String Path = Application.ActiveWorkbook.Path & "\" Filename = Dir(Path & "*.txt") Do While Filename <> "" Workbooks.Open Filename:=Path & Filename, ReadOnly:=True For Each Sheet In ActiveWorkbook.Sheets Sheet.Copy after:=ThisWorkbook.Sheets("Sheet1") Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub 

但是我的txt文件是UTF-8字符编码。 我如何使用上面的代码导入他们，但在UTF-8代码？

我试图用这个：

 With CreateObject("ADODB.Stream") .Charset = "utf-8" 'Specify charset For the source text data. End With 

但没有成功。 你的帮助表示赞赏。