Открыть файл CSV через VBA (производительность)

Очевидно, этот вопрос задавался много раз . Обычная процедура:

Workbooks.Open (ActiveWorkbook.Path & "\ Test.csv ")

не будет правильно анализировать CSV (имея много строк в одной ячейке)

Благодаря Lernkurve, я могу использовать его функцию, чтобы понять это правильно: Открытие CSV-файла с разделителями с запятой

Sub ImportCSVFile(filepath As String)
Dim line As String
Dim arrayOfElements
Dim linenumber As Integer
Dim elementnumber As Integer
Dim element As Variant

linenumber = 0
elementnumber = 0

Open filepath For Input As #1 ' Open file for input
    Do While Not EOF(1) ' Loop until end of file
        linenumber = linenumber + 1
        Line Input #1, line
        arrayOfElements = Split(line, ";")

        elementnumber = 0
        For Each element In arrayOfElements
            elementnumber = elementnumber + 1
            Cells(linenumber, elementnumber).Value = element
        Next
    Loop
Close #1 ' Close file.
End Sub

Это однако это не быстро (у меня есть файлы с тысячами столбцов), и мой вопрос:

Есть ли собственный способ открыть файлы CSV в Excel с правильным синтаксическим анализом?

11
задан Anxious Bubblegum 12 July 2019 в 10:50
поделиться