Textfile in Excel exportieren

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von lordknoblauch.

    Textfile in Excel exportieren

    Hallo Zusammen
    Hat das jemand von euch schon gemacht?
    Ich habe ein Textfile mit mehreren Zeilen, die Wörter in einer Linie sind jeweils mit einem Semikolon (;) getrennt.
    Nun möchte ich dieses Textfile in ein Excel exportieren, aber so, dass nach jedem Semikolon eine neue Spalte genommen wird.

    Geht das?

    Gruss und Danke
    reustli

    als lösungsansatz:
    DatagridViewToExcel

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Windows.Forms
    4. Public Class Class1
    6. Public Sub exportExcel(ByVal grdView As DataGridView, ByVal fileName As String)
    8. ' Choose the path, name, and extension for the Excel file
    9. Dim myFile As String = fileName
    11. ' Open the file and write the headers
    12. Dim fs As New IO.StreamWriter(myFile, False)
    13. fs.WriteLine("<?xml version=""1.0""?>")
    14. fs.WriteLine("<?mso-application progid=""Excel.Sheet""?>")
    15. fs.WriteLine("<ss:Workbook xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"">")
    16. ' Create the styles for the worksheet
    17. fs.WriteLine(" <ss:Styles>")
    18. ' Style for the column headers
    19. fs.WriteLine("<ss:Style ss:ID=""1"">")
    20. fs.WriteLine("<ss:Font ss:Bold=""1""/>")
    21. fs.WriteLine("<ss:Alignment ss:Horizontal=""Center"" ss:Vertical=""Center"" " & _
    22. "ss:WrapText=""1""/>")
    23. fs.WriteLine("<ss:Interior ss:Color=""#C0C0C0"" ss:Pattern=""Solid""/>")
    24. fs.WriteLine("</ss:Style>")
    25. ' Style for the column information
    26. fs.WriteLine("<ss:Style ss:ID=""2"">")
    27. fs.WriteLine("<ss:Alignment ss:Vertical=""Center"" ss:WrapText=""1""/>")
    28. fs.WriteLine("</ss:Style>")
    29. fs.WriteLine("</ss:Styles>")
    30. ' Write the worksheet contents
    31. fs.WriteLine("<ss:Worksheet ss:Name=""Sheet1"">")
    32. fs.WriteLine("<ss:Table>")
    33. For i As Integer = 0 To grdView.Columns.Count - 1
    34. fs.WriteLine(String.Format("<ss:Column ss:Width=""{0}""/>", _
    35. grdView.Columns.Item(i).Width))
    36. Next
    37. fs.WriteLine("<ss:Row>")
    38. For i As Integer = 0 To grdView.Columns.Count - 1
    39. fs.WriteLine(String.Format("<ss:Cell ss:StyleID=""1"">" & _
    40. "<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
    41. grdView.Columns.Item(i).HeaderText))
    42. Next
    43. fs.WriteLine("</ss:Row>")
    45. ' Check for an empty row at the end due to Adding allowed on the DataGridView
    46. Dim subtractBy As Integer, cellText As String
    47. If grdView.AllowUserToAddRows = True Then subtractBy = 2 Else subtractBy = 1
    48. ' Write contents for each cell
    49. For i As Integer = 0 To grdView.RowCount - subtractBy
    50. fs.WriteLine(String.Format("<ss:Row ss:Height=""{0}"">", _
    51. grdView.Rows(i).Height))
    52. For intCol As Integer = 0 To grdView.Columns.Count - 1
    53. cellText = grdView.Item(intCol, i).Value
    54. ' Check for null cell and change it to empty to avoid error
    55. If cellText = vbNullString Then cellText = ""
    56. fs.WriteLine(String.Format("<ss:Cell ss:StyleID=""2"">" & _
    57. "<ss:Data ss:Type=""String"">{0}</ss:Data></ss:Cell>", _
    58. cellText.ToString))
    59. Next
    60. fs.WriteLine("</ss:Row>")
    61. Next
    62. ' Close up the document
    63. fs.WriteLine("</ss:Table>")
    64. fs.WriteLine("</ss:Worksheet>")
    65. fs.WriteLine("</ss:Workbook>")
    66. fs.Close()
    68. End Sub
    70. Sub ToXLS(ByVal DG As DataGridView, Optional ByVal Standardname As String = "")
    72. Dim filesave As SaveFileDialog = New SaveFileDialog
    73. filesave.AddExtension = True
    74. filesave.Filter = "Excel-Dateien (*.xls)|*.xls"
    75. filesave.FileName = Standardname
    77. If filesave.ShowDialog = DialogResult.Cancel Then
    78. GoTo ende
    79. End If
    81. On Error GoTo break
    82. exportExcel(DG, filesave.FileName)
    83. MsgBox("Datei wurde angelegt: " & filesave.FileName)
    84. GoTo ende
    85. break:
    86. errormessage()
    87. ende:
    88. End Sub
    90. Sub errormessage()
    91. MessageBox.Show("Exportieren der Datei fehlgeschlagen!", "Exportfehler!", MessageBoxButtons.OK, MessageBoxIcon.Error)
    92. End Sub
    94. End Class

    ist halt vorgesehen um ein DataGridView nach excel zu exportieren, aber bietet schon einen dicken ansatz

Facebook
Telefonspende