.rtf-Datei auslesen

Reinhard · 2006-05-15T23:55:27+00:00

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 :-)))

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

Hallo Reinhard,
nach den folgenden Anpassungen funktioniert das Makro (Konfiguration: WinXP, MS Office Professional 2003). Dabei darf die rtf-Datei nicht in Word geöffnet sein, wenn das Makro gestartet wird. Ansonsten müßte man in Word prüfen, ob die rtf-Datei schon geöffnet ist und das Dokument aktivieren, hab ich auf die Schnelle aber nicht hinbekommen. Nach dem Einfügen der Daten in die EXCEL-Tabelle wird die rtf-Datei in Word wieder geschlossen.


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

Zu Frage 3 hab ich keien Antwort.
Gruß
Franz

Forumthread: .rtf-Datei auslesen

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

RTF-Dateien in Excel importieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)