Мне нужна помощь со списком всех файлов и определенной папки.Я использовал это руководство и не могу заставить его работать с 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/*
Мне пришлось удалить косую черту и * дляэто работать локально.Но все равно не работает на одном диске