Ordner per Makro schließen

Hallo zusammen,
ich habe ein Makro gebastelt:
1. es wird ein bestimmter Ordner geöffnet wo sich die Dateien befinden.
2. im zweiten Schritt wähle ich eine Datei aus und gehe wieder zur Schaltfläche mit der Datei wo sich die Makros befinden zurück.
3. Über das nächste Makro kopiert er die Daten aus der geöffneten Datei in meine Datei und schließt die Datei mit den Daten.
das funktioniert auch alles.
Nun wäre es toll, wenn sich der geöffnete Ordner automatisch schließt. Das ganze sollte in den aktiven Code mit eingebaut werden.
Hätte jemand einen Ansatz?

Sub ()
On Error GoTo Fehlerbehandlung
Windows(2).Activate
Range("A1:AZ150").Select
Selection.Copy
Application.Left = 731.8
Application.Top = 275.2
Windows("1002.xlsm").Activate
ActiveSheet.Paste
Range("B1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
Dim wkb As Workbook
For Each wkb In Workbooks
If wkb.Name  ThisWorkbook.Name Then
wkb.Close savechanges:=False
End If
Next wkb
Fehlerbehandlung:
End Sub

()

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo ,
danke für die schnelle Antwort
hier der Code mit dem ich den Ordner öffne:
Private Sub()
Windows("1002.xlsm").Activate
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect Password:=""
Worksheets("03").Visible = True
Worksheets("03").Select
Dim wks As Worksheet
For Each wks In Worksheets
wks.Unprotect ("")
Next wks
Range("A1").Select
Dim Tabellenblatt As Worksheet
For Each Tabellenblatt In ThisWorkbook.Worksheets
If Tabellenblatt.Name ThisWorkbook.ActiveSheet.Name Then
Tabellenblatt.Visible = xlSheetHidden
End If
Next Tabellenblatt
Application.ScreenUpdating = True
ThisWorkbook.FollowHyperlink "Y:\01\101\"
End Sub
dann wähle ich eine Excel-Datei aus (befinden sich mehrere darin) und öffne Sie.
über ein anderes Makro (wie zuvor gepostet) hole ich mir die Daten.
Ich möchte dass der Ordner 101 (ThisWorkbook.FollowHyperlink "Y:\01\101\") nach dem Datentransfer geschlossen wird.
Ich hoffe ich konnte mein Problem besser erklären

Code: [Cc] Option Explicit Private Declare PtrSafe Function FindWindowA Lib "user32" ( _ ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr Private Declare PtrSafe Function PostMessageA Lib "user32" ( _ ByVal hwnd As LongPtr, ByVal wMsg As Long, _ ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long Private Const WM_CLOSE = &H10 Sub ExplorerSchließen(sPfad As String) ' Schließt den Explorer mit dem angegeben Pfad Dim sArr() As String sArr = Split(sPfad, "\") PostMessageA FindWindowA("CabinetWClass", sArr(UBound(sArr))), WM_CLOSE, 0&, 0& End Sub Sub Test() Call ExplorerSchließen("Y:\01\101\") End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread