Mit Outlook offene Excel-Datei aufrufen

[tmessers]

Hallo liebe Excel-Gemeinde,

zuerst einmal möchte ich allen ein frohes neues Jahr wünschen.

Auch im neuen Jahr werden die Fragen nicht weniger.
Ich schreibe aus Outlook heraus Daten in eine Excel-Liste.
Innerhalb des Codes wird im im Rahmen einer Schleife die Excel-Datei
aus einem Blanko erstellt, sofern im Vorlauf der Wert von
dat_vorh = False ist oder geöffnet, wenn sie geschlossen ist.
Das funktioniert gut, problematisch wird es, wenn die Datei bereits geöffnet ist.

Code:

...

'Prüfung, ob die Datei geöffnet ist
offen = False
On Error Resume Next
FF = FreeFile
Open datei For Binary Access Read Lock Read As #FF
Close #FF
If Err.Number Then
    Err.Clear
    offen = True
End If


If oexcel Is Nothing Then Set oexcel = CreateObject("Excel.Application")
    If dat_vorh = False Then
        With oexcel
            .Visible = True
            Set wb = .Workbooks.Open(blankodatei)
            .ActiveWorkbook.SaveAs datei
            Set wb = .ActiveWorkbook
        End With
       
        ElseIf offen = False Then
            Set wb = oexcel.Workbooks.Open(datei)

        ElseIf offen = True Then
            set wb = ????????

End If

...

Wie kann ich die offene Datei als wb setzen?
Danke für die Hilfe schonmal im Voraus.

Gruß

tmessers

[schauan]

Hallöchen,


Falls die Datei auf Deinem Rechner geöffnet ist - tue statt mit createobject mit getobject auf Excel zuzugreifen. Mit create... öffnest Du die Datei nochmal in einer eigenen Instanz.

[tmessers]

@schauan:
Danke für die Hilfe. Ja. die Datei ist auf meinem Computer geöffnet. Ich werde getobject ausprobieren.