Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateinamen in TabStrip-Elemente einlesen

Gruppe

TabStrip

Problem

Wie kann ich in einer Tabelle eingetragene Dateinamen als Captions in TabStrip-Elemente einlesen? Nach Anklicken eines TabStrip-Elements soll die jeweilige Datei geöffnet werden. Die Dateieigenschaften sollen ausgelesen und angezeigt werden.

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

ClassModule: frmDateien

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

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

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

StandardModule: basMain

Sub CallForm()
   frmDateien.Show
End Sub