vb.net organisé un export excel Fermé

Question

Bonjour, 

Je voudrais savoir comment on peux limite ( organisé un export d'un datagridview (en vb.net) vers excel).

Enfaite, dans mon datagridview j'ai une cinquantaine d'enregistrement et je voudrais qu'un fois exporte dans mon fichier excel sa m'affiche sur 4 colonne au bout de la 4eme colonne sa passe a la 2emeligne ....

Merci pour toute aide 

Bonne journée 

Configuration: Windows Vista / Firefox 3.6.13

3soleilic · Answer

personne a une idée si vous plais ?? Je suis dessus depuis plusieurs jours et j'ai jamais reussi a l'organisé

Doraken · Answer

Bonjour je sais que ce thread n'est pas tout récent mais voilà une solution que j'utilise via l'interope offi.excel 

  Function PushToExcelFromDT(ByVal ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet, ByVal Datagrid As System.Windows.Forms.DataGridView, Optional ByVal progressbar As System.Windows.Forms.ProgressBar = Nothing) As Boolean
        Dim __result As Boolean = False
        Try
            If Not progressbar Is Nothing Then
                progressbar.Maximum = Datagrid.Rows.Count - 1
            End If
            Dim MAX8ROW As Integer = Datagrid.Rows.Count - 1
            Dim MAXCOL As Integer = Datagrid.ColumnCount - 1

            Dim intRow As Integer = 1
            For __rows As Integer = 0 To MAX8ROW Step 1

                Dim IntCol As Integer = 1
                For __col As Integer = 0 To MAXCOL Step 1


                    If Datagrid.Rows(__rows).Cells(__col).Value Is Nothing Then

                    Else
                        ExcelSheet.Cells(intRow, IntCol).value = Datagrid.Rows(__rows).Cells(__col).Value.ToString

                    End If
                    IntCol = IntCol + 1

                Next
                intRow = intRow + 1
                If Not progressbar Is Nothing Then
                    progressbar.Increment(1)
                End If
            Next
            __result = True
        Catch ex As Exception
            __result = False
        End Try
        Return __result
    End Function


    Function PushTitleToExcel(ByVal ExcelSheet As Microsoft.Office.Interop.Excel.Worksheet, ByVal Datagrid As System.Windows.Forms.DataGridView) As Boolean
        Dim __result As Boolean = False
        Dim cols As System.Windows.Forms.DataGridViewColumnCollection
        cols = Datagrid.Columns
        ExcelSheet.Rows("1:1").Insert()

        Dim ColCount As Integer = 1
        Try

            For Each _col As System.Windows.Forms.DataGridViewColumn In cols
                If _col.HeaderText = Nothing Then
                Else

                    ExcelSheet.Cells(1, ColCount).Value = _col.HeaderText.ToString
                    ColCount = ColCount + 1
                End If

            Next
            ExcelSheet.Columns.AutoFit()
            ExcelSheet.Rows.AutoFit()

            __result = True
        Catch ex As Exception
            __result = False
        End Try
        Return __result
    End Function


Si tu as besoin de plus d'information fait signe

3soleilic · Answer

Tout d'abord MERCI d'avoir répondu meme si sa date. 

J'avais finalement reussi a faire mon export du datagridview dans excel mais Maintenant je dois faire l'inverse 

J'ai une liste de nom et de prenom dans Excel que je veux importer dans un datagridview et justement le code que j'avais je n'arrive pas a le prendre et le modifier pr faire sa je vais donc regarder ton code 

Merci 

D'ailleurs si tu as une idée c'est avec plaisir

Vb.net organisé un export excel

3 réponses

Discussions similaires