Exportation de valeurs de DataGrid vers Excel

Question

J'essaie d'exporter des valeurs dans un contrôle DataGrid pour les exceler. Le problème que j'ai est que, après le débogage, lorsque je clique sur le bouton, l'application reste bloquée. Je ne peux pas fermer le formulaire non plus. Je dois cliquer sur le bouton de débogage. Le fichier Excel n'est pas non plus créé.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.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.ApplicationClass 
    xlWorkBook = xlApp.Workbooks.Add(misValue) 
    xlWorkSheet = CType(xlWorkBook.Worksheets.Item("sheet1"), Microsoft.Office.Interop.Excel.Worksheet) 
    For i = 0 To DataGridView1.RowCount - 2 
     For j = 0 To DataGridView1.ColumnCount - 1 
      For k As Integer = 1 To DataGridView1.Columns.Count 
       xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText 
       xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString() 
      Next 
     Next 
    Next 



    xlWorkSheet.SaveAs("D:\vbexcel.xlsx") 
    xlWorkBook.Close() 
    xlApp.Quit() 

    xlApp = Nothing 
    xlWorkBook = Nothing 
    xlWorkSheet = Nothing 

    MsgBox("You can find the file D:\vbexcel.xlsx") 

End Sub 

Answer 1

Try this ...

For k As Integer = 0 To DataGridView1.Columns.Count - 1 
    xlWorkSheet.Cells(1, k + 1) = DataGridView1.Columns(k).HeaderText 
Next 
For i = 0 To DataGridView1.RowCount - 1 
    For j = 0 To DataGridView1.ColumnCount - 1 

     xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString() 

    Next 
Next