Klasse RecentFile (Excel VBA)

Die Klasse RecentFile stellt eine Datei in der Liste der zuletzt verwendeten Dateien dar.

Die wichtigste Prozeduren der Klasse RecentFile sind Delete, Open und RecentFiles.Add

Set

Um eine RecentFile -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim rcnfl as RecentFile
Set rcnfl = Application.RecentFiles(Index:=1)

Die folgenden Prozeduren können zum Festlegen der RecentFile Klassenvariablen verwendet werden : RecentFiles.Item, RecentFiles.Add und Application.RecentFiles

For Each

Hier ist ein Beispiel für die Verarbeitung der RecentFile -Elemente in einer Sammlung

Dim rcnfl As RecentFile
For Each rcnfl In Application.RecentFiles
	
Next rcnfl

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Add with its procedures Open und RecentFiles.Add

Methoden

Die Hauptmethoden der Klasse RecentFile sind

Delete - Löscht das Objekt.

Application.RecentFiles(1).Delete

Eigenschaften

Index Gibt einen Long-Wert zurück, der die Indexnummer des Objekts in der Auflistung ähnlicher Objekte darstellt.

Dim lngIndex As Long
lngIndex = Application.RecentFiles(1).Index

Name Gibt einen String -Wert, der den Namen des Objekts darstellt.

Dim strName As String
strName = Application.RecentFiles(1).Name

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = Application.RecentFiles(1).Parent

Path Gibt einen String -Wert zurück, der den vollständigen Pfad zu der Arbeitsmappe oder Datei darstellt, die dieses aktuelle File-Objekt darstellt.

Dim strPath As String
strPath = Application.RecentFiles(1).Path

RecentFiles.Count Gibt einen Long-Wert zurück, der die Anzahl der Objekte in der Auflistung darstellt.

Dim lngCount As Long
lngCount = Application.RecentFiles.Count

RecentFiles.Item Gibt ein einzelnes Objekt aus einer Auflistung zurück.

Dim rcnflItem As RecentFile
Set rcnflItem = Application.RecentFiles(Index:=1)

RecentFiles.Maximum Gibt die maximale Anzahl der Dateien in der Liste der zuletzt verwendeten Dateien zurück oder legt sie fest.

Application.RecentFiles.Maximum = 8

RecentFiles.Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = Application.RecentFiles.Parent