-
Notifications
You must be signed in to change notification settings - Fork 8
Closed
Labels
Description
Parse utf8 cst Garbled code bug
Sub test2()
Dim CSVint As CSVinterface
Dim conf As CSVparserConfig
Dim Arr() As Variant
Set CSVint = New CSVinterface
Set conf = CSVint.parseConfig
With conf
.path = "C:\Users\Administrator\Desktop\VBA-CSV\test.csv"
conf.dialect.fieldsDelimiter = ","
conf.dialect.recordsDelimiter = vbCrLf
.multiEndOfLineCSV = True
.utf8EncodedFile = True
End With
CSVint.ImportFromCSV(conf).DumpToArray Arr
Sheet1.[a1].Resize(UBound(Arr) + 1, UBound(Arr, 2) + 1) = Arr
End Sub