Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1880to1884
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1880to1884
1880to1884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum aus anderer Datei auslesen

Datum aus anderer Datei auslesen
09.05.2022 08:40:04
Jörg
Hallo Zusammen,
ich muss aus über 8.0000 Exceldateien in einem Verzeichnis bestimmte Daten auslesen und in eine Tabelle einfügen.
Dazu öffne ich die Datei, lese die Daten aus und speichere diese in meiner Tabelle.
Den Code dafür habe ich fertig.
Nun muss ich noch das letzte Speicherdatum in Spalte "iSpalte + 29" bringen und verzweifle daran.
Kann mir jemand helfen?
So sieht mein Code bisher aus:

Private Sub CommandButton3_Click()
Set oMe = ThisWorkbook.ActiveSheet 'ZielDatei/-Tabelle (= die aktuelle Tabelle der aktuellen Datei)
Const sDateiPfad As String = "C:\Users\seiche\Desktop\Test\" 'Pfad für zu durchsuchende Excel-Dateien; mit Backslash am Ende
sZelle1 = "C21" 'auszulesende Zelle
sZelle2 = "C22" 'weitere auszulesende Zelle
sZelle3 = "C23" 'weitere auszulesende Zelle
sZelle4 = "C24" 'weitere auszulesende Zelle
sZelle5 = "C25" 'weitere auszulesende Zelle
sZelle6 = "d21" 'auszulesende Zelle
sZelle7 = "d22" 'weitere auszulesende Zelle
sZelle8 = "d23" 'weitere auszulesende Zelle
sZelle9 = "d24" 'weitere auszulesende Zelle
sZelle10 = "d25" 'weitere auszulesende Zelle
sZelle11 = "e21" 'auszulesende Zelle
sZelle12 = "e22" 'weitere auszulesende Zelle
sZelle13 = "e23" 'weitere auszulesende Zelle
sZelle14 = "e24" 'weitere auszulesende Zelle
sZelle15 = "e25" 'weitere auszulesende Zelle
sZelle16 = "f21" 'auszulesende Zelle
sZelle17 = "f22" 'weitere auszulesende Zelle
sZelle18 = "f23" 'weitere auszulesende Zelle
sZelle19 = "f24" 'weitere auszulesende Zelle
sZelle20 = "f25" 'weitere auszulesende Zelle
sZelle21 = "g21" 'auszulesende Zelle
sZelle22 = "g22" 'weitere auszulesende Zelle
sZelle23 = "g23" 'weitere auszulesende Zelle
sZelle24 = "g24" 'weitere auszulesende Zelle
sZelle25 = "g25" 'weitere auszulesende Zelle
sZelle26 = "c4" 'weitere auszulesende Zelle
sZelle27 = "c5" 'weitere auszulesende Zelle
sZelle28 = "c6" 'weitere auszulesende Zelle
sZelle29 = "c7" 'weitere auszulesende Zelle
iZeile = 20 'ab Zeile 2 in Zieltabelle eintragen
iSpalte = 2 'ab Spalte A in Zieltabelle eintragen
Set oFS = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFS.GetFolder(sDateiPfad).Files
sWbName = oDatei.Name
If Left(LCase(oFS.GetExtensionName(sWbName)), 3) = "xls" Then
Workbooks.Open (sDateiPfad & sWbName)
oMe.Cells(iZeile, iSpalte).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle1).Value
oMe.Cells(iZeile, iSpalte + 1).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle2).Value
oMe.Cells(iZeile, iSpalte + 2).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle3).Value
oMe.Cells(iZeile, iSpalte + 3).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle4).Value
oMe.Cells(iZeile, iSpalte + 4).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle5).Value
oMe.Cells(iZeile, iSpalte + 5).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle6).Value
oMe.Cells(iZeile, iSpalte + 6).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle7).Value
oMe.Cells(iZeile, iSpalte + 7).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle8).Value
oMe.Cells(iZeile, iSpalte + 8).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle9).Value
oMe.Cells(iZeile, iSpalte + 9).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle10).Value
oMe.Cells(iZeile, iSpalte + 10).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle11).Value
oMe.Cells(iZeile, iSpalte + 11).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle12).Value
oMe.Cells(iZeile, iSpalte + 12).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle13).Value
oMe.Cells(iZeile, iSpalte + 13).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle14).Value
oMe.Cells(iZeile, iSpalte + 14).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle15).Value
oMe.Cells(iZeile, iSpalte + 15).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle16).Value
oMe.Cells(iZeile, iSpalte + 16).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle17).Value
oMe.Cells(iZeile, iSpalte + 17).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle18).Value
oMe.Cells(iZeile, iSpalte + 18).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle19).Value
oMe.Cells(iZeile, iSpalte + 19).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle20).Value
oMe.Cells(iZeile, iSpalte + 20).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle21).Value
oMe.Cells(iZeile, iSpalte + 21).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle22).Value
oMe.Cells(iZeile, iSpalte + 22).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle23).Value
oMe.Cells(iZeile, iSpalte + 23).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle24).Value
oMe.Cells(iZeile, iSpalte + 24).Value = Workbooks(sWbName).ActiveSheet.Range(sZelle25).Value
Workbooks(sWbName).ActiveSheet.Range(sZelle26).Copy
oMe.Cells(iZeile, iSpalte + 25).PasteSpecial Paste:=xlPasteValues
Workbooks(sWbName).ActiveSheet.Range(sZelle27).Copy
oMe.Cells(iZeile, iSpalte + 26).PasteSpecial Paste:=xlPasteValues
Workbooks(sWbName).ActiveSheet.Range(sZelle28).Copy
oMe.Cells(iZeile, iSpalte + 27).PasteSpecial Paste:=xlPasteValues
Workbooks(sWbName).ActiveSheet.Range(sZelle29).Copy
oMe.Cells(iZeile, iSpalte + 28).PasteSpecial Paste:=xlPasteValues
Workbooks(sWbName).Saved = True
Workbooks(sWbName).Close
iZeile = iZeile + 1
End If
Next
End Sub
Ich bedanke mich schon jetzt für eure Mühen.
Jörg

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum aus anderer Datei auslesen
09.05.2022 08:49:59
Fennek
Hallo,
das Datum des "Last Save":

