Hallo zusammen,
Ich exportiere wie folgt mein DGV in ein Excel file:
Nun würde ich gerne nur diejenige Spalten Exportieren die auch Sichtbar sind.
Kann mir jemand helfen?
Ich exportiere wie folgt mein DGV in ein Excel file:
VB.NET-Quellcode
- If System.IO.File.Exists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Stückliste.xls") Then
- Kill(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Stückliste.xls")
- End If
- Dim xls_Appl As Excel.Application
- Dim xls_Mappe As Excel.Workbook
- Dim xls_Blatt As Excel.Worksheet
- Dim Anzahlzeilen As Integer
- xls_Appl = New Excel.Application()
- xls_Appl.Visible = False
- xls_Mappe = xls_Appl.Workbooks.Add()
- xls_Blatt = xls_Mappe.ActiveSheet
- 'hier muß der Name des zu exportierenden DataGridViews rein
- With Artikel_stuecklisteDataGridView
- For Spalte As Integer = 0 To .Columns.Count - 1
- xls_Blatt.Cells(1, Spalte + 1).Value = .Columns(Spalte).HeaderText
- xls_Blatt.Cells(1, Spalte + 1).Font.Bold = True
- Next
- Anzahlzeilen = .Rows.Count
- If .AllowUserToAddRows = True Then
- Anzahlzeilen = Anzahlzeilen - 1 ' Leerzeile abziehen
- End If
- For Zeile As Integer = 0 To Anzahlzeilen - 1
- For Spalte As Integer = 0 To .Columns.Count - 1
- xls_Blatt.Cells(Zeile + 2, Spalte + 1).Value() _
- = .Rows(Zeile).Cells(Spalte).Value()
- Next
- Next
- End With
- xls_Appl.DisplayAlerts = False 'vor dem Speichern - vermeidet eventuelle Dialoge
- xls_Mappe.SaveAs(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Stückliste.xls")
- xls_Appl.Quit()
Nun würde ich gerne nur diejenige Spalten Exportieren die auch Sichtbar sind.
Kann mir jemand helfen?