Datei in eigener Instanz öffnen wenn
13.08.2008 09:48:12
Andre´
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