☰

使用文件夹中的文件填充电子表格

tag-icon • tag-icon microsoft-excel dropbox google-spreadsheets
使用文件夹中的文件填充电子表格

我需要管理与项目相关的文件夹中的大量文件，目前这些文件位于 Dropbox 中。因此，我希望找到一种方法，让电子表格自动填充文件夹中文件的名称，这样我就可以添加与这些文件相关的注释、日期、状态等列，并且可以轻松管理哪些文件具有某些条件，为下一步做好准备。

可能还会出现文件被添加或从文件夹中删除的情况。

有没有办法通过 Excel 或 Google 电子表格来实现这一点？只要文件存储库是 Dropbox、OneDrive、Google Drive 等，只要它有共享选项，就没有问题。

谢谢，

答案1

两种快速入门方法（您可能希望扩展这些方法以便更轻松地更新）。

使用 CMD 和 DIR 命令，您可以快速获得可以开始使用的文件的基本列表。使用以下命令：

dir /b > output.csv

在此处输入图片描述

在此处输入图片描述

另外（因为您希望能够更新列表并使用它），我整理了一个快速 VBA 示例。当然，您可能需要进行修改，但这是一个基础：

Sub PopulateRows()
    Dim objFSO, objFolder, colFiles, objFile, FindValue
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder("C:\Users\Jonno\Dropbox\Public")
    Set colFiles = objFolder.Files

    Dim curRow

    curRow = FindFirstEmptyRow

    For Each objFile In colFiles
        Set FindValue = Range("A:A").Find(objFile.Name)
        If FindValue Is Nothing Then
            Range("A" & curRow).Value = objFile.Name
            Range("B" & curRow).Value = objFile.Size
            Range("C" & curRow).Value = objFile.DateCreated
            Range("D" & curRow).Value = objFile.DateLastModified
            curRow = curRow + 1
        End If
    Next
End Sub

Function FindFirstEmptyRow()
    Dim curRow
    curRow = 1
    Do
        If IsEmpty(Range("A" & curRow).Value) Then
            FindFirstEmptyRow = curRow
            Exit Function
        End If
        curRow = curRow + 1
    Loop
End Function

在此处输入图片描述

在此处输入图片描述

这就是文件名、大小、创建日期和修改日期。

请注意，VBA 将添加新文件，但目前没有删除项目的逻辑，因此如果使用它，则可能需要修改它。

不确定这对您是否有用，但希望能给您一些想法。

相关内容