.rtf-Datei auslesen

Hallo Wissende
.rtf nahm Hans nicht an, ich taufte sie in .txt um.
Wie liest man denn eine .rtf-Datei aus?
https://www.herber.de/bbs/user/33660.txt
Wenn ich sie als .rtf in Word öffne, erscheinen nach dem Vorspann die Daten Zeilenweise.
Wie mache ich das um sie in Excel einzulesen, also jede Zeile in Spalten anhand des Kommas einzutragen?
Wie mir mein achfolgendes Makro zeigt sind die daten da wie bei Html-Seitencode mit Tags getrennt, muss ich die alle eliminieren oder geht es direkter?

Option Explicit
Sub tt()
Dim Satz
Close
Open "C:\andre\cape race.rtf" For Input As #1
While Not EOF(1)
Input #1, Satz
MsgBox Satz
Wend
Close
End Sub

Gruß
Reinhard
ps: Übrigens, wäre mein erster kommerzieller Auftrag wenn es klappt, dann die Daten in Excl einzubinden bekomme ich hin, aber Word-Vba kenne ich nicht bzw den Zugriff auf Word mit Excel-Vba. Naja das Angebot von 70-130 für die Lösung ist nicht so dolle, aber wäre ein Anfang, so wie Dagobert Duck mit seinem ersten Taler oder was das war :-)))

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub DokumentInZeileSpalten2() Dim Zeilen() As String, strtext, i strtext = Replace(ActiveDocument.Content, Chr(13), Chr(11)) Zeilen = Split(strtext, Chr(11)) For i = 0 To UBound(Zeilen) If InStr(Zeilen(i), "Einlage") > 0 Then MsgBox Zeilen(i) Next i End Sub

Hallo Wissende,
Option Explicit
' Die Bibliothek "Microsoft Word x.x Object Library"
' muss aktiviert sein (EARLY BINDING)
Sub ImportFromWord()
Dim WordApp As New Word.Application, strPath As String
Const strFile As String = "cape race.rtf"
strPath = "c:\Andre"
With WordApp
.ChangeFileOpenDirectory strPath
.Documents.Open strFile
With .Selection
.WholeStory
.Copy
End With
End With
Workbooks.Add
ActiveSheet.Paste
End Sub
Wenn das Makro läuft erscheint das Fensterchen "Dokument wird verwendet" und ich muss
"Schreibgeschützt" auswählen. Danach läuft das Makro durch.
Um das zu beheben, wollte ich mit F8 die Codezeile herausfinden.
Das geht aber nicht weil sich Excel dann aufhängt in/an der Zeile "With .Selection",
irgendwann kommt dann Fehlermeldung dass Excel noch auf Antwort von der OLE-Anwendung
wartet.
Ich muss dann Excel mit dem Task-manager abschiessen.
Meine 3 Fragen:
1) Wie unterdrücke ich die Meldung "Dokument wird verwendet", DisplayAlerts?
2) Ich möchte keine neue Mappe, die Daten sollen durch
.copy destination:=Thisworkbook.worksheets("Tabelle1").Range("A1")
in die aktive Excelmappe, aber scheinbar ist dieses "copy" von Word und kennt
destination nicht.
3) Wie heisst der GUID für "Microsoft Word x.x Object Library"
analog zum Verweis auf fm20:
Private Const FM20_GUID = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}"

Danke ^ Gruß
Reinhard

Option Explicit ' Die Bibliothek "Microsoft Word x.x Object Library" ' muss aktiviert sein (EARLY BINDING) Sub ImportFromWord() Dim WordApp As New Word.Application, strPath As String, wks1 As Worksheet Const strFile As String = "cape race.rtf" Set wks1 = ActiveSheet strPath = "c:\Andre" With WordApp .ChangeFileOpenDirectory strPath .Documents.Open strFile With .Selection .WholeStory .Copy End With wks1.Range("A1").Select wks1.PasteSpecial Format:="Unicode-Text", Link:=False, DisplayAsIcon:=False ' oder ' wks1.Paste Range("A1").Select .ActiveDocument.Close SaveChanges:=False .Quit End With End Sub

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