Link to home
Start Free TrialLog in
Avatar of Wilder1626
Wilder1626Flag for Canada

asked on

VB.NET - Error on Export to Excel

Hi again.

I'm trying to export to Excel all columns from my DataGridView1.
Ex:
User generated image
I'm using below code:
Imports System.Data
Imports System.Reflection
Imports ClosedXML.Excel

Open in new window


Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnExportToExcel.Click
        'Creating DataTable
        Dim dt As New DataTable()

        'Adding the Columns
        For Each column As DataGridViewColumn In DataGridView1.Columns
            dt.Columns.Add(column.HeaderText, column.ValueType)
        Next

        'Adding the Rows
        For Each row As DataGridViewRow In DataGridView1.Rows
            dt.Rows.Add()
            For Each cell As DataGridViewCell In row.Cells
                dt.Rows(dt.Rows.Count - 1)(cell.ColumnIndex) = cell.Value.ToString()
            Next
        Next

        'Exporting to Excel
        Dim folderPath As String = "C:\"
        If Not Directory.Exists(folderPath) Then
            Directory.CreateDirectory(folderPath)
        End If
        Using wb As New XLWorkbook()
            wb.Worksheets.Add(dt, "Customers")
            wb.SaveAs(folderPath & Convert.ToString("DataGridViewExport.xlsx"))
        End Using
    End Sub

Open in new window

The problem i have is that i'm getting below error, and i don't understand why:
User generated image

What can i do to fix this problem?

Thank you.
ASKER CERTIFIED SOLUTION
Avatar of Kimputer
Kimputer

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial