VBA文件及文件夹操作VIP免费

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