Wilder1626
asked on
Visual Studio - Export DataGridView into Excel in TEXT format
Hi
I have this code that transfer all rows from my DataGridView into Excel, but in General format.
I would like to do the transfer in TEXT format.
How can i do that please?
Thanks for your help
I have this code that transfer all rows from my DataGridView into Excel, but in General format.
I would like to do the transfer in TEXT format.
How can i do that please?
Thanks for your help
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim xlApp As Microsoft.Office.Interop.Excel.Application
Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlApp = New Microsoft.Office.Interop.Excel.Application
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("Feuil1")
For i = 0 To DataGrid.RowCount - 1
For j = 0 To DataGrid.ColumnCount - 1
For k As Integer = 1 To DataGrid.Columns.Count
If DataGrid(j, i).Value IsNot Nothing Then
xlWorkSheet.Cells(1, k) = DataGrid.Columns(k - 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = DataGrid(j, i).Value.ToString()
End If
Next
Next
Next
xlWorkSheet.SaveAs("C:\Users\xxxx\Desktop\vbexcel.xlsx")
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
Dim res As MsgBoxResult
res = MsgBox("Process completed, Would you like to open file?", MsgBoxStyle.YesNo)
If (res = MsgBoxResult.Yes) Then
Process.Start("C:\Users\xxxx\Desktop\vbexcel.xlsx")
End If
End Sub
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
It works