Classe RecentFile (Excel VBA)

A classe RecentFile representa um arquivo da lista de arquivos utilizados recentemente.

Os principais procedimentos da classe RecentFile são Delete, Open e RecentFiles.Add

Set

Para usar uma variável de classe RecentFile, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo RecentFile: RecentFiles.Item, RecentFiles.Add e Application.RecentFiles

For Each

Aqui está um exemplo de processamento dos itens RecentFile em uma coleção.

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

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Add with its procedures Open e RecentFiles.Add

Métodos

Estes são os principais métodos da classe RecentFile

Delete - Exclui o objeto.

Application.RecentFiles(1).Delete

Propriedades

Index Retorna um valor Long que representa o número de índice do objeto dentro da coleção de objetos semelhantes.

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

Name Retorna um valor String que representa o nome do objeto.

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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

Path Retorna um valor String que representa o caminho completo para a pasta de trabalho ou o arquivo que este objeto RecentFile representa.

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

RecentFiles.Count Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Application.RecentFiles.Count

RecentFiles.Item Retorna um único objeto de uma coleção.

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

RecentFiles.Maximum Retorna ou define o número máximo de arquivos da lista de arquivos usados recentemente. Pode ter um valor de 0 zero a 50. Long de leitura/gravação.

Application.RecentFiles.Maximum = 8

RecentFiles.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

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