Office: Wie aus word Exceldatei öffnen und dort Wert suchen-ersetzen

Hallo,
ich möchte über VBA aus Word heraus eine Excel-Datei öffnen, dort einen Wert suchen und ersetzen und die Datei wieder schießen.
Den unten aufgeführten Code habe ich, er funktioniert leider nicht.
Das Makro wird mit "Die Replace-Methode des Range-Objekt konnte nicht ausgeführt werden"
Ich verwenden Word 2000 und Excel 2000.
Für Hilfe wäre ich sehr dankbar.


Sub ExcelOeffnen()

Dim ExcelSheet As Object

Pfad = ActiveDocument.Path
Set ExcelSheet = CreateObject("excel.application").workbooks.Open(Pfad & "\" & "Datei.xls")
ExcelSheet.Application.Visible = True
ExcelSheet.Application.Cells.Select
suche = "suchtext"
ersatz = "ersatztext"

ExcelSheet.Application.Cells.Replace What:=suche, Replacement:=ersatz, LookAt:=xlPart" _
, SearchOrder:=xlByRows, MatchCase:=False

ExcelSheet.Application.Save
ExcelSheet.Application.Quit

End Sub

:)

 

Hi,

der Code:

Code:

kann so nicht funktionieren, da Du mit Late Binding arbeitest. Er kennt das "What" und "Replacement" etc. so nicht. Einfach mal weglassen und nur die Parameter selbst stehen lassen.

 

Hi Hotte,

danke für die schnelle Antwort.
Ich geben folgende Zeile an:
ExcelSheet.Application.Cells.Replace suche, ersatz
und bekomme die Meldung, dass das Objekt diese Methode nicht unterstützt.
Was mache ich falsch?

 

Hi,

grundsätzlich sollte es funktionieren ... hab aber im Moment Word und Excel 2000 nicht zur Verfügung udn kan nes daher nicht testen...

 

ja, OK dann muss ich eben warten.

 

hat keiner eine Lösung, wie ich Excel aus Word öffne,
dort Werte suche und ersetze?

 

Hi,

also wie gesagt - das hier ist der Code, der bei mir funktioniert. Fehlen ggf. bei Deklarationene oder sie sind falsch? Es müssen Strings sein.... Probielr das mal. Die Datei musst Du anpassen oder Deinen Code wieder nehmen.
Brauchst Du das mit dem "sichtbar" überhaupt? Denn das muss man doch nicht mehr sehen oder?

Ach ja: damit wird auf dem Tabellblatt gesucht udn ersetzt, das aktuell geöffnet ist aus der Datei. Wenn Du da noch was "sicherstellen" musst, muss der Code erweitert werden.

Code:

Das ist mit Office 2003 und Office 2007 getestet. Aber es hat sich eigentlich da nichts geändert. Das muss so auch in Office 2000 funktionieren.

 

Super genial hat geklappt - danke Hotte.
Das hing wirklich mit der String-Deklaration zusammen.
Nur noch eine Frage: Wie kann ich innerhalb der Arbeitsmappe
die "Tabelle2" aufrufen? Ich habe das schon gesehen dachte aber ich
frage schnell bevor ich wieder ewig suchen muss.

Kann ich hier noch "Tabelle2" angeben aber wie?
Set ExcelSheet = CreateObject("excel.Application").workbooks.Open(Datei)
ExcelSheet.Application.Visible = True

Ich will immer sehen was passiert. Auch bleibt im Fehlerfall die Excel-Datei geöffnet.

Wie muss ich den Suchcode anpassen, wenn ich die Excel-Arbeitsmappe bestehend aus
meheren Tabellen durchsuchen möchte.

 

Hi,

... gut Du siehst es zwar .. aber ggf. geht es recht schnell - udn der Code speichert udn schlöießt auch gleich wieder. Sonst müsstest Du dne Code stoppen und das Speichern manuell machen lasse.

Diese Zeile aktiviert z.B. das Tabellenblatt "Tabelle2":

Code:

Einfach vor dem Suchen und Ersetzen einfügen....

 

Hi,

und wie kann ich in der kompletten Arbeitsmappe suchen ersetzen?

 

Hi,

in Excel wird das wohl so funktionieren. Aber aus Word wohl nicht...

Daher hier mal ein bischen Quick und Dirty:

Code:

Anstelle des "einfachen" Ersetzen bei Dir.

 

Hi Hotte,

alles klar, hat alles gepasst. Auch deine Quick&Dirty-Version

Nochmals vielen Dank