Verweis von Word auf geöffnete Excel-Datei

Hallo Ihr Spezialisten,
ich möchte von Word aus auf eine bereits geöffnete Excel-Datei zugreifen. Das ist wichtig: die Datei ist schon offen! Mein Versuch ein Workbook-Objekt auf die Datei zu setzen ist bisher gescheitert. Daher bitte ich hier um Unterstützung. Ich habe es mit dem folgenden Code probiert.
Hier der Code, wie er in Word in einem Modul steht:


Public Sub VerweisXLS()
Dim xlsApp  As Excel.Application
Dim xlsFile As Excel.Workbook
Dim xlsArbeitsDatei As Excel.Workbook
' Excel initialisieren
Set xlsApp = Excel.Application
MsgBox xlsApp.Workbooks.Count ' Debug-Meldung!
For Each xlsFile In xlsApp.Workbooks
If xlsFile.Name = "XY" Then
xlsFile.Activate
Set xlsArbeitsDatei = xlsFile
' ... hier geht es spaeter weiter
End If
Next
Set xlsApp = Nothing
Set xlsFile = Nothing
Set xlsArbeitsDatei = Nothing
End Sub

Das Problem: obwohl mehere Excel-Dateien geöffnet sind, wird
- in der Msgbox die Anzahl der geöffneten Dateien als 0 ausgegeben
- geht das Programm nicht in die Schleife, sondern überspringt sie
Es wirkt so, als würde "xlsApp" nicht auf die Excel-Instanz mit den geöffneten Dateien verweisen!
Genau das möchte ich aber!
Danke für hilfreiche Unterstützung.
Grüsse,
kgurr

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub VerweisXLS() Dim xlsApp As Excel.Application Dim xlsFile As Excel.Workbook Dim xlsArbeitsDatei As Excel.Workbook ' Excel initialisieren Set xlsApp = GetObject(, "Excel.Application") MsgBox xlsApp.Workbooks.Count ' Debug-Meldung! For Each xlsFile In xlsApp.Workbooks If xlsFile.Name = "XY" Then 'überflüssig: xlsFile.Activate Set xlsArbeitsDatei = xlsFile ' ... hier geht es spaeter weiter End If Next Set xlsApp = Nothing Set xlsFile = Nothing Set xlsArbeitsDatei = Nothing End Sub

Private Function ExcelIsOpend() As Boolean Dim gsMsgAntw As String Dim oXLS As Object ExcelIsOpend = True On Error GoTo NotOpened Set oXLS = GetObject(Class:="Excel.Application") ' Excel geöffnet? On Error GoTo 0 Set oXLS = Nothing Exit Function NotOpened: ' Excel ist nicht geöffnet ExcelIsOpend = False gsMsgAntw = MsgBox("Die Anwendung Excel ist nicht geöffnet!", vbExclamation, "Excel nicht geö _ _ ffnet") End Function

Hallo Tino,
eine sichere Lösung für das Problem habe ich nicht. Wenn Du gewollt mehrere Instanzen von Excel erzeugst, kannst Du sie dabei bereits in eigenen Objektvariablen festhalten. Wenn der Anwender mehrere Instanzen geöffnet hat, wird es nicht gelingen, mit GetObject(,"Excel.Appliction") eine gewünschte von diesen herauszupicken - außer man kann verschmerzen, dass (für den konkreten Anlass unerwünschte) Instanzen geschlossen werden. Dann könnte man sich eine Instanz zurückgeben lassen und falls es die falsche ist (woran man das dann auch immer festmacht), schließt man sie und wiederholt dies solange, bis man die gewünschte erhalten hat - oder es keine mehr gibt, weil die passende Instanz gar nicht geöffnet war.
Je nach Anwendungsfall würde ich daher sicherheitshalber eine weitere Instanz eröffnen, über die ich dann die Kontrolle habe. Oder, wenn es um eine bestimmte Datei geht (also Name und Pfad bekannt bzw. ermittelbar), hole ich mir sie direkt als Datei-Objekt mit
Dim objDatei as workbook
Set objDatei = getobject("d:\test\Meine Datei.xls")
Herzlichen Gruß
Jürgen

Sub ZweiInstanzen() Dim objDatei As Workbook Set objDatei = GetObject("d:\temp\Auswertung.xls") Debug.Print ThisWorkbook.Application.Workbooks.Count Debug.Print objDatei.Application.Workbooks.Count Debug.Print objDatei.Sheets(1).Range("a1").Value objDatei.Sheets(1).Range("a1").Value = "ABC" Debug.Print objDatei.Sheets(1).Range("a1").Value End Sub

Beliebteste Forumthreads (12 Monate)

Verweis von Word auf geöffnete Excel-Datei

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verweis von Word auf geöffnete Excel-Datei

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread