将文件夹链接到excel工作表

Question

我是个热心的电影收藏家，收藏了1000部电影。

我通常做的是，我有一个记事本和电影列表下载和观看。我把所有下载的电影放在一个叫做“电影”的文件夹里，一旦我看了任何电影，我就把它移到另一个叫做“看电影”的文件夹里。

现在，我想要一个带有工作表的excel文件，该文件将显示每个文件夹中的电影列表。此外，我希望excel自动更新，每当我将电影放入“电影”文件夹时，excel工作表应该显示该文件/文件夹名，同样，每当我将它移到“观看电影”文件夹时，也应该显示该文件/文件夹名。

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

任何帮助都是非常感谢的。谢谢你，贝斯特，J.V

Answer 1

要做到这一点，您需要使用VBA宏，您真正想要的并不是很难，而是需要一点编程知识。

步骤1

如果你正在使用2010年的这里是如何使用的话，你将不得不在excel上添加开发人员带。

步骤2

在developer选项卡上，单击Visual Basic并打开VB界面，我将为您提供脚本，但您需要添加“”引用。

步骤3

·关于下拉菜单中的引用

*将显示一箱可用的参考资料

·勾选“Microsoft脚本运行时”旁边的复选框

·scrrun.dll文件的全名和路径将显示在列表框下面

·点击OK按钮

步骤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的宏，这将使用所有文件更新工作簿。

它应该是这样的：

​

如果它对你有效，请告诉我！