Append to CSV in VBA

Append2CSV.vba

Sub Append2CSV(CSVFile As String, CellRange As String)
	Dim tmpCSV As String 'string to hold the CSV info
	Dim f As Integer
	f = FreeFile
	Open CSVFile For Append As #f
		tmpCSV = Range2CSV(Range(CellRange))
	Print #f, tmpCSV
	Close #f
End Sub

Function Range2CSV(list) As String
	Dim tmp As String
	Dim cr As Long
	Dim r As Range
	
	If TypeName(list) = "Range" Then
		cr = 1
		
		For Each r In list.Cells
			If r.Row = cr Then
				If tmp = vbNullString Then
					tmp = r.Value
				Else
					tmp = tmp & "," & r.Value
				End If
			Else
				cr = cr + 1
				If tmp = vbNullString Then
					tmp = r.Value
				Else
					tmp = tmp & Chr(10) & r.Value
				End If
			End If
		Next
	End If
	
	Range2CSV = tmp
End Function

Append2CSV("C:\VBA Code\test.csv", "A2:H3")