Question

好的，我如何将我必须使用URL访问的远程服务器上的文件夹中的所有文件进行组织，例如http://domain.com/folder并且在文件夹中有一堆文件我想列入excel。尝试列出当前C：\上的文件夹中的文件时，有一些功能可以执行此操作，但在尝试从URL列出文件时它们不起作用。我不确定这是否可以做到！谢谢

Answer 1

将服务器目录映射为计算机上的本地驱动器（例如O :)并使用小型VBA过程，例如：

Sub ServerDir()
Dim Idx As Integer, FN As String, R As Range

    Set R = Selection
    Idx = 1
    ' URL =  http://repository.XXXXX.com/content/dav/Repository/Users/Users-M/mike.d/mike.d-Public/
    ' mapped http://repository.XXXXX.com/content/dav/ to O:\ 
    FN = Dir("O:\Repository\Users\Users-M\mike.d\mike.d-Public\*.ppt")

    Do While FN <> ""
        R(Idx, 1) = FN
        FN = Dir()
        Idx = Idx + 1
    Loop

End Sub

来自URL的Excel VBA列表文件

1 个答案: