Open Workbook with Shell

[Mr.Invisible]

Hallo Zusammen,

in meiner Arbeitsmappe, habe ich einen Button mit dem ich eine Arbeitsmappe aus einem bestimmten Ordner öffnen kann. Nachdem die Mappe geöffnet worden ist, möchte ich dass die geöffnete Mappe als Set wb = ... deklariert wird.

Leider weiß ich nicht wie ich das machen soll, da mein Makro weiterläuft, während ich die Arbeitsmappe auswähle.

Hier mein Makro:

Code:

Sub Simulation()
    Dim strFolder As Variant
    Dim wb As Workbook

    strFolder = "C:\Users\Simulation"
    Shell "C:\WINDOWS\explorer.exe """ & strFolder & "". vbNormalFocus

    Set wb = 'Hier soll die Arbeitsmappe deklariert werden die mit Shell geöffnet wird.
    
    ' Nun wird das zweite Arbeitsblatt der neu geöffneten Mappe in "Workbooks1" kopiert:
    wb.Cell.Select
    Sheet(2).Copy After:=Workbooks("Workbook1.xlsm").Sheets(1)
    Application.WindowState = xlNormal
    wb.Close
    Windows("Workbooks1.xlsm).Activate
End Sub

Ich hoffe jemand kann mir helfen wie ich das Makro umschreiben muss, damit das Makro solange wartet bis die neue Arbeitsmappe aktiv ist, oder wie ich die Mappe mit
Application.Workbook.Open öffnen kann (Der Name der neuen Mappe wird allerdings alle 2 Wochen geändert).

Vielen Dank und schöne Grüße

[Kuwer]

Hallo,

z.B. so:

Sub Simulation()

   Dim strDatei As String

   Dim strFolderOld As String

   Dim strFolder As String

   Dim wb As Workbook

   strFolderOld = Application.DefaultFilePath

   strFolder = "C:\Users\Simulation"

   ChDrive strFolder

   ChDir strFolder

   strDatei = Application.GetOpenFilename("Exceldateien, *.xls*")

   ChDrive strFolderOld

   ChDir strFolderOld

   If Not CVar(strDatei) = False Then

     Set wb = Workbooks(strDatei)

     ' Nun wird das zweite Arbeitsblatt der neu geöffneten Mappe in "Workbooks1" kopiert:

     wb.Sheets(2).Copy After:=Workbooks("Workbook1.xlsm").Sheets(1)

     wb.Close False

   End If

End Sub

Gruß Uwe

[Flotter Feger]

Hallo Uwe,

sollte das eventuell so heißen ...

Code:

Set wb = Workbooks.Open(strDatei)

[Kuwer]

Hallo Sabina,

Hallo Uwe,

sollte das eventuell so heißen ...

Code:

Set wb = Workbooks.Open(strDatei)

ja natürlich, danke.

Gruß Uwe

[snb]

So schaffen wir das:

Code:

Sub M_snb()
  with getobject("C:\Users\Simulation\beispiel.xlsx")
     .sheets(2).copy ,thisworkbook.sheets(1)
     .close 0
  end with
End Sub