如何在 VBA 中的 excel 中创建具有文件属性的动态对象列表

Question

我在 Excel 2016 中为个人项目创建了文档列表，它可以对文件进行排序并删除旧版本，创建指向新版本的可点击链接... 我想更新代码以获得更好的可靠性和可见性。

我不知道如何创建具有文件属性（大小、名称、路径、创建日期...）的对象的动态列表，例如：具有这些属性（大小、名称、路径...） 我添加了一段我的旧代码。

我尝试了这些教程，但没有用或者我不明白：

• http://www.cpearson.com/excel/Classes.aspx
• How to create an array of objects Visual Basic
• https://excel.developpez.com/faq/?page=ModuleClasse

Dim TblFichiers() As String
Dim File As String
Dim I As Integer

If Right(Chemin, Len(Chemin)) <> "\" Then Chemin = Chemin & "\"
File = Dir(Chemin & "*" & Ext & "*")

Do While (Len(File ) > 0)
    I = I + 1
    ReDim Preserve TblFichiers(1 To I)
    TblFichiers(I) = File 
    File = Dir()
Loop

Getfiles= TblFichiers() 'Getfiles is main function

我知道如何在 C++ 或 C# 中执行此操作，但我很难理解它在 VBA 中的工作原理。

Answer 1

我认为你最好看看 Microsoft Scripting Runtime 库..

Public Sub TraverseFiles()
    Dim strFolder As String

    Dim objFSO As Scripting.FileSystemObject
    Dim objFolder As Scripting.Folder
    Dim objFile As Scripting.File

    strFolder = "c:\temp"

    Set objFSO = New Scripting.FileSystemObject
    Set objFolder = objFSO.GetFolder(strFolder)

    For Each objFile In objFolder.Files
        Debug.Print objFile.Name
        Debug.Print objFile.Path
        Debug.Print objFile.Size
        Debug.Print objFile.DateCreated
    Next
End Sub

...它将为您提供有关文件属性和管理这些文件的操作的所需信息。

你只需要适应你的项目。

我希望这对你有用。