将文件夹链接到 Excel 工作表

Question

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

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

现在我想要一个带有工作表的 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 的宏，这将使用所有文件更新工作簿。

它应该看起来像这样：

让我知道它是否对你有用！