Werte aus geschlossenen sich ändernden Mappen samm

Forumthread: Werte aus geschlossenen sich ändernden Mappen samm

30.09.2008 16:55:00

Marko

Hallo,
ich habe ein problem und hoffe hier im Forum hilfe zu finden.
wir erstellen jeden Tag eine Exelmappe die als Namen das aktuelle Datum trägt. In Form von JJJJ.MM.TT
nun möchte ich von den letzten 30 Tagen aus der Zelle A1 die Werte in eine Mappe einlesen die sich im selben Ordner befindet.
Kann mir hirbei jemand helfen.
Im vorraus besten Dank
Gruss
Marko

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte aus geschlossenen sich ändernden Mappen samm

30.09.2008 17:47:00

fcs

Hallo marko,
hier mal ein Ansatz.
Gruß
Franz


Sub DatenSammeln()
Dim wbZiel As Workbook, wksZiel As Worksheet, lngZeileZiel As Long
Dim wbQuelle As Workbook, wksQuelle As Worksheet, intI As Integer
Dim strDateiname As String
Const strVerzeichnis As String = "C:\Lokale Daten\Test\Daten" 'anpassen!!!
'Zieldatei
Set wbZiel = ActiveWorkbook
'Zieltabellenblatt festlegen
Set wksZiel = wbZiel.Worksheets("Tabelle1")         'ggf. anpassen!!!
lngZeileZiel = 2 'Startzeile für eintragen der Daten 'ggf.anpassen!!!
'Dateien der letzten 30 Tage auslesen
Application.ScreenUpdating = False
For intI = 29 To 0 Step -1
'Dateiname aus Datum erzeugen
strDateiname = Format(Date - intI, "YYYY.MM.DD") & ".xls"
'Prüfen ob Datei vorhanden
If Dir(strVerzeichnis & "\" & strDateiname)  "" Then
'Datei mit Daten schreibgeschützt öffnen
Set wbQuelle = Workbooks.Open(Filename:=strVerzeichnis & "\" & strDateiname, _
ReadOnly:=True)
'Quelltabellenblatt festlegen
Set wksQuelle = wbQuelle.Worksheets(1)
'daten aus A1 in Zieltabelle in Spalte A (1) eintragen
wksZiel.Cells(lngZeileZiel, 1) = wksQuelle.Range("A1") 'ggf. anpassen!!!
'Datendatei wieder schliessen
wbQuelle.Close savechanges:=False
lngZeileZiel = lngZeileZiel + 1
End If
Next
Application.ScreenUpdating = True
End Sub

AW: Werte aus geschlossenen sich ändernden Mappen samm

01.10.2008 08:35:00

Marko

Hallo Franz,
Danke hat mir sehr geholfen
Gruß
Marko

AW: Werte aus geschlossenen sich ändernden Mappen samm

01.10.2008 08:32:00

Beverly

Hi Marko,
hier noch eine Möglichkeit ohne Öffnen der Arbeitsmappen sowie unter Berücksichtigung des letzten Speicherdatums.


Option Explicit
Const strSuchpfad As String = "C:\Test\"
Sub dateien_auslesen()
Dim inZeile As Integer, inZaehler As Integer, inStart As Integer
Dim strDateiname As String
inZeile = 1
Application.ScreenUpdating = False
With Application.FileSearch
.LookIn = strSuchpfad ' Suchverzeichnis
.SearchSubFolders = False
.Filename = "*.xls"
' von Bodo Schäfer
If .Execute(msoSortByLastModified, msoSortOrderDescending) > 0 Then
If .FoundFiles.Count

Beliebteste Forumthreads (12 Monate)

Werte aus geschlossenen sich ändernden Mappen samm

Forumthread: Werte aus geschlossenen sich ändernden Mappen samm

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Werte aus geschlossenen sich ändernden Mappen samm

Forumthread: Werte aus geschlossenen sich ändernden Mappen samm

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread