Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Eigenschaften auslesen

Eigenschaften auslesen
24.01.2005 10:42:21
Lars
Guten Morgen,
habe hier schon was gefunden das mir aber nur bedingt weiter hilft.
Dieses Makro liest mir die Eigenschaften des Workbooks aus.

Sub Eigenschaften()
Dim iCounter As Integer
On Error Resume Next
For iCounter = 1 To 30
Cells(iCounter, 1).Value = _
ThisWorkbook.BuiltinDocumentProperties(iCounter).Name
Cells(iCounter, 2).Value = _
ThisWorkbook.BuiltinDocumentProperties(iCounter)
If Err > 0 Then
Err.Clear
Cells(iCounter, 2).Value = "k.A."
End If
Next iCounter
On Error GoTo 0
Columns.AutoFit
Columns("A:B").HorizontalAlignment = xlLeft
End Sub

Ich möchte aber das die Eigenschaften aller Dateien im Pfad C:\Eigene Dateien und der Unterordener ausgelesen werden.
Wer kann mir helfen?
Gruß Lars

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eigenschaften auslesen
24.01.2005 11:27:31
Josef
Hallo Lars!
Viel Spass!


      
Option Explicit
Sub DateiEigenschaften()
'by J.Ehrensberger

'Trägt die Dateieigenschaften aller Exceldateien eines Verzeichnises
'mit Unterverzeichnissen in die aktuelle Tabelle ein!
'Die Tabelle wird vorher gelöscht (Inhalt)!

Dim fSearch As FileSearch
Dim wkb As Workbook, actSht As Worksheet
Dim strPath As String
Dim iCnt As Integer, n As Integer
Dim lRow As Long
On Error GoTo ERRORHANDLER
   
With Application
   .ScreenUpdating = 
False
   .EnableEvents = 
False
   .DisplayAlerts = 
False
   .Calculation = xlCalculationManual
   
End With
strPath = 
"C:\Eigene Dateien"
lRow = 1
Set actSht = ActiveSheet
With actSht
.Cells.ClearContents
.Cells.ClearFormats
End With
Set fSearch = Application.FileSearch
With fSearch
.NewSearch
.LookIn = strPath
.SearchSubFolders = 
True  '<<<<Unterordner durchsuchen True/False
.FileType = msoFileTypeExcelWorkbooks
.Execute
   
For iCnt = 1 To .FoundFiles.Count
   
Set wkb = Workbooks.Open(.FoundFiles(iCnt))
   actSht.Cells(lRow, 1) = wkb.FullName
   actSht.Cells(lRow, 1).Font.Bold = 
True
   lRow = lRow + 1
      
With wkb
         
For n = 1 To wkb.BuiltinDocumentProperties.Count
         
On Error Resume Next
         actSht.Cells(lRow, 1).Value = _
         wkb.BuiltinDocumentProperties(n).Name
         actSht.Cells(lRow, 2).Value = _
         wkb.BuiltinDocumentProperties(n)
         
            
If InStr(1, wkb.BuiltinDocumentProperties(n).Name, "date"Or _
            InStr(1, wkb.BuiltinDocumentProperties(n).Name, 
"time"And _
            wkb.BuiltinDocumentProperties(n) <> 0 
Then
               actSht.Cells(lRow, 2).NumberFormat = 
"dd.mm.yyyy hh:mm:ss"
            
End If
            
            
If Err > 0 Then
            Err.Clear
            actSht.Cells(lRow, 2).Value = 
"k.A."
            
End If
            
         
On Error GoTo ERRORHANDLER
         lRow = lRow + 1
         
Next
         wkb.Close , 
False
      
End With
   lRow = lRow + 1
   
Next
End With
actSht.Columns.AutoFit
actSht.Columns(
"A:B").HorizontalAlignment = xlLeft
ERRORHANDLER:
   
With Application
   .ScreenUpdating = 
True
   .EnableEvents = 
True
   .DisplayAlerts = 
True
   .Calculation = xlCalculationAutomatic
   
End With
End Sub 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Eigenschaften auslesen
24.01.2005 11:35:58
Lars
Hallo Sepp,
SSSSSUUUUUUUUUUPPPPPPPPPEEEEEEEERRRRRRRRRRRR, läuft perfekt.
Danke für die Hilfe
Gruß Lars

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige