Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern

Gruppe

Arbeitsmappe

Problem

Wie kann ich in einem vorgegebenen Verzeichnis bei allen ExcelArbeitsmappen die Stichwort-Eigenschaft festlegen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub SetProperties()
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .FileName = "*.xls"
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         Workbooks.Open _
            FileName:=.FoundFiles(iCounter), _
            updatelinks:=False
         ActiveWorkbook.BuiltinDocumentProperties(4) = _
            "Excel, VBA"
         ActiveWorkbook.Close Savechanges:=True
      Next iCounter
   End With
ERRORHANDLER:
   Application.EnableEvents = True
   Application.ScreenUpdating = False
End Sub