Import von Texten in txt-Datei

Hallo zusammen,
ich habe eine txt-Datei mit 5000 Texten (jeder ca. 500 Wörter), welche mit einem $ getrennt sind. Ich möchte nun jeden Text in einer Zelle in Excel haben. Über die Import Funktion trennt Excel die Texte nicht beim Trennzeichen und die einzelnen Texte sind nicht in einer Zelle. Wenn ich einfach alle Texte aus der txt-Datei kopiere in direkt in eine Zelle einfügen, weiß ich nicht wie ich sie dann wieder trennen kann?
Kann mir ein Excel-Profi sagen, wie ich es schaffe, das jeder Text in einer Zelle steht?
Ich habe eine Beispiel txt mit 100 Texten hochgeladen.
Alternativ ist es auch möglich jeden der 5000 Texte in eine einzelne txt-Datei zu speichern. Allerdings weiß ich dann ebenfalls nicht wie ich 1. alle auf einmal importieren kann und 2. jeden Text in eine Zelle bekommen?
Es wäre super wenn mir jemand dabei helfen könnte :)!
Einen schönen 2. Weihnachtsfeiertag!!!
Gruß Tim
https://www.herber.de/bbs/user/126312.txt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub importTXT() Dim strFile As String, strTmp As String, varOut As Variant strFile = "D:\Forum\Tim.txt" strTmp = TextReadAll(strFile) varOut = Split(strTmp, "$") varOut = Application.Transpose(varOut) Range("A1").Resize(Ubound(varOut, 1), 1) = varOut End Sub Private Function TextReadAll(ByVal FileName As String) As String Dim FF As Integer, strText As String On Error Resume Next If Dir(FileName, vbNormal) <> "" Then FF = FreeFile Open FileName For Binary As #FF strText = Space$(LOF(FF)) Get #FF, , strText Close #FF TextReadAll = strText End If On Error GoTo 0 Err.Clear End Function VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Niclaus,
das geht dann z.B. so.
Modul Modul1

Option Explicit 
 
Sub importTXT() 
  Dim strFile As String, strTmp As String, varOut As Variant 
  
  strFile = "D:\Forum\Test.docx" 
 
  strTmp = getWordDocText(strFile) 
   
  varOut = Split(strTmp, "$") 
  
  varOut = Application.Transpose(varOut) 
  
  Range("A1").Resize(Ubound(varOut, 1), 1) = varOut 
End Sub 
  
Private Function getWordDocText(ByVal FileName As String, Optional includeHeader As Boolean = False, Optional includeFooter As Boolean = False) As String 
  Dim objWord As Object, objDoc As Object 
  Dim strHeader As String, strFooter As String, strContent As String 
 
  On Error GoTo ErrExit 
 
  Set objWord = CreateObject("Word.Application") 
  Set objDoc = objWord.Documents.Open(FileName) 
 
  strHeader = objDoc.Sections(1).Headers(1).Range.Text 
 
  strFooter = objDoc.Sections(1).Footers(1).Range.Text 
 
  strContent = objDoc.Content 
 
  objDoc.Close 
  objWord.Quit 
 
  If includeHeader Then strContent = strHeader & vbNewLine & strContent 
  If includeFooter Then strContent = strContent & vbNewLine & strFooter 
 
  getWordDocText = strContent 
 
ErrExit: 
 
  If Err.Number <> 0 Then 
    getWordDocText = "Error reading wordfile!" 
    If Not objDoc Is Nothing Then objDoc.Close 
    If Not objWord Is Nothing Then objWord.Quit 
    Err.Clear 
  End If 
 
  Set objDoc = Nothing 
  Set objWord = Nothing 
End Function 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread