Datei aus UserForm in neuer Instanz öffnen

Guten Morgen Forum!
Ich hatte vor ein paar Tagen ein anliegen bei dem mir Torsten sehr gut weiterhelfen konnte (siehe unten).
Ich habe eine Excel welche ich über ein VBScript öffne um parallel mit anderen Excel-Dateien arbeiten kann.
Sprich wenn ich meine Excel mit der UF über die vbs öffne kann ich durch direkten Doppelklick auf eine andere Excel diese in einer neuen Instanz öffnen und bearbeiten. Hervorragend! An dieser Stelle nochmal ein großes Dankeschön an Torsten.
Nun möchte ich aus der UF eine andere Excel öffnen und bearbeiten. Diese wird aber erst dann angezeigt wenn ich die UF schließe, also wir es wohl in der selben Instanz geöffnet wie die UF.
Die andere Excel öffne ich über einen CommandButton mit

Private Sub CommandButton_externe_oeffnen_Click()
Workbooks.Open Filename:="Pfad\externe.xlsm"
End Sub

Meine Frage ist nun:
Um was muss ich den Code ergänzen damit mir externe.xlsm in einer neuen Instanz geöffnet wird?
Oder muss ich das VBScript verändern?
Gruß
Dante
Von Torsten:
hatte ein aehnliches Problem und habe es so geloest:
Versuch mal folgendes, wenn es dich nicht stoert, die Datei ueber einen anderen Weg zu oeffnen:
Offne ein neues Textdokument im Texteditor von Windows. Schreibe dort den folgenden Code rein:
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open "DeinPfad\DeineDate.xlsm"
xlApp.Visible = False
Set xlApp = Nothing
Dann speicher die Datei unter einem neuen Namen, am besten mit dem Namen deiner xlsm Datei. Dann benennst du die Datei um, aber nur die Dateiendung. Diese aendern von .txt zu .vbs
Weiterhin habe ich dann im Workbook_Open das hier stehen:
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayAlerts = False
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = True
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.WindowState = xlMinimized
UserForm1.Show
Du musst die Datei dann ueber die neu erstellte .vbs Datei oeffnen. Es sollte nur die Userform erscheinen und wenn du eine andere Excel Datei oeffnest, musst du diese minimieren, damit du wieder die Userform bekommst.
Gruss Torsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim objExcel As Application Set objExcel = CreateObject(Class:="Excel.Application") With objExcel Call .Workbooks.Open(Filename:="H:\Documents\Excel\Test\Foren\Mappe1.xlsm") .Visible = True End With Set objExcel = Nothing End Sub

Hallo Dante,
im Modul des Userforms:

Option Explicit

Private Declare PtrSafe Function FindWindowA Lib "user32.dll" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function GetWindowLongA Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nIndex As Long) As LongPtr
Private Declare PtrSafe Function SetWindowLongA Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As LongPtr) As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "user32.dll" ( _
    ByVal hwnd As LongPtr, _
    ByVal nCmdShow As Long) As Long

Private Const GC_CLASSNAMEUSERFORM As String = "ThunderDFrame"
Private Const GWL_EXSTYLE As Long = -20
Private Const WS_EX_APPWINDOW As LongPtr = &H40000
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5

Private Sub CommandButton1_Click()
    Call Unload(Object:=Me)
    ' Application.Visible = True
End Sub

Private Sub UserForm_Activate()
    Dim lngptrHwnd As LongPtr, lngptrStyle As LongPtr
    lngptrHwnd = FindWindowA(GC_CLASSNAMEUSERFORM, Caption)
    Call ShowWindow(lngptrHwnd, SW_HIDE)
    lngptrStyle = GetWindowLongA(lngptrHwnd, GWL_EXSTYLE)
    lngptrStyle = lngptrStyle Or WS_EX_APPWINDOW
    Call SetWindowLongA(lngptrHwnd, GWL_EXSTYLE, lngptrStyle)
    Call ShowWindow(lngptrHwnd, SW_SHOW)
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Datei aus UserForm in neuer Instanz öffnen

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

82 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei aus UserForm in neuer Instanz öffnen

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

82 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread