Hallo zusammen,
ich habe da mal eine Frage an die Profis ;).
Ich wandele mit untenstehendem Code ein Blatt einer Excel Datei in eine CSV Datei um. Das Funktioniert auch exakt so wie es soll .... bis auf eine Ausnahme. Es gibt in dem Excel Blatt eine Spalte die ein Datum enthält und dieses ist in der CSV Datei komplett anders formatiert.
Die Deutsche Standard Formatierung von dd/MM/yyyy wird geändert in die US Formatierung MM/dd/yyyy. Außerdem werden führende Nullen bei Tag und Monat entfernt. Gibt es eine Möglichkeit das Datum in der deutschen Formatierung und ohne Entfernung der Nullen in die CSV Datei zu übernehmen? Die entsprechenden Felder in dem Excel Blatt sind übrigens als Datum formatiert.
Ich danke jedem für seine Hilfe.
ich habe da mal eine Frage an die Profis ;).
Ich wandele mit untenstehendem Code ein Blatt einer Excel Datei in eine CSV Datei um. Das Funktioniert auch exakt so wie es soll .... bis auf eine Ausnahme. Es gibt in dem Excel Blatt eine Spalte die ein Datum enthält und dieses ist in der CSV Datei komplett anders formatiert.
Die Deutsche Standard Formatierung von dd/MM/yyyy wird geändert in die US Formatierung MM/dd/yyyy. Außerdem werden führende Nullen bei Tag und Monat entfernt. Gibt es eine Möglichkeit das Datum in der deutschen Formatierung und ohne Entfernung der Nullen in die CSV Datei zu übernehmen? Die entsprechenden Felder in dem Excel Blatt sind übrigens als Datum formatiert.
Ich danke jedem für seine Hilfe.
VB.NET-Quellcode
- Public Sub Create_ExcelFile_InCsvFormat(ByVal ExcelFileName As String,
- ByVal CsvFileName As String)
- If IO.File.Exists(ExcelFileName) Then
- Dim xlApp As Excel.Application = Nothing
- Dim xlWorkBooks As Excel.Workbooks = Nothing
- Dim xlWorkBook As Excel.Workbook = Nothing
- Dim xlWorkSheet As Excel.Worksheet = Nothing
- xlApp = New Excel.Application
- xlApp.DisplayAlerts = False
- xlWorkBooks = xlApp.Workbooks
- xlWorkBook = xlWorkBooks.Open(ExcelFileName)
- xlWorkSheet = CType(xlWorkBook.ActiveSheet, Excel.Worksheet)
- xlWorkBook.SaveAs(CsvFileName, FileFormat:=Excel.XlFileFormat.xlCSVWindows)
- xlWorkBook.Close()
- xlApp.UserControl = True
- xlApp.Quit()
- If Not xlWorkSheet Is Nothing Then
- Marshal.FinalReleaseComObject(xlWorkSheet)
- xlWorkSheet = Nothing
- End If
- If Not xlWorkBook Is Nothing Then
- Marshal.FinalReleaseComObject(xlWorkBook)
- xlWorkBook = Nothing
- End If
- If Not xlWorkBooks Is Nothing Then
- Marshal.FinalReleaseComObject(xlWorkBooks)
- xlWorkBooks = Nothing
- End If
- If Not xlApp Is Nothing Then
- Marshal.FinalReleaseComObject(xlApp)
- xlApp = Nothing
- End If
- Else
- MessageBox.Show("Datei konnte nicht gefunden werden! " & ExcelFileName)
- End If
- End Sub