• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 384
  • Last Modified:

Copy csv file to array

I am trying to copy a csv file to a vb array with the code below.  However this csv file has over 180,000 rows of data and I get an overflow error.  How can I copy the file to an array?
Open App.Path & "\test.csv" For Input As #1
   Input #1, numRows, numCols, col1Text, col2Text
   ReDim DJData(numRows, numCols) As Double
   
   For i = 1 To numRows
      Input #1, DJData(i, 1), DJData(i, 2)
   Next i
   
   Close #1

Open in new window

0
coderblues
Asked:
coderblues
1 Solution
 
aikimarkCommented:
What are col1Text, col2Text?  Are col1Text, col2Text only on the first row?

Do you have just two columns?  If so, why do you need numCols?

Are all the data in second through the last record numeric data?

Dim i As Long
Dim j As Long
Dim DJData() As Double
 
   Open App.Path & "\test.csv" For Input As #1
   Input #1, numRows, numCols, col1Text, col2Text
   ReDim DJData(1 To numRows, 1 To numCols)
   
   For i = 1 To numRows
      For j = 1 To numCols
         Input #1, DJData(i, j)
      Next j
   Next i
   
   Close #1

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now