UTF-8を使用してCSVをインポートします。

Question

私はCSVファイルをTicketsというワークシートにインポートするために、次のマクロ（The_Barmanのコードに感謝します）を使用しています。問題は、Ü、Äなどの特殊文字があることです。そのため、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