Wie erstellen Sie eine Excel-Datei mit einer Datenbank-Abfrage in VB.Net?

OK das ist nicht perfekt, aber es sollte Ihnen den Einstieg. Zuerst von allen werden Sie wollen, fügen Sie einen Verweis auf die Excel-version Sie verwenden. In meinem Fall ist es 12.0 (2007), aber dieser code sollte mit den letzten zwei oder drei version mit einer geringfügigen Veränderung oder zwei. Am oberen Rand der Seite hinzufügen, diese

Importe Microsoft.Office.Interop

Als Nächstes fügen Sie eine Funktion zum erstellen einer datatable

Public Function CreateTable() As DataTable
    Dim cn As New SqlConnection(My.Settings.con)
    Dim cmd As New SqlCommand
    Using da As New SqlDataAdapter()
        Dim dt As New DataTable()
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "[dbo].[MyStoredProcedure]"
        cmd.CommandTimeout = 0
        cn.Open()
        cmd.Connection = cn
        da.SelectCommand = cmd
        da.Fill(dt)
        cn.Close()
        Return dt
    End Using
End Function

Neben dem code zu nehmen, der die DataTable und werfen Sie es in Excel ein.

Public Shared Sub PopulateSheet(ByVal dt As DataTable, ByVal File As String)
            Dim oXL As Excel.Application = CType(CreateObject("Excel.Application"), Excel.Application)
        Dim oWB As Excel.Workbook
        Dim oSheet As Excel.Worksheet
        Dim oRng As Excel.Range
        oXL.Visible = True

        oWB = oXL.Workbooks.Add
        oSheet = CType(oWB.ActiveSheet, Excel.Worksheet)

        Dim dc As DataColumn
        Dim dr As DataRow
        Dim colIndex As Integer = 0
        Dim rowIndex As Integer = 0
        For Each dc In dt.Columns
            colIndex = colIndex + 1
            oXL.Cells(1, colIndex) = dc.ColumnName
        Next
        For Each dr In dt.Rows
            rowIndex = rowIndex + 1
            colIndex = 0
            For Each dc In dt.Columns
                colIndex = colIndex + 1
                oXL.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName)
            Next
        Next

        oSheet.Cells.Select()
        oSheet.Columns.AutoFit()
        oSheet.Rows.AutoFit()

        oXL.Visible = True
        oXL.UserControl = True

        oWB.SaveAs(File)
        oRng = Nothing
        oXL.Quit()

        ExcelCleanUp(oXL, oWB, oSheet)
    End Sub

Nun, Sie können es nennen, eine Schaltfläche oder was auch immer Fall, wählen Sie mit dieser

    Dim dt As New DataTable
    Try
        dt = CreateTable()
        PopulateSheet(dt, "c:\test\ExcelFile.xlsx")
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        dt.Dispose()
    End Try

Nun, das ist wirklich einfach, aber mit ein wenig Arbeit, die Sie tun können, Zelle formatieren, Seite einrichten und einfach über alles, was getan werden kann in Excel mit den Menüs/Optionen.

Sollten wir auch beenden, indem Sie code, Dinge zu bereinigen.

Private Shared Sub ExcelCleanUp( _
    ByVal oXL As Excel.Application, _
    ByVal oWB As Excel.Workbook, _
    ByVal oSheet As Excel.Worksheet)

    GC.Collect()
    GC.WaitForPendingFinalizers()

    Marshal.FinalReleaseComObject(oXL)
    Marshal.FinalReleaseComObject(oSheet)
    Marshal.FinalReleaseComObject(oWB)

    oSheet = Nothing
    oWB = Nothing
    oXL = Nothing

End Sub

InformationsquelleAutor Buck Hicks

Finden Sie einige ausgezeichnete Artikel über diese auf CodeProject:

Excel-Export-Komponente Mithilfe von XSL: In diesem Artikel finden Sie eine Komponente zum exportieren der Daten in Excel ohne Verwendung von jeder office-Komponente.

Export zu Excel verwenden VB.Net: In diesem einen verwendet der Autor Excel-Automatisierung, um den job zu erledigen.

InformationsquelleAutor Doliveras