Export DataGridView as CSV

[BleepyE]

Ive bin looking for some code to export the contents of a DataGridView to CSV so I can view it in Excel.

I found this but ive got errors;

Dim sr As StreamWriter = File.CreateText(strExportFileName)
        Dim strDelimiter As String = strDelimiterType
        Dim intColumnCount As Integer = DataGridView.Columns.Count - 1
        Dim strRowData As String = ""

        If blnWriteColumnHeaderNames Then
            For intX As Integer = 0 To intColumnCount
                strRowData += Replace(DataGridView.Columns(intX).Name, strDelimiter, "") & _
                IIf(intX < intColumnCount, strDelimiter, "")
            Next intX
            sr.WriteLine(strRowData)
        End If

        For intX As Integer = 0 To DataGridView.Rows.Count - 1

            strRowData = ""

            For intRowData As Integer = 0 To intColumnCount
                strRowData += Replace(DataGridView.Rows(intX).Cells(intRowData).Value, strDelimiter, "") & _
                    IIf(intRowData < intColumnCount, strDelimiter, "")
            Next intRowData

            sr.WriteLine(strRowData)

        Next intX
        sr.Close()
        MsgBox("saved!")

[Luc001]

Hi,

What errors do you have?

[BleepyE]

Its sorted now, but please could you show me how to show the column headers in the CSV. And When I import it, it not import the column names.

Imports System.IO
Public Class driverdatabase

    Private Sub subExportDGVToCSV(ByVal strExportFileName As String, ByVal DataGridView As DataGridView, Optional ByVal blnWriteColumnHeaderNames As Boolean = False, Optional ByVal strDelimiterType As String = ",")
        Dim sr As StreamWriter = File.CreateText(strExportFileName)
        Dim strDelimiter As String = strDelimiterType
        Dim intColumnCount As Integer = DataGridView.Columns.Count - 1
        Dim strRowData As String = ""

        If blnWriteColumnHeaderNames Then
            For intX As Integer = 0 To intColumnCount
                strRowData += Replace(DataGridView.Columns(intX).Name, strDelimiter, "") & _
                IIf(intX < intColumnCount, strDelimiter, "")
            Next intX
            sr.WriteLine(strRowData)
        End If

        For intX As Integer = 0 To DataGridView.Rows.Count - 1

            strRowData = ""

            For intRowData As Integer = 0 To intColumnCount
                strRowData += Replace(DataGridView.Rows(intX).Cells(intRowData).Value, strDelimiter, "") & _
                    IIf(intRowData < intColumnCount, strDelimiter, "")
            Next intRowData

            sr.WriteLine(strRowData)

        Next intX
        sr.Close()
        MsgBox("saved!")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call subExportDGVToCSV(My.Computer.FileSystem.SpecialDirectories.Desktop & "\driversdatabase.csv", Me.driversGrid, False, ",")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim fName As String = ""
        OpenFileDialog1.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
        OpenFileDialog1.Filter = "CSV files (*.csv)|*.CSV"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        If (OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK) Then
            fName = OpenFileDialog1.FileName
        End If
        Dim TextLine As String = ""
        Dim SplitLine() As String


        If System.IO.File.Exists(fName) = True Then
            Dim objReader As New System.IO.StreamReader(fName)
            Do While objReader.Peek() <> -1
                TextLine = objReader.ReadLine()
                SplitLine = Split(TextLine, ",")
                Me.driversGrid.Rows.Add(SplitLine)
            Loop
        Else
            MsgBox("File Does Not Exist")
        End If
    End Sub

End Class

[Mitja Bonca]

Ok, I did the whole code you wanted. The code can Export and Import data from CS file.
It even creates columnHeader text:

Public Partial Class Form1
	Inherits Form
	Public Sub New()
		InitializeComponent()

		'creating columns:
		dataGridView1.Columns.Add("col1", "Id")
		dataGridView1.Columns.Add("col2", "Name")
		'allowing that user can add new rows:
		dataGridView1.AllowUserToAddRows = True
	End Sub

	Private Sub buttonSave_Click(sender As Object, e As EventArgs)
		Dim filePath As String = "C:\1\testCSV2.csv"
		Dim delimiter As String = ";"
		Dim sb As New StringBuilder()
		'create columnNames:
		For i As Integer = 0 To dataGridView1.Rows.Count - 1
			Dim array As String() = New String(dataGridView1.Columns.Count - 1) {}

			If i.Equals(0) Then
				'get column header text from all columns:
				For j As Integer = 0 To dataGridView1.Columns.Count - 1
					array(j) = dataGridView1.Columns(j).HeaderText
				Next
				sb.AppendLine([String].Join(delimiter, array))
			End If

			'get values from columns for specific row (row[i]):
			For j As Integer = 0 To dataGridView1.Columns.Count - 1
				If Not dataGridView1.Rows(i).IsNewRow Then
					array(j) = dataGridView1(j, i).Value.ToString()
				End If
			Next
			If Not dataGridView1.Rows(i).IsNewRow Then
				sb.AppendLine([String].Join(delimiter, array))
			End If
		Next
		File.WriteAllText(filePath, sb.ToString())
	End Sub

	Private Sub buttonLoad_Click(sender As Object, e As EventArgs)
		Dim filePath As String = "C:\1\testCSV2.csv"
		Dim delimiter As String = ";"
		Dim rows As String() = File.ReadAllLines(filePath)
		'clear DGV:
		dataGridView1.Rows.Clear()
		'removing columns, because they will be created ones again
		'this is a protection becuase I dont know what will you do 1st (or import or export data)!!
		Dim list As New List(Of String)()
		For Each col As DataGridViewColumn In dataGridView1.Columns
			list.Add(col.Name)
		Next
		For Each _col As String In list
			dataGridView1.Columns.Remove(_col)
		Next

		'populate DGV:
		For i As Integer = 0 To rows.Length - 1
			Dim columns As String() = rows(i).Split(New String() {delimiter}, StringSplitOptions.RemoveEmptyEntries)
			If i.Equals(0) Then
				For j As Integer = 0 To columns.Length - 1
					dataGridView1.Columns.Add("col" & (j + 1), columns(j))
				Next
			Else
				dataGridView1.Rows.Add()
				For j As Integer = 0 To columns.Length - 1
					dataGridView1(j, i - 1).Value = columns(j)
				Next
			End If
		Next
	End Sub
End Class

[BleepyE]

Thanks but i get a few errors:

When Trying to Export

Object reference not set to an instance of an object.
array(j) = datagridview1(j, i).Value.ToString()

[Christoven]

hi all..

i did want to ask something
when i copy paste the whole code.. i get this..

Dim sb As New StringBuilder() >>> type 'StringBuilder' is not defined

can anyone help me please ??

[Luc001]

hi all..

i did want to ask something
when i copy paste the whole code.. i get this..

Dim sb As New StringBuilder() >>> type 'StringBuilder' is not defined

can anyone help me please ??

Hi,

You need to add the proper namespace.

Imports System.Text

[Christoven]

thanks,

but after I try to run it .. I get this error " Object reference not set to an instance of an object.
array(j) = datagridview1(j, i).Value.ToString() "

anyone can help me?

[kvprajapati]

@Christoven

Please create a new thread to post your question and also post code part and csv file content.