richard512 · October 26, 2017 21:15 · Oct 26, 2017
diff --git a/Append2CSV.vba b/Append2CSV.vba
@@ -0,0 +1,40 @@
+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")