Список файлов в папке Excel onedrive - PullRequest
0 голосов
/ 29 ноября 2018

Мне нужна помощь со списком всех файлов и определенной папки.Я использовал это руководство и не могу заставить его работать с VBA.

Будет ли это работать на одном диске?Если я буду следовать учебнику без VBA, функция не перечислит имена файлов ...

Пожалуйста, помогите мне.

Спасибо,

VBA:

Function GetFileNames(ByVal FolderPath As String) As Variant
    Dim Result As Variant
    Dim i As Integer
    Dim MyFile As Object
    Dim MyFSO As Object
    Dim MyFolder As Object
    Dim MyFiles As Object
    Set MyFSO = CreateObject("Scripting.FileSystemObject")
    Set MyFolder = MyFSO.GetFolder(FolderPath)
    Set MyFiles = MyFolder.Files
    ReDim Result(1 To MyFiles.Count)
    i = 1
    For Each MyFile In MyFiles
        Result(i) = MyFile.Name
        i = i + 1
    Next MyFile
    GetFileNames = Result
End Function

Функция ячейки:

=IFERROR(INDEX(GetFileNames($A$1),ROW()-2),"")

A1:

=REPLACE(CELL("filename"),FIND("[",CELL("filename")),LEN(CELL("filename")),"*")

Это фактически выводит на печать

https://...../Test/*

Мне пришлось удалить косую черту и * дляэто работать локально.Но все равно не работает на одном диске

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...