Änderungsdatum zusätzlich mit auflisten...
12.01.2017 16:54:27
Florian
folgendes Problem:
Ich habe hier ein Makro, das mir aus dem Ordner ("Z:\ablage\AV\....") alle Namen der Excel Dateien und der jeweiligen Arbeitsblätter auflistet. Jetzt würde ich aber gerne das Makro so erweitern, das es mir noch zusätzlich das letzte Änderungsdatum der Excel Dateien mit auflistet. Ich muss dazusagen das der Code nicht von mir selbstgeschrieben wurde und meine VBA Kenntnisse sehr sehr begrenzt sind.
Für eure Lösungsansätze wäre ich sehr dankbar.
Sub Startmakro()
Dim fs As Object
Dim fverz As Object
Dim fDatei As Object
Dim FDateien As Object
Dim strDat As String
Dim lngzaehler As Long
Dim SpaltenOffset As Integer
Dim oWS As Worksheet, oWB As Workbook, oEA As Object, WSZaehler As Integer
lngzaehler = 3
SpaltenOffset = 3
Set fs = CreateObject("Scripting.Filesystemobject")
Set fverz = fs.getfolder("Z:\ablage\AV\.....")
Set FDateien = fverz.Files
Set oEA = CreateObject("Excel.Application")
For Each fDatei In FDateien
If InStr(fDatei, "xl") > 0 Then
Tabelle1.Cells(lngzaehler, SpaltenOffset).Value = fDatei
Set oWB = oEA.Workbooks.Open(fDatei, 0, True)
WSZaehler = 1
For Each oWS In oWB.Sheets
Tabelle1.Cells(lngzaehler, SpaltenOffset + WSZaehler).Value = oWS.Name
WSZaehler = WSZaehler + 1
Next
oWB.Close SaveChanges:=False
lngzaehler = lngzaehler + 1
End If
Next fDatei
Set fs = Nothing
Set fverz = Nothing
Set FDateien = Nothing
Set oEA = Nothing
Set oWB = Nothing
End Sub