使用UTF-8导入CSV

Question

我正在使用以下宏（感谢The_Barman提供的代码！）将CSV文件导入到名为Tickets的工作表中。问题在于其中有一些特殊字符，如Ü，Ä等，因此我需要以UTF-8格式导入文件。有人可以告诉我如何将其添加到此代码中吗？

提前致谢！

Sub CSV_Import()
Dim ws As Worksheet, strFile As String


Worksheets("Tickets").Range("A1:Z9999").Clear

Set ws = ActiveWorkbook.Sheets("Tickets")

strFile = "C:\test\testfile.csv"

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With
End Sub

Answer 1

我在代码中添加了“ .TextFilePlatform = 65001”，它现在可以正常工作：

Sub CSV_Import()
Dim ws As Worksheet, strFile As String


Worksheets("Tickets").Range("A1:Z9999").Clear

Set ws = ActiveWorkbook.Sheets("Tickets")

strFile = "C:\test\testfile.csv"

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFilePlatform = 65001
     .TextFileCommaDelimiter = True
     .Refresh

End With
End Sub