Hallo,
ich exportiere aus einem DataGridView Daten nach EXCEL. Im DataGridView sind mehrere Spalten als Währung dargestellt. Im Excel landen sie aber als nackte Zahlen. Ich hätt gerne, das im EXCEL die Währungsspalten erhalten bleiben.
Wie kann ich das anstellen?
Danke !
queckjunior
ich exportiere aus einem DataGridView Daten nach EXCEL. Im DataGridView sind mehrere Spalten als Währung dargestellt. Im Excel landen sie aber als nackte Zahlen. Ich hätt gerne, das im EXCEL die Währungsspalten erhalten bleiben.
Quellcode
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Dim xls_Appl As Excel.Application ' Excel Anwendung
- Dim xls_Mappe As Excel.Workbook ' Excel Arbeitsmappe
- Dim xls_Blatt As Excel.Worksheet ' Excel Blatt (Tabelle)
- Dim Anzahlzeilen As Integer
- xls_Appl = New Excel.Application() ' Excel Instanz bilden
- xls_Appl.Visible = True
- xls_Mappe = xls_Appl.Workbooks.Add()
- xls_Blatt = xls_Mappe.ActiveSheet
- 'hier muß der Name des zu exportierenden DataGridViews reinWith Pr_mg_legierungDataGridViewFor 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 IfFor Zeile As Integer = 0 To Anzahlzeilen - 1For Spalte As Integer = 0 To .Columns.Count - 1
- xls_Blatt.Cells(Zeile + 2, Spalte + 1).Value() _
- = .Rows(Zeile).Cells(Spalte).Value()
- Next
- Next
- End WithEnd Sub
Wie kann ich das anstellen?
Danke !
queckjunior
