3

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

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

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

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

任何帮助表示赞赏。谢谢，最好的，合资企业

4

1 回答 1

2

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

第 1 步
您必须在 excel 上添加开发人员功能区，如果您使用的是 2010 ，这里是如何。

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

它应该看起来像这样： 在此处输入图像描述

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

于 2013-06-15T20:59:42.510 回答