Hallo Leute,
ich habe mir die Posts zu diesem Thema schon angesehen, finde aber nicht die richtige Antwort auf meine Frage. Ich möchte eine Text-Datei mittels Interop in Excel einfügen. Trennzeichen ist das Semikolon.
Leider werden die Umlaute falsch bzw. gar nicht wiedergegeben. Was kann ich tun ? Hier der Code:
Für Eure Hilfe wäre ich Euch dankbar.
ich habe mir die Posts zu diesem Thema schon angesehen, finde aber nicht die richtige Antwort auf meine Frage. Ich möchte eine Text-Datei mittels Interop in Excel einfügen. Trennzeichen ist das Semikolon.
Leider werden die Umlaute falsch bzw. gar nicht wiedergegeben. Was kann ich tun ? Hier der Code:
Quellcode
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btn_Excel_Export.Click
- Dim msExcelApplication As New Microsoft.Office.Interop.Excel.Application()
- msExcelApplication.Visible = True
- Dim workBook As Microsoft.Office.Interop.Excel.Workbook = msExcelApplication.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet)
- Try
- Dim workSheet As Microsoft.Office.Interop.Excel.Worksheet = workBook.Sheets(1)
- With workSheet.QueryTables.Add(Connection:="TEXT;D:\Projekte\Ordner\Datei.txt", Destination:=workSheet.Range("$A$1"))
- .Name = "test"
- .FieldNames = True
- .RowNumbers = False
- .FillAdjacentFormulas = False
- .PreserveFormatting = True
- .RefreshOnFileOpen = False
- .SavePassword = False
- .RefreshStyle = Microsoft.Office.Interop.Excel.XlCellInsertionMode.xlInsertDeleteCells
- .SaveData = True
- .AdjustColumnWidth = True
- .RefreshPeriod = 0
- .TextFilePromptOnRefresh = False
- .TextFilePlatform = 437
- .TextFileStartRow = 1
- .TextFileParseType = Microsoft.Office.Interop.Excel.XlTextParsingType.xlDelimited
- .TextFileTextQualifier = Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierDoubleQuote
- .TextFileConsecutiveDelimiter = False
- .TextFileTabDelimiter = False
- .TextFileSemicolonDelimiter = True
- .TextFileCommaDelimiter = False
- .TextFileSpaceDelimiter = False
- .TextFileTrailingMinusNumbers = True
- .Refresh(BackgroundQuery:=False)
- End With
- Catch ex As Exception
- Console.WriteLine(ex.ToString())
- Console.ReadLine()
- Finally
- workBook.Close(True)
- End Try
- End Sub
Für Eure Hilfe wäre ich Euch dankbar.