excel - 将文件夹链接到 Excel 工作表

Question

我是一位狂热的电影收藏家，收藏了 1000 部电影。

我通常做的是，我有一个记事本，其中包含要下载和观看的电影列表。 我将所有下载的电影保存在一个名为“Movies”的文件夹中，一旦观看任何电影，我就会将其移动到另一个名为“Watched Movies”的文件夹中。

现在我想要一个带有工作表的 Excel 文件，该文件将显示每个文件夹中的电影列表。另外，我希望 Excel 能够自行更新，每当我将电影放入“电影”文件夹中时，Excel 工作表都应显示该文件/文件夹名称，每当我将其移动到“观看的电影”文件夹时，Excel 工作表都应显示该文件/文件夹名称。

我确信这对于你们中的一些人来说是小菜一碟。

感谢任何帮助。 谢谢你， 最好的， 合资企业

Answer 1

好的，要做到这一点，您将需要使用 VBA 宏，您实际寻找的内容并不难，但需要一些编程知识。

第 1 步
如果您使用的是 2010 here，则必须在 Excel 上添加开发人员功能区是怎样的。

第 2 步
在开发人员选项卡上单击 Visual Basic，它将打开 VB 界面，我将为您提供脚本，但您需要添加“Microsoft Scripting Runtime”引用。

第 3 步
• 在 Visual Basic 上，从下拉菜单中选择“工具 - 引用”
• 将显示可用引用的列表框
• 勾选“Microsoft Scripting Runtime”旁边的复选框
• scrrun.dll 文件的全名和路径将显示在列表框下方
• 单击“确定”按钮

第 4 步

选择ThisWorkbook并粘贴以下代码

Sub ViewFiles()
    theRow = 3
    Call ShowFiles(Range("A1"), True)
End Sub

Sub ShowFiles(path, subfolders)
    Set obj = New Scripting.FileSystemObject
    Set Source = obj.GetFolder(path)
    On Error Resume Next
    For Each file In Source.Files
       theCol = 2
       Cells(theRow, theCol).Value = file.path
       theCol = theCol + 1
       Cells(theRow, theCol).Value = file.Name
       theCol = theCol + 1
       Cells(theRow, theCol).Value = file.Size
       theCol = theCol + 1
        theRow = theRow + 1
    Next
    If subfolders Then
    For Each subFolder In Source.subfolders
        Call ShowFiles(subFolder.path, True)
    Next
   End If
End Sub

第 5 步
在单元格 A1 上粘贴您想要查看的路径，然后按 ALT +F8 并执行名为 ViewFiles 的宏，这将使用所有文件更新工作簿。

它应该看起来像这样:

请告诉我它是否对您有用!