Read csv to 2D array
Watch out for quoted values which may contain commas.
Tim
"Joel" wrote in message
...
Sub EditInput()
Const ReadFile = "c:\temp\event.txt"
Const ForReading = 1, ForWriting = 2, _
ForAppending = 3
Dim Index As Integer
Dim data() As Variant
Set fs = CreateObject("Scripting.FileSystemObject")
Set fin = fs.OpenTextFile(ReadFile, _
ForReading, TristateFalse)
Index = 0
Do While fin.AtEndOfStream < True
ReadData = fin.readline
ReDim Preserve data(0 To 1, 0 To Index)
Splitdata = Split(ReadData, ",")
data(0, Index) = Splitdata(0)
data(1, Index) = Splitdata(1)
Index = Index + 1
Loop
fin.Close
End Sub
"Dave" wrote:
How can I read in a csv (comma delimited) file into a 2D array in VBA?
|