Как создать динамический список объектов со свойствами файлов в Excel в VBA - PullRequest
Новая
       15

Как создать динамический список объектов со свойствами файлов в Excel в VBA

0 голосов
/ 08 апреля 2019

Я создал список документов в Excel 2016 для личного проекта, он может сортировать файлы и удалять старые версии, создавать кликабельную ссылку на новую версию ... Я хочу обновить код для большей надежности и видимости.

Я не знаю, как создать динамический список объектов со свойствами файлов (размер, имя, путь, дата создания ...), например: есть эти свойства (размер, имя, путь ...) Я добавляю кусок моего старого кода.

Я пробовал эти уроки, но не работает или не понимаю: 

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.

1 Ответ

0 голосов
/ 08 апреля 2019

Думаю, вам лучше всего обратиться к библиотеке Microsoft Scripting Runtime ..

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

... он даст вам то, что вы хотите в отношении атрибутов файлов и операций для управления этими файлами.

Вам просто нужно адаптировать свой проект.

Я надеюсь, что это работает для вас.

...