Załaduj plik csv do tablicy VBA zamiast arkusza Excel
Obecnie mogę wprowadzić dane pliku csv do Excel VBA, przesyłając dane za pomocą poniższego kodu, a następnie obsługując tabelę, z pewnością nie jest to najlepszy sposób, ponieważ interesują mnie tylko niektóre dane i usuwam arkusz po użyciu danych:
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
Czy można po prostu załadować csv do dwuwymiarowej tablicy wariantów w VBA, zamiast korzystać z arkusza Excela?