使用日期和时间从ftp文件夹的内容更新Excel工作表

使用日期和时间从ftp文件夹的内容更新Excel工作表,excel,vba,ftp,Excel,Vba,Ftp,我在共享网络上有一个文件夹。我希望无论何时更新该文件夹(例如,如果该文件夹中放置了10个pdf文件),Excel工作表中的列都会在单击一次后更新,并在一列中显示计数10,以及其他文件夹中上次更新文件的时间 以上只是一个场景,我必须为具有多个文件和文件夹的大数据实现此功能,最后我将在Google doc电子表格上实现此功能。您需要访问文件夹目录Dir(),然后您可以指定网络驱动器,例如:\\SERVER\folder\ 下面是一个让您开始学习的示例: Sub GetDirectoryContent

我在共享网络上有一个文件夹。我希望无论何时更新该文件夹(例如,如果该文件夹中放置了10个pdf文件),Excel工作表中的列都会在单击一次后更新,并在一列中显示计数10,以及其他文件夹中上次更新文件的时间


以上只是一个场景,我必须为具有多个文件和文件夹的大数据实现此功能,最后我将在Google doc电子表格上实现此功能。

您需要访问文件夹目录
Dir()
,然后您可以指定网络驱动器,例如:
\\SERVER\folder\

下面是一个让您开始学习的示例:

Sub GetDirectoryContents()

Dim row As Integer, Folder As String, Directory As String
Directory = "\\Your Folder\"
row = 1
Cells(row, 1) = "FileName"
Cells(row, 2) = "Size"
Cells(row, 3) = "Date/Time"


'Get Directory
Folder = Dir(Directory)

Do While Folder <> ""

row = row + 1

Cells(row, 1) = Folder

Cells(row, 2) = FileLen(Directory & Folder)

Cells(row, 3) = FileDateTime(Directory & Folder)

'Get next File
Folder = Dir()
Loop

End Sub
Private Sub Workbook_Open()
GetDirectoryContents()
End Sub