Hallo Excel-Profis,
ich habe untenstehendess Makro für einen spez. Anwendungsfall und möchte diesen mit eurer Hilfe noch etwas verbessern
Vorgehensweise:
Es werden alle Files vom Server auf die lokale Platte bewegt. Danach öffnet sich eine Abfrage und ich muss die Files aus dem Verz.C:\test1 auswählen. Anschl. werden aus den Files die Zellen C10-J inkl. weitere Zeilen in meine aktuelle Mappe kopiert.
Frage1: Was muss ich machen um das auswählen des Verz im Browser und das selektieren der Files zu umgehen?
Frage2: Wie muss ich das Makro gestalten damit beim öffnen der XLS-Datei dieser komplette Vorgang automatisch gestartet wird?
Beispielmakro:
Sub test03()
Dim LetzteZeile As Integer
Dim nr As Integer
Dim objFSO As Object, objFile As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder("\\server-99\test1\").Files
objFile.Move "C:\test1\"
Next
WBa = ActiveWorkbook.Name
GetMappe = Application.GetOpenFilename("xls-Dateien (*.xls),*.xls", , "bitte die xls-Dateien auswählen!", MultiSelect:=True)
For nr = LBound(GetMappe) To UBound(GetMappe)
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
Workbooks.Open Filename:=GetMappe(nr)
WBd = ActiveWorkbook.Name
Set cpy = Range("C10:F" & ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
Workbooks(WBa).Activate
cpy.Copy Destination:=Worksheets("Tabelle1").Cells(LetzteZeile + 1, 2)
Workbooks(WBd).Close SaveChanges:=False
Next nr
Habt Ihr einen Verbesserungsvorschlag?
------------------
Gruß
Marco
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP