CSV-Datei mit UTF-8 importieren

Question

Ich verwende das folgende Makro (danke an The_Barman für den Code!), Um eine CSV-Datei in ein Arbeitsblatt namens Tickets zu importieren. Das Problem ist, dass einige Sonderzeichen wie Ü, Ä usw. darin enthalten sind, also müsste ich die Datei im UTF-8-Format importieren. Kann mir jemand sagen, wie ich das zu diesem Code hinzufügen soll?

Vielen Dank im Voraus!

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

Ich fügte hinzu,“.TextFilePlatform = 65001" auf den Code und es funktioniert jetzt:

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