Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1524to1528
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

geöffnete Excel Files automatisch schließen

geöffnete Excel Files automatisch schließen
20.11.2016 14:25:49
Tyroler
Hallo Zusammen,
und zwar hab ich folgendes Problem.
Ich möchte aus beliebigen Excel Files die kompletten Daten in mein Hauptfile kopieren.
Anschließend soll das Files, aus der ich die ganzen Daten kopiert habe, wieder schließen. Bis jetzt hab ich folgende Code verwendet:
MsgBox "Bitte aktuelle Auswertung auswählen"
Dim Erfolg1 As Boolean
Erfolg1 = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg1 Then MsgBox "keine DAtei ausgewählt"
Cells.Copy 'kopiert aktives Blatt
Windows("test.xlsm").Activate
With Workbooks("test.xlsm")
'kopiert ohne Select oder Activate in Tabelle2
.Sheets("SBM").Cells.PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
Dim AB As Workbook
Dim AC As Workbook: Set AC = ThisWorkbook
'False mit True ersetzen, wenn die zu schließenden
'Mappen vor dem Schließen gespeichert werden sollen
For Each AB In Workbooks
If AB.Name AC.Name Then AB.Close False
Next
Das Problem an dem Code ist, dass er alle Excel schließt bist auf Test.xlsm.
Da ich aber immer an andern Files auch arbeite, soll er nur das File schließen, dass ich zum kopieren geöffnet habe.
Hoffe ihr könnt mir weiterhelfen.
Vielen Dank
Tyroler

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geöffnete Excel Files automatisch schließen
20.11.2016 14:58:21
Hajo_Zi

Option Explicit
Sub nm()
MsgBox "Bitte aktuelle Auswertung auswählen"
Dim Erfolg1 As Boolean
Erfolg1 = Application.Dialogs(xlDialogOpen).Show(arg1:=".xlsx")
If Not Erfolg1 Then
MsgBox "keine DAtei ausgewählt"
Else
Cells.Copy Workbooks("test.xlsm").Sheets("SBM").Range("A1")
ActiveWorkbook.Close False
End If
End Sub

AW: Excel gut, Benehmen nicht.
20.11.2016 15:04:46
Werner
Hallo,
gib mal in die Recherche Tyroler ein und starte die Archivsuche, dann siehst du vielleicht was ich meine. Von Feedback scheinst du noch nichts gehört zu haben.
Ich bin raus.
Gruß Werner
Anzeige
AW: Excel gut, Benehmen nicht.
20.11.2016 15:24:59
Tyroler
Absolut, und Feedback ist bis jetzt immer gekommen!
Bisschen Zeit zum Feedback geben steht auch mir zu...
Bin auch mega Dankbar!
Code Funktioniert einwandfrei - Vielen Dank!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige