Office: Daten aus anderen Dateien mit VBA auslesen

Hallo Alle!

Ich hoffe ihr könnt mir ein bisschen helfen. Ich habe folgendes Problem. Jeden morgen bekomme ich Rapports geliefert und wuerde gerne Kennziffern aus denen in eine neue Excel Datei per Makro auslesen. Die Rapports wurden bereits wie folgt gespeichert.

RapportA100413.xls
RapportA100414.xls
RapportA100415.xls

Der Name des Rapports ist immer gleich. Der hintere Anhang ist das Datum. Also 13.04.2010. Ich bekomme diese Rapports täglich. Ich habe schon einige bekommen und bekomme sie auch weiterhin.

Es wurde schon eine Unsumme von Rapporten gespeichert und ich wuerde gerne aus dem 1. Tabellenblatt in Zelle A1 den Wert auslesen lassen und in eine Uebersichtstabelle speichern lassen mit dem Datum. Der Aufbau der Rapports ist immer gleich, d.h. den Wert den ich brauche liegt immer in der gleichen Zelle.

Was soll der Rapport also können:

1. Ordner nach allen "relevanten" Dateien durchsuchen
1.a. Datum und Wert speichern
1.b. Nur die Rapporte auslesen die in diesem Format sind. Also RapportA+Datum.xls (sind auch andere Rapporte im Ordner)
1.c. Werte +1 Row mit Datum mir anzeigen.
1.d. Neue Werte dann in der nächste Zeile dazulegen.


Tut mir leid, dass ich nicht selber einen Lösungssatz gefunden habe. Bin leider Anfänger in VBA, habe mich aber schon reichlich bemueht etwas zu finden, jedoch scheint es keine spezifische Lösung zu geben.

Wuerde mich sehr freuen wenn mir jemand helfen kann!

Vielen Dank

Mfg

Florian Block

 

Hi Florian,

vielleicht wäre dies ein Ansatz:

Code:

Sub DatenAuslesen()
   Dim lngZeile As Long
   Dim strDateiname As String
   Dim strPfad As String
   lngZeile = 1
   strPfad = "D:\DeinVerzeichnis\"
   strDateiname = Dir(strPfad & "*.xls")
   Do
     If Len(strDateiname) = 18 And Left(strDateiname, 8) = "RapportA" Then
         Cells(lngZeile, 1).Formula = "='" & strPfad & "[" & strDateiname & "]Tabelle1'!$A$1"
         lngZeile = lngZeile + 1
      End If
      strDateiname = Dir()
   Loop While strDateiname <> ""
   Range(Cells(1, 1), Cells(lngZeile - 1, 1)).Copy
   Range("A1").PasteSpecial Paste:=xlValues
End Sub

Es werden aus Zelle A1 des Tabellenblattes Tabelle1 aller Arbeitsmappen im betreffenden Verzeichnis, die dem genannten Kriterium entsprechen, fortlaufend in Spalte A aufgelistet.

Bis später,
Karin

 

Hallo!

Danke fuer die Antwort. Es klappt aber irgendwie nicht :)

Was bedeutet diese Zeile?

If Len(strDateiname) = 18 And Left(strDateiname, 8) = "RapportA" Then
Cells(lngZeile, 1).Formula = "='" & strPfad & "[" & strDateiname & "]

Danke!

 

Hi Florian,

weshalb und was genau klappt nicht?

Bei dir fehlt am Ende des Codes noch: ]Tabelle1'!$A$1"

Die Zeile macht folgendes: wenn der Dateiname (einschließlich .xls) 18 Zeichen lang ist und die linken 8 Zeichen "RapportA" sind, dann wird in Spalte A, laufende Zeile eine Formelverknüpfung zu dieser Arbeitsmappe, Tabelle1, Zelle A1 erstellt und damit wird der Wert ausgelesen.

Bis später,
Karin

 

Oh vielen Dank jetzt klappt es!!

Danke fuer das Feedback

Florian

Btw: Jetzt liest er mir alle Werte aber ich wuerde gerne noch das Datum in Spalte B haben.

Ist das irgendwie möglich?

Vielen Dank!

 

in strDateiname liegt ja der aktuelle Dateiname vor, in dem sich auch das Datum des Rapports befindet. Das Datum befindet sich als "jjmmtt" ab Position 9 des Dateinamens. Damit wäre

Code:

jj = val(mid$(strdateiname,9,2))
mm = val(mid$(strdateiname,11,2))
tt = val(mid$(strdateiname,13,2))

Und daraus läßt sich mit

Code:

dd = dateserial(jj,mm,dd)

ein Datum machen, was sich wiederum mit

Code:

cells(lngzeile,2).value = dd

in die Tabelle eintragen läßt. Oder das ganze auch zusammengefaßt in eine Anweisung:

Code:

cells(lngzeile,2).value = dateserial(val(mid$(strdateiname,9,2)),val(mid$(strdateiname,11,2)),val(mid$(strdateiname,13,2)))

Gruß, Michael