Debug.Print ActiveWorkbook.BuiltinDocumentProperties("Last save time")
mfg
AW: Datum aus anderer Datei auslesen
09.05.2022 10:53:29
Herbert_Grom
Hallo Jörg,
probiers mal damit:

Option Explicit
Sub Main()
Dim x As Date
MsgBox GetFileDate("E:\Ordner\Datei.xlsx")
End Sub
Public Function GetFileDate(strFile) As Date
Dim objFSO, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strFile)
GetFileDate = objFile.DateLastModified
End Function
Servus
AW: Datum aus anderer Datei auslesen
09.05.2022 11:05:00
Jörg
Hallo Herbert,
ich bedanke mich schon mal für die Antworten.
Ich bin, wie gesagt, ziemlich unbeleckt, bei VBA.
Ich möchte das letzte Speicherdatum der Datei, die ich über die If-Schschleife gerade geöffnet habe, ermitteln und in Zelle (iZeile, iSpalte + 29) der Listendatei abspeichern (vor der Zeile "Workbooks(sWbName).Close"). Danach soll die Quelldatei wieder geschlossen werden und die nächste Datei in dem Verzeichnis geöffnet werden, bis kein mehr da sind.
Ich möchte das Datum also nicht von einer bestimmten Datei, sondern von allen Dateien, die in dem Ordner sind auslesen.
Danke, Jörg
Anzeige
AW: Datum aus anderer Datei auslesen
09.05.2022 11:22:14
Herbert_Grom
Und was willst du dann mit dem Datum machen, resp. wo soll es hin?
AW: Datum aus anderer Datei auslesen
09.05.2022 11:56:13
Jörg
Hallo Herbert,
mit dem Programm ziehe ich aus vielen Einzeldateien Daten in eine Datei zusammen. Alle Daten einer Einzeldatei werden in eine Zeile geschrieben.
Der Startpunkt jeder Zeile ist Spalte B. Von dort aus werden alle Werte in meine Liste eingetragen. Bis jetzt bin ich bei Spalte AD (was iSpalte + 28 entspricht).
Ich möchte nun in Spalte AC (oder iSpalte + 29) noch das letzte Speicherdatum ergänzen.
Ich benötige diese Angabe, um meine Auswertung damit zu steuern (Wertentwicklung).
Es wäre also toll, wenn folgendes funktionieren würde:
1. Ermittle Datum der letzte Speicherung der im Hintergrund geöffneten Datei
2. Füge Datum der letzten Speicherung der im Hintergrund geöffneten Datei Spalte AC in der gleichen Zeile ein, in der die anderen Daten aus der Datei schon eingefügt sind.
Danke nochmal für die Unterstützung.
Jörg
Anzeige
AW: Datum aus anderer Datei auslesen
09.05.2022 11:57:07
Rudi
Hallo,

