Microsoft Excel

Herbers Excel/VBA-Archiv

Datei in eigener Instanz öffnen wenn

Betrifft: Datei in eigener Instanz öffnen wenn von: Andre´
Geschrieben am: 13.08.2008 09:48:12

Hallo alle zusammen,
ich habe hier aus dem Forum folgenden Code:

Private Sub Workbook_Open()
Dim n As String
If Workbooks.Count > 1 Then
    
    With ActiveWorkbook
    n = .FullName
    .Close savechanges:=False
    End With
    
    Dim xlApp As New Excel.Application
    On Error Resume Next
    xlApp.Workbooks.Open Filename:=n
    
    If Err.Number > 0 Then
        xlApp.Quit
    Else
        xlApp.Application.Visible = True
    End If
    
    Set xlApp = Nothing
    
End If
    
End Sub



Nun möchte ich erreichen, dass wenn
Workbooks.Count > 1 ist sich diese Datei in einer neuen Excel Instanz öffnet.

Kann mir bitte jemand dabei behilflich sein dieses Problem zu lösen.

Vielen Dank im voraus!

MFG Andre

  

Betrifft: AW: Datei in eigener Instanz öffnen wenn von: Ramses
Geschrieben am: 13.08.2008 10:34:51

Hallo

"...sich diese Datei in einer neuen Excel Instanz öffnet...."

Und dann ?
Das ansprechen von WB in einer anderen Instanz ist extrem aufwändig, die Ausführung von Makros oder parameterübergabe ist ebenfalls extrem aufwändig.

Was willst du denn erreichen ?

Gruss Rainer


  

Betrifft: AW: Datei in eigener Instanz öffnen wenn von: Andre´
Geschrieben am: 13.08.2008 13:11:02

Hallo Rainer,
danke für die Meldung.

Ich habe etwas im Archiv gefunden.


https://www.herber.de/forum/archiv/344to348/t347147.htm

Dort hat Nepumuk eine Lösungsansatz der mir weiter hilft.

MFG Andre