Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1516to1520
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
Inhaltsverzeichnis

Attribute ändern FileSearch Excel 2010

Attribute ändern FileSearch Excel 2010
07.10.2016 19:02:27
SteffenS
Hallo Zusammen,
per Makros habe ich bisher immer die Dateiattribute geändert.
Leider funktioniert dies unter Excel 2010 nicht mehr. Es muss wohl an der FileSearch Funktion liegen.
Was kann ich tun, damit es wieder funktioniert. Die Dateien befinden sich in verschiednenen Verzeichnissen:
Sub attr_aendern()
Dim objFS As FileSearch
Dim strPath As String, strFile As String
Dim intIndex As Integer
Dim Dateiname As String
strPath = ThisWorkbook.Path & "\"
Set objFS = Application.FileSearch
With objFS
.NewSearch
.LookIn = strPath
.FileType = msoFileTypeExcelWorkbooks
.SearchSubFolders = True ' Unterordner durchsuchen
If .Execute > 0 Then
For intIndex = 1 To .FoundFiles.Count
strFile = .FoundFiles(intIndex)
Dateiname = Dir(strFile)
Select Case Dateiname
Case ThisWorkbook.Name
Case Else
Dateiname = Dir(strFile)
If IstMappeOffen(Dateiname) = False Then Workbooks.Open Filename:=strFile,  _
UpdateLinks:=0
' Setzen bzw. Aendern der Eigenschaft "Titel"
Workbooks(Dateiname).BuiltinDocumentProperties(1) _
= Workbooks(ThisWorkbook.Name).Sheets("Attr").Range("C3").Value
' Setzen bzw. Aendern der Eigenschaft "Thema"
Workbooks(Dateiname).BuiltinDocumentProperties(2) _
= Workbooks(ThisWorkbook.Name).Sheets("Attr").Range("C5").Value
' Setzen bzw. Aendern der Eigenschaft "Autor"
Workbooks(Dateiname).BuiltinDocumentProperties(3) _
'Dateiname = Dir
End Select
Next
End If
End With
Set objFS = Nothing
End Sub
Danke Euch schon mal.
VG Steffen

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
das FileSearch-Objekt ...
07.10.2016 21:54:00
D.
Moin,
... gibt es schon seit XL2007 nicht mehr. Also seit 9 Jahren.
Hättest du bei dem Level mitbekommen sollen.
Dierck
AW: das FileSearch-Objekt ...
10.10.2016 16:49:32
SteffenS
Danke Nepumuk für den Tipp, das hat prima funktioniert.
Das es das Objekt nicht mehr gibt wusste ich, kam aber bisher noch so aus :-)
VG Steffen
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige