链接一个文件夹到一个Excel工作表

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

我通常做的是，我有一个记事本和电影列表下载和观看。 我把所有下载的电影保存在名为“电影”的一个文件夹中，一旦我观看任何电影，我将它移动到另一个名为“看过的电影”的文件夹。

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

肯定这对你们中的一些人来说是一块蛋糕。

任何帮助表示赞赏。 谢谢，Best，JV

Answer 1

确定要做到这一点，你将使用VBAmacros，你真正想要的不是那么难，但需要一些编程知识。

步骤1
你将不得不在excel中添加开发人员function区，如果你正在使用2010， 这里是如何。

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

第3步
•在Visual Basic中，从下拉菜单中select工具 – 参考
•将显示可用参考的列表框
•勾选“Microsoft Scripting Runtime”旁边的checkbox
？scrrun.dll文件的全名和path将显示在列表框下方
•点击确定button

步骤4

selectThisWorkbook并粘贴以下代码

 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上粘贴要查看的path，然后按Alt + F8并执行名为ViewFiles的macros，这将更新所有文件的工作簿。

它应该看起来像这样：

让我知道如果它为你工作！