使用UTF-8导入CSV
我使用下面的macros（感谢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 我在代码中添加了“.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