Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aus Excel Word-Dokument einlesen
zurück: Beim schließen des Dokuments MUSS "Speichern Unter" weiter: Aus RTF Dateien die Dateiinfo unter Anpassen auslesen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
christianx5
Gast


Verfasst am:
04. Sep 2007, 10:02
Rufname:

Aus Excel Word-Dokument einlesen - Aus Excel Word-Dokument einlesen

Nach oben
       Version: Office XP (2002)

Hallo zusammen, vielleicht kann mir jemand helfen: Warum funktioniert folgender Code-Abschnitt nicht?

Private Const Pfad = "C:\Documents and Settings\DE-56409\My Documents\Projekte\VBA\Test.DOC"

Sub Wordund Excel()
Dim wdAnw As Object
Dim wdDok As Object
Set wdDok = GetObject(Pfad)
Set wdAnw = wdDok.Parent
wdAnw.Visible = True
wdAnw.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
wdAnw.Activate
strText = ActiveDocument.Tables(2).Cell(4, 2).Range.Text
strText = Left(strText, Len(strText) - 2)
MsgBox strText
'
'
'wdDok.Close
'wdAnw.Quit
Set wdDok = Nothing
Set wdAnw = Nothing
End Sub

Ais Excel soll Word geöffnet werden (funktioniert), und in Word anschließend in der zweiten Tabelle die Zelle in der vierten Zeile, zweite Spalte ausgelesen werden (funktioniert nicht).

Kann mir das nicht erklären, wäre super, wenn jemand eine Antwort wüsste!

Viele Grüße
Christian
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
04. Sep 2007, 12:30
Rufname:
Wohnort: Leipzig

AW: Aus Excel Word-Dokument einlesen - AW: Aus Excel Word-Dokument einlesen

Nach oben
       Version: Office XP (2002)

Hallo Christian,

zunächst fällt mir auf, dass vor ActiveDocument auch wdAnw. stehen sollte. Aber das ist sicher nicht die Ursache.
Die Reihenfolge der Tabellen muss in Word nicht mit dem Index übereinstimmen. (Sicher hat sich MS was dabei gedacht, was sich dem armen Programmierer nicht immer erschließt.) Was Du als 2. Tabelle siehst, muss also nicht ActiveDocument.Tables(2) sein. Versuch, die Tabelle eindeutig zu identifizieren. Entweder kannst Du in der dot eine Textmarke in die Tabelle setzen. Das ist der Königsweg. Dann fragst Du einfach ab:
Code:
Dim myTable As Word.Table

If wdAnw.ActiveDocument.Bookmarks.Exists("DeineIDMarke") Then
    Set myTable = wdAnw.ActiveDocument.Bookmarks("DeineIDMarke").Tables(1)
    strText = myTable.Cell(4, 2).Range.Text
    ' ... usw.
End If

Wenn das nicht geht, such Dir irgendeinen Inhalt, der nur auf die von Dir gesuchte 2. Tabelle zutrifft. Lauf zuvor mit einer For-Next-Schleife durch die Tables und teste, ob Deine Eigenschaft/Text vorhanden ist.

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Gast



Verfasst am:
04. Sep 2007, 18:11
Rufname:


AW: Aus Excel Word-Dokument einlesen - AW: Aus Excel Word-Dokument einlesen

Nach oben
       Version: Office XP (2002)

Hallo Lisa,

danke für die schnelle Antwort. Ich habe allerdings gerade das Problem geschickt umgangen, indem ich jetzt doch nicht zwischen Excel und Word springe. Aber Nochmal danke für deine Hilfe!

Viele Grüße
Christian
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Serienbrief: amerikanisches Datum in Word-Dokument, warum? 7 boerssum9 13328 30. Jan 2014, 15:14
Gast Serienbrief: amerikanisches Datum in Word-Dokument, warum?
Keine neuen Beiträge Word Formate: Vorlage im Worddokument ändern, da alte nicht vorhanden 1 bassmju 291 14. Nov 2012, 13:49
bassmju Vorlage im Worddokument ändern, da alte nicht vorhanden
Keine neuen Beiträge Word Formate: Oberste Zeile im Word-Dokument wird falsch angezeigt 2 Word-User 1714 09. Mai 2012, 09:02
Handbuch Oberste Zeile im Word-Dokument wird falsch angezeigt
Keine neuen Beiträge Word Serienbriefe: Worddokument: wo steht welche ODBC Abfrage gewählt wird? 1 Gast 702 21. Nov 2011, 10:37
Gast Worddokument: wo steht welche ODBC Abfrage gewählt wird?
Keine neuen Beiträge Word Formate: Plötzlich Sonderzeichen in Worddokument 4 OlliMac 1300 11. Nov 2011, 21:52
G.O.Tuhls Plötzlich Sonderzeichen in Worddokument
Keine neuen Beiträge Word Formate: Datumsfunktion in ein Worddokument eifügen 4 azwinzds 1905 20. Okt 2011, 16:12
azwinzds Datumsfunktion in ein Worddokument eifügen
Keine neuen Beiträge Word Serienbriefe: Word2010: Serienbrief-Hauptdokument wieder zum Word-Dokument 3 Lasses 1514 08. Aug 2011, 19:20
charlybrown Word2010: Serienbrief-Hauptdokument wieder zum Word-Dokument
Keine neuen Beiträge Word Serienbriefe: Word-Dokument als Datenquelle für Serienbrief 0 seppwert 807 05. Jul 2010, 16:42
seppwert Word-Dokument als Datenquelle für Serienbrief
Keine neuen Beiträge Word Formate: Excel Diagramme im Word-Dokument alle gleichzeitig ändern 0 nic17 1298 11. Sep 2008, 13:23
nic17 Excel Diagramme im Word-Dokument alle gleichzeitig ändern
Keine neuen Beiträge Word Serienbriefe: Mehrere Datensätz in einem Worddokument 0 Boris81 593 02. Mai 2007, 11:21
Boris81 Mehrere Datensätz in einem Worddokument
Keine neuen Beiträge Word Formate: Ein Word-Dokument auf eine leere 2. Seite kopieren 1 Gast 19074 20. Jun 2006, 19:31
Rosalina Ein Word-Dokument auf eine leere 2. Seite kopieren
Keine neuen Beiträge Word Formate: Word-Dokument sucht dot-Datei 2 Dee_Jay 2010 18. Mai 2006, 16:25
Gast Word-Dokument sucht dot-Datei
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum