通过VBA取得Excel最近打开哪些文件。下面分三种情况获取不同的信息。
例码一：最近打开文件列表
Sub getRecentFileList()
Dim fileCnt As Long
Dim lRow As Long
fileCnt = Application.RecentFiles.Maximum '最近打开文件数
For lRow = 1 To fileCnt
Cells(行, 1) = 行
Cells(行, 2) = Application.RecentFiles(行).Name '文件名
Cells(行, 3) = Application.RecentFiles(行).Path '绝对路径
Next
End Sub
例码二：打开最近打开文件列表的某个文件
Sub openResentFile()
Application.RecentFiles.Item(3).Open '打开最近文件列表的第3个文件
End Sub
代码三：设定记录打开文件的个数
Private Sub setRecentFileMax()
Application.RecentFiles.Maximum = 4
End Sub