vba文件及文件夹操作.pdfVIP

精品文档 VBA 文件及文件夹操作 1.VBA 操作文件及文件夹 on error resume next下测试 A ，在 D： 下新建文件夹，命名为 folder 方法 1：MkDir D ：\folder 方法 2：Set abc = CreateObject(Scripting.FileSystemObject) abc.CreateFolder (D：\folder) B ，新建 2 个文件命名为 a.xls 和 b.xls Workbooks.Add ActiveWorkbook.SaveAs Filename：=D ：\folder\a.xls ActiveWorkbook.SaveAs Filename：=D ：\folder\b.xls C,创建新文件夹 folder1 并把 a.xls 复制到新文件夹重新命名为 c.xls MkDir D ：\folder1 FileCopy D ：\folder\a.xls, D ：\folder1\c.xls D,复制 folder 中所有文件到 folder1 Set qqq = CreateObject(Scripting.FileSystemObject) qqq.CopyFolder D ：\folder, D ：\folder1 D,重命名 a.xls 为 d.xls name d：\folder1\a.xls as d ：\folder1\d.xls E,判断文件及文件夹是否存在 Set yyy = CreateObject(Scripting.FileSystemObject) If yyy.FolderExists(D ：\folder1) = True Then ... If yyy.FileExists(D ：\folder1\d.xls) = True Then ... . 精品文档 F,打开 folder1 中所有文件 Set rrr = CreateObject(Scripting.FileSystemObject) Set r = rrr.GetFolder(d：\folder1) For Each i In r.Files Workbooks.Open Filename：=(d ：\folder1\ + i.Name + ) Next G,删除文件 c.xls kill d ：\folder1\c.xls H,删除文件夹 folder Set aaa = CreateObject(Scripting.FileSystemObject) aaa.DeleteFolder d：\folder 2.8excel vba 一次性获取文件夹下的所有文件名的方法 小生今天上网下载了一个财务常用报表的文件包， 里面有几百个 excel 工 作表，要是手工一个一个的获得文件名的话，那我可是要忙十天半月哦。于 是想到昨论 坛就是 vba 论坛，昨不充分利用 excel 自身的高级应用呀， 呵呵， 实现的代码如下， 把工作量几天的任务可是一下子就完成了， 这就是 excel vba 给你工作提高效率的结果！ excle vba 自动获取同一文件夹下所有工作表的名称红色代码： 按 Alt+F11 ，打开 VBA 编辑器，插入一个模块，把下面的代码贴进去， 按 F5 执行 Sub t() Dim s As FileSearch 定义一个文件搜