ich habe ein Access-Datenbank mit einem Makro mit deren Hilfe ich viele xls.Dateien aus einem festen Verzeichnis einlade:
Public Sub MehrereDateienImportierenV1()
'geteset AC97, AC2000
' es werden mehrere GLEICHARTIGE Importdateien nacheinander verknüpft und an
' eine Haupttabelle angefügt
' Voraussetzungen :
' TXT,CSV : Importspezifikation wurde erstellt und gespeichert
' Startverzeichnis für die Suche angeben
Const SuchVerzeichnis = "E:\Test\2017 03\Test\"
' einen Filetyp bzw Dateinamensbild freischalten
' ("*.txt";"*.csv";"2005*.xls")
Const DatTyp = "*.xlsm"
' Zieltabelle, an welche die Daten angefügt werden sollen
Const ZielTab = "Haupttabelle"
Dim i As Integer
Dim AktDatei As String
AktDatei = Dir(SuchVerzeichnis & DatTyp)
While Len(AktDatei) > 0
Debug.Print AktDatei
EineExcelDateiEinlinkenUndAnfügen SuchVerzeichnis & _
AktDatei, ZielTab
AktDatei = Dir ' nächste Datei
Wend
End Sub
Besteht die Möglichkeit über eine msgbox das Verzeichnis je Monat zuzuweisen. Also das die Box nach dem Verzeichnis fragt? Zum Beispiel für Januar "2017 01" eingeben und somit die Dateien aus dem Verzeichnis E:\Test\2017 01\ ziehen.Viele Grüße