我开始制作视频与我的帖子上的帖子101您需要知道的高级枢轴表提示和技巧。我希望有点组织,并在自己的文件夹中为每个视频提示拥有所有相关文件。这意味着创建101个新文件夹,然后命名它们基于我的帖子中的每个提示。
手动这样做会是一个非常乏味任务。
- 将提示标题复制到剪贴板。
- 打开文件资源管理器并右键单击以创建一个新文件夹。
- 将提示标题名称粘贴到文件夹名称中
- 将文件夹名称前缀为“001 -“因为我希望它们以与帖子相同的顺序列在文件资源管理器中。
- 重复步骤1到4一百倍
这不是我觉得有趣的任务,而且通常会促使我思考“我怎样才能避免这样做?“。
由于我已经在Excel表中列出了我的提示标题,这是一点点VBA的完美任务。
从列表中创建文件夹
我在帖子中设置了一个名为ranemakefolderpath.作为文件夹路径的输入。这是您可以在哪里放置要创建所有文件夹的位置。
我还设置了一个1列表并命名为它makefoldernames.。此表将包含我想要创建的所有文件夹的名称。
为我们的输入创建命名范围和表格只需允许我们在表格上移动这些,而无需更新VBA中的引用。
子MakeFolders()Dim文件夹AS Range Dim FolderPath作为String FolderPath = Range(“makeFolderPath”)。错误恢复下一个范围内的每个文件夹(“makefoldernames [文件夹名称]”)mkdir folderpath&“\”&folder.text下一个文件夹结束子子
这是一个简单的VBA。它循环通过我们的文件夹名称列表中的每个项目循环,并使用该名称创建一个文件夹MKDIR.命令。它还跳过可能在我们的列表中可能发生的空单元格的任何错误,该文件夹已存在于文件夹名称中不允许的特殊字符。
从列表中删除文件夹
删除目录中的所有文件夹并不难,您只需突出显示它们并按删除。但是,如果您有大量文件夹,并且只想删除那些的子集,则可能会耗时删除它们。在这种情况下,您需要单独选择和删除文件夹。
如果您有文件夹子集列表,那么我们可以使用VBA以类似的方式删除它们如何从列表中创建文件夹。
读取路径的命名范围deletefolderpath.并调用包含我的文件夹名单列表的表格deletefoldernames.。
Sub DeleteFolders()Dim文件夹作为范围暗折fockPath作为String folderPath = Range(“deletefolderpath”)。错误恢复在范围内的每个文件夹(“deletefoldernames [文件夹名称]”)rmdir folderpath&“\”&folder.text下一个文件夹结束子子
这将循环通过并删除列表中的任何文件夹rmdir.命令。它将跳过文件夹中未存在或列表中的空单元格的任何错误。
尽管如此,你将无法撤消这个。一旦它走了,它已经消失了!
从列表中重命名文件夹
您可能已经设置了文件夹,但需要将它们重命名为一些新的命名约定。当我设置我的文件夹时,我有预见的是用一个数字来前缀,其中包括领先的零,使他们按照我希望它们出现的顺序排列它们。
读取路径的命名范围RenameFolderPath.和包含我的文件夹名称列表及其相应的新名称的表格重命名Foldernames.。
子重命名函数()DIM文件夹AS范围暗折FORPTPATH作为String FORPTPATH = RANGE(“RenameFolderPath”)。在范围内的每个文件夹的错误恢复值(“重命名文件名[原始名称]”)名称folderpath&“\”和folder.text作为folderpath&“\”&folder.offset(0,1).text下一个文件夹结束子子
我们使用类似VBA的类似结构名称为命令重命名我们的文件夹。我们只需要参考我们的新名字我们可以使用它抵消来自原名因为它是右边的一列原名。
再次,这里没有撤消,所以要小心!
只是想对此说谢谢你。帮助我节省了很多时间