Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Datei pfad name Dateieingeschaften und .. auslesen

Betrifft: Datei pfad name Dateieingeschaften und .. auslesen von: Viktor
Geschrieben am: 25.08.2004 15:14:17

Hallo zusammen
Kann mir Bitte jemand helfen: Ich muss eine Excel Datei vorbereiten der:
Dateien von eine vordefinierte Verzeichnis in Excel importiert, importierte Dateiname als Hyperlink, und immer richtung Rechts die Dateieingeschaften schreibt wie: Dateiname ohne endung, Author, Kategorie, Stichwörter, Kommentar, Datum, ErstelltVon ect.
Ist dass uberhaupt machbar? Danke und Gruss, Viktor

  


Betrifft: AW: Datei pfad name Dateieingeschaften und .. auslesen von: OttoH
Geschrieben am: 25.08.2004 15:55:10

HAllo Viktor,

Du kannst per VBA in einer Schleife alle Dateinamen eines Verzeichnisses nacheinander einlesen (Befehl DIR). Wenn die Namen bekannt sind, kannst Du der Reihe nach alle Dateie nöffnen, die Dateieigenschaften über DocumentProperties auslesen und in eine Liste schreiben. Es sind allerdings VBA-Kenntnisse notwendig.


Gruß OttoH


  


Betrifft: AW: Datei pfad name Dateieingeschaften und .. auslesen von: Viktor
Geschrieben am: 25.08.2004 16:37:33

Danke OttoH,

leider bin Newbee in VBA. Gruss Viktor


  


Betrifft: AW: Datei pfad name Dateieingeschaften und .. auslesen von: OttoH
Geschrieben am: 26.08.2004 15:11:36

Hallo Viktor,

das Makro könnte etwa folgendermaßen aussehen:

Sub Dateieigenschaften()

Dim Pfad As String
Dim Dateiname As String
Dim i As Long
Dim Autor As String
Dim Kategorie As String
Dim Stichwort As String
Dim Kommentar As String

Pfad = "d:\Daten\Excel7\Kurs\"
Dateiname = Dir(Pfad & "*.xls")
i = 2

Do While Dateiname <> ""
    Workbooks.Open Filename:=Pfad & Dateiname
    
    Autor = ActiveWorkbook.BuiltinDocumentProperties(3)
    Kategorie = ActiveWorkbook.BuiltinDocumentProperties(18)
    Stichwort = ActiveWorkbook.BuiltinDocumentProperties(2)
    Kommentar = ActiveWorkbook.BuiltinDocumentProperties(5)
    
    ActiveWorkbook.Close (False)
    Cells(i, 1).Activate
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pfad & Dateiname

    Cells(i, 2) = Left(Dateiname, Len(Dateiname) - 4)
    Cells(i, 3) = Autor
    Cells(i, 4) = Kategorie
    Cells(i, 5) = Stichwort
    Cells(i, 6) = Kommentar
    
    Dateiname = Dir
    i = i + 1
Loop
End Sub


Sub PropertyNames()
Dim rw As Integer
Dim p As Object
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    MsgBox (rw & " " & p.Name)
    rw = rw + 1
Next
End Sub



Gebraucht wird nur das erste Modul; das zweite habe ich nur angehängt, um die Nummern für die Eigenschaften angezeigt zu bekommen.


Gruß OttoH


  


Betrifft: AW: Datei pfad name Dateieingeschaften und .. auslesen von: Viktor
Geschrieben am: 27.08.2004 08:07:09

Hallo OttoH,

Makro läuft super mit ausnahme das ich kann nur von lokale laufwerke und nur von excel Dateien auslesen.

Nochmal Danke und Gruss, Viktor.


 

Beiträge aus den Excel-Beispielen zum Thema "Datei pfad name Dateieingeschaften und .. auslesen"