oMe.Cells(iZeile, iSpalte + 29).Value = Workbooks(sWbName).BuiltinDocumentProperties("last save time")
Gruß
Rudi
AW: Datum aus anderer Datei auslesen
09.05.2022 12:36:48
Jörg
Hallo Rudi,
perfekt!!!
Danke für die Unterstützung
Gruß Jörg

305 Forumthreads zu ähnlichen Themen

Laufende Nummer aus anderer Datei ziehen
mtremer

Hallo Excel-Freunde,
nun habe ich schon länger recherchiert, aber gefunden habe ich nichts :-(
Folgendes habe ich vor:
Ich befinde mich in einer Datei (Start.xls). Von dort aus möchte ich eine laufende Nummer aus einer anderen Datei (Sammlung.xls) ziehen. Diese Nummer befindet sich...
17.09.2008 11:55:00
Thread-ID: 1010315
4 Beiträge
Anzeige
Import eines Arbeitsblatts aus anderer Excel-Datei
eliewsam

Hallo VBA-Experten,
ist es möglich, dass ich ausgehend von einer Excel-Datei ein einzelnes Arbeitsblatt einer anderen Excel-Datei importiere. Die Vergabe eines Namens für das neue (importierte) Arbeitsblatt sollte per Dialogfenster erfolgen.
Vielleicht kann mir einer von Euch in diesbez...
04.02.2009 09:06:29
Thread-ID: 1046879
4 Beiträge
Worksheet aus anderer Datei übernehmen
tco99

Hallo zusammen,
ich habe folgende Frage bzw. Bitte:
Ich habe zwei Excel-Dateien. Die eine Datei liegt immer im selben Verzeichnis, immer mit dem Namen "Daten" und hat ein einziges Worksheet mit dem Namen "Daten".
Jetzt müsste per Makro in der zweiten Datei das Blatt "Daten" der er...
05.02.2009 21:00:00
Thread-ID: 1047509
5 Beiträge
Anzeige
Worksheet aus anderer Excel Datei einbinden
Matze

Hallo zusammen!
Ich habe folgendes Vorhaben:
Ich möchte per CommandButton eine andere Excel Datei öffnen, aus dieser die einzelnen vorhandenen Worksheets (5 Stück) kopieren und diese anschließend in die Urpsungsdatei als Worksheet einbinden. Das Öffnen der anderen Excel Datei klappt, b...
26.02.2009 15:06:16
Thread-ID: 1054417
7 Beiträge
Bereichsnamen auslesen, in anderer Datei einlesen
Jörg

Hallo Forum,
ich lese meine vergebenen Bereichsnamen aus mit
Sub Namen_lesen_und_Bereich_angeben() For n = 1 To Names.Count Cells(n, 1) = Names(n).Name Cells(n, 2) = Names(n).Value Next n End Sub
Anschließend kopiere ich das Register in eine andere Datei und versuche dort die Be...
03.03.2009 15:46:37
Thread-ID: 1056016
6 Beiträge
Excelzellen durch Zellen aus anderer Datei füllen
KH

Hallo,
ich möchte folgendes tun:
In einer Exceldatei, in einer Zelle trage ich Kürzel ein (z.B. W1, W2, W3....)
Diese Kürzel sind in einer anderen Datei (Referenzdatei) mit Maßnahmen (Text, 1 Zelle), Nummern (Zahl, 1 Zelle) und Preisen ( Zahl, 1 Zelle) definiert.
W1 - Abriss - 0...
22.04.2009 15:49:17
Thread-ID: 1070395
3 Beiträge
Summen aus mehreren Dateien bilden
Rudolf

Hallo Excel-Freunde,
ich habe z.b. 50 Dateien, die sich alle in einem Ordner befinden und fortlaufend nummeriert sind (also 1.xls, 2.xls usw..
In allen Dateien befindet sich ein Arbeitsblatt mit dem gleichen Aufbau. Ich möchte nun in einer weiteren Datei mit dem gleichartig aufgebauten...
28.06.2009 19:07:21
Thread-ID: 1084895
3 Beiträge
Zeilen einlesen aus anderer Excel Datei - Makro
Max

Hallo liebe Forums User,
nachdem meine Suche im Archiv leider nichts ergeben hat, formuliere ich meine Frage einmal:
Ich möchte eine Auswertungsdatei bauen, die Daten aus 20 anderen Sheets einliest. Die externen Datein haben unterschiedliche Namen sind aber strukturell gleich aufgebaut....
06.07.2009 11:13:44
Thread-ID: 1086547
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
3
4
2
6
5
2
2
3
5
3
2
3
2
2
3
1
12
4
8
7
6
5
1