Umlaute werden nicht angezeigt bei Excel Import aus Datei via Interop

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    Umlaute werden nicht angezeigt bei Excel Import aus Datei via Interop

    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:

    Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btn_Excel_Export.Click
    3. Dim msExcelApplication As New Microsoft.Office.Interop.Excel.Application()
    4. msExcelApplication.Visible = True
    6. Dim workBook As Microsoft.Office.Interop.Excel.Workbook = msExcelApplication.Workbooks.Add(Microsoft.Office.Interop.Excel.XlWBATemplate.xlWBATWorksheet)
    8. Try
    9. Dim workSheet As Microsoft.Office.Interop.Excel.Worksheet = workBook.Sheets(1)
    10. With workSheet.QueryTables.Add(Connection:="TEXT;D:\Projekte\Ordner\Datei.txt", Destination:=workSheet.Range("$A$1"))
    11. .Name = "test"
    12. .FieldNames = True
    13. .RowNumbers = False
    14. .FillAdjacentFormulas = False
    15. .PreserveFormatting = True
    16. .RefreshOnFileOpen = False
    17. .SavePassword = False
    18. .RefreshStyle = Microsoft.Office.Interop.Excel.XlCellInsertionMode.xlInsertDeleteCells
    19. .SaveData = True
    20. .AdjustColumnWidth = True
    21. .RefreshPeriod = 0
    22. .TextFilePromptOnRefresh = False
    23. .TextFilePlatform = 437
    24. .TextFileStartRow = 1
    25. .TextFileParseType = Microsoft.Office.Interop.Excel.XlTextParsingType.xlDelimited
    26. .TextFileTextQualifier = Microsoft.Office.Interop.Excel.XlTextQualifier.xlTextQualifierDoubleQuote
    27. .TextFileConsecutiveDelimiter = False
    28. .TextFileTabDelimiter = False
    29. .TextFileSemicolonDelimiter = True
    30. .TextFileCommaDelimiter = False
    31. .TextFileSpaceDelimiter = False
    32. .TextFileTrailingMinusNumbers = True
    33. .Refresh(BackgroundQuery:=False)
    34. End With
    35. Catch ex As Exception
    36. Console.WriteLine(ex.ToString())
    37. Console.ReadLine()
    38. Finally
    39. workBook.Close(True)
    40. End Try
    42. End Sub


    Für Eure Hilfe wäre ich Euch dankbar.

Facebook
Telefonspende