Загрузите CSV-файл в массив VBA, а не в Excel.
В настоящее время я могу ввести данные CSV-файла в Excel VBA, загрузив данные с помощью приведенного ниже кода, а затем обработав таблицу, что, безусловно, не самый лучший способ, поскольку меня интересуют только некоторые данные, и удаляю лист после использования данных:
Sub CSV_Import()
Dim ws As Worksheet, strFile As String
Set ws = ActiveSheet 'set to current worksheet name
strFile = Application.GetOpenFilename("Text Files (*.csv),*.csv", ,"Please select text file...")
With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh
End With
End Sub
Можно ли просто загрузить CSV в двумерный вариантный массив в VBA, а не использовать лист Excel?