HERBERS Excel-Forum - die Dialoge

Thema: Dateieigenschaften einlesen

Home
Die Dateinamen aus Spalte A werden beim Dialogaufruf in das TabStrip-Element der UserForm eingelesen. Beim Anklicken eines Tab's wird die entsprechende Datei geöffnet, die Eigenschaften in ein Textfeld eingelesen und die Arbeitsmappe wieder geschlossen. Dateieigenschaften einlesen
  • Prozedur: UserForm_Initialize
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Dateinamen als Tab-Aufschriften
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über die TabStrips bilden
    • Aktuellem Tab den Wert der aktuellen Zelle zuweisen
  • Code:

    
    Private Sub UserForm_Initialize()
       Dim intCounter As Integer
       For intCounter = 1 To 4
          TabStrip1.Tabs(intCounter - 1).Caption = Cells(intCounter, 1)
       Next intCounter
    End Sub
    
  • Prozedur: TabStrip1_Change
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Arbeitsmappeneigenschaften in Labels einlesen
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife über die TabStrips bilden
    • Bildschirmaktualisierung ausschalten
    • Ereignisse ausschalten
    • Fehlerroutine starten
    • Dateipfad in eine String-Variable einlesen
    • Wenn die Datei nicht gefunden wurde...
    • Warnton
    • Warnmeldung
    • Prozedur verlassen
    • Arbeitsmappe öffnen
    • Rahmen um das aktive Arbeitsmappen-Objekt bilden
    • Dateieigenschaften in das aktuelle Label einlesen
    • Aktive Arbeitsmappe ungespeichert schließen
    • Errorhandler
    • Ereignisse einschalten
    • Bildschirmaktualisierung einschalten
  • Code:

    
    Private Sub TabStrip1_Change()
       Dim sPath As String
       Application.ScreenUpdating = False
       Application.EnableEvents = False
       On Error GoTo ERRORHANDLER
       sPath = ThisWorkbook.Path & "\"
       If Dir(sPath & TabStrip1.SelectedItem.Caption & ".xls") = "" Then
          Beep
          MsgBox "Die Datei existiert nicht!"
          Exit Sub
       End If
       Workbooks.Open sPath & TabStrip1.SelectedItem.Caption & ".xls"
       With ActiveWorkbook
          lblEigenschaften.Caption = "Titel: " & _
             .BuiltinDocumentProperties(1) & vbLf & _
             "Thema: " & .BuiltinDocumentProperties(2) & vbLf & _
             "Autor: " & .BuiltinDocumentProperties(3) & vbLf & _
             "Schlüsselworte: " & .BuiltinDocumentProperties(4)
             .Close savechanges:=False
       End With
    ERRORHANDLER:
       Application.EnableEvents = True
       Application.ScreenUpdating = True
    End Sub