Excel-Text-zu-Spalten mit VB.net

Ich habe ein Excel-Blatt mit variablen Anzahl von Einträgen in der Spalte A. Beispiel:

402110000027547 97517161579 IDLE 402-11-150 402110000013260 97517117011 IDLE 402-11-190 402110000033664 97517125759 IDET 402-11-21 

Ich möchte Text-zu-Spalten ausführen und diese Werte in separate Spalten (A, B, C & D) setzen. Jede Hilfe wird geschätzt.

  • Xml-Transformation als Excel xls
  • printingen von Gitternetzlinien in Excel über Interop
  • Verwenden von OleDB zum Abrufen von Excel-data, aber es "liest" random keine Zellendaten einer Zeile
  • Wie setze ich Excel-Format 0.00% bis 0.0000 Dezimalwert
  • Office 2003 Interop Probleme, interface, Methode nicht gefunden
  • Wie verhindere ich, dass data im wissenschaftlichen Format angezeigt werden?
  • Mit VB auf Excel, Summe der Spalte ist nur eine Zelle
  • Wie kann ich auf data in einer anderen Zeile verweisen?
  • One Solution collect form web for “Excel-Text-zu-Spalten mit VB.net”

    Ich habe es funktioniert mit diesem Code:

     With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Mit Blatt With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With .Säulen (1) .TextToColumns (_ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Ziel: = Zellen (1, 1), _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With DataType: = Excel.XlTextParsingType.xlDelimited, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With TextQualifier: = Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With KonsekutivDelimiter: = Falsch, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With TAB: = Falsch, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Semikolon: = Falsch, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Komma: = Falsch, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Raum: = wahr, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With Andere: = Falsch, _ With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With TrailingMinusNumbers: = False) With sheet .Columns(1).TextToColumns( _ Destination:=.Cells(1, 1), _ DataType:=Excel.XlTextParsingType.xlDelimited, _ TextQualifier:=Excel.XlTextQualifier.xlTextQualifierDoubleQuote, _ ConsecutiveDelimiter:=False, _ TAB:=False, _ Semicolon:=False, _ Comma:=False, _ Space:=True, _ Other:=False, _ TrailingMinusNumbers:=False) End With 

    Dank dieser Seite https://siddharthrout.wordpress.com/2012/06/29/excel-text-to-columns-from-vb-net/

    Spreadsheet (Microsoft Excel) makes working easy.