使用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