Public Shared Sub Produce_XLS_Filter(ByVal vDataset As DataSet, ByVal _
   vSheet_Name As String, ByVal Dateiname As String)
        Dim dt As DataTable
        Dim xl As New Excel.Application
        xl.Workbooks.Add()
        xl.ActiveSheet.Name = vSheet_Name
        xl.Visible = False
        'xl.Range("A1").Value = "Exportiere Daten aus Datenbank...."
        Try
            xl.ScreenUpdating = False
 
            'Die Datatable definieren
            dt = vDataset.Tables(0)
 
            'Add the column headings for the Customers
            Dim dc As DataColumn
            Dim iCols As Int32 = 0
            For Each dc In dt.Columns
                xl.Range("A1").Offset(0, iCols).Value = dc.ColumnName
                iCols += 1
            Next
 
            'Add the data
            Dim iRows As Int32
            For iRows = 0 To dt.Rows.Count - 1
                xl.Range("A2").Offset(iRows).Resize(1, iCols).Value = dt.Rows( _
                  iRows).ItemArray()
            Next
        Catch ex As Exception
 
 
        Finally
            xl.ScreenUpdating = True
        End Try
        With xl.ActiveSheet.Range("A1")
            .AutoFilter()
            .AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormatSimple) _
              'xlRangeAutoFormatSimple
        End With
        Dim Filename As Object = Dateiname
        xl.SaveWorkspace(Filename)
        xl = Nothing
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten

Micke

xl.DisplayAlerts = False ' Meldungen unterdrücken

----
Meine Komponenten sind:
Visual Studio 2008 (Standard) SP 1
Windows 7 SP 1

Beitrag wurde zuletzt am 18.03.11 um 08:35:35 editiert.