Have you already written the section of code to open the .csv to be written
to? I'm thinking not?
Make a copy of the .csv file to test this with so that your original doesn't
get messed up if I steer you wrong. If I'm wrong, no harm done, if I'm
right, then you have copy with the data appended.
Sub AddToCSVFile()
Dim myFileNum As Integer
Dim LC As Integer ' same as your 'i'
Dim myArray(1 to 100) as Integer ' same as your Array() - alter as needed
'....your code to create and fill Array() here
myFileNum = Freefile()
'change the path and name below as required
Open "C:\My Documents\myCSVFile.csv" For Append As #myFileNum
For LC = LBound(myArray) to UBound(myArray)
Print #myFileNum, myArray(LC)
Next
Close #myFileNum
'... more code here perhaps
End Sub
That is going to simply append the contents of myArray() as added 'rows' to
the .csv file. If each element of myArray() holds multiple entries that need
to be written as column information then we have to know a little more about
the array and what's in it.
But assume it is a 2 dimensional array as
Dim myArray(1 to 100,1 to 5) As String
then you could write the loop this way
Dim RC as Integer ' row counter for loop
Dim CC as Integer ' column counter for loop
For RC=1 to 100
For CC = 1 to 4 ' yes, 4 not 5 - you'll see
Print #myFileNum myArray(RC,CC) & ","; ' note the semi-colon use
Next ' ends CC loop
Print #myFileNum myArray(RC,5) ' write last element and terminate 'row'
Next ' ends RC loop
Finally, if the data in the array contains text and that text may contain
the separator character (comma) then it needs to be written this way:
For RC=1 to 100
For CC = 1 to 4 ' yes, 4 not 5 - you'll see
Print #myFileNum Chr(34) & myArray(RC,CC) & Chr(34) & ","; ' note the
semi-colon use
Next ' ends CC loop
Print #myFileNum Chr(34) & myArray(RC,5) & Chr(34) ' write last element and
terminate 'row'
Next ' ends RC loop
