vba 关于文件的一些操作

vba操作文件及文件夹示例，希望对大家有用
利用excel中的vba可以对电脑中的文件及文件夹做一些常用的操作。包括复制、重命名、删除等，其中一些简单的示例总结如下。希望对一些经常需要批量处理文件的朋友有所帮助，也希望感兴趣的朋友多多指教！

以下代码建议在on error resume next下测试 1，在D:/下新建文件夹，命名为folder 方法1：MkDir "D:/folder" 方法2：Set abc = CreateObject("Scripting.FileSystemObject") abc.CreateFolder ("D:/folder")

2，新建2个文件命名为a.xls和b.xls Workbooks.Add ActiveWorkbook.SaveAs Filename:="D:/folder/a.xls" ActiveWorkbook.SaveAs Filename:="D:/folder/b.xls"

3,创建新文件夹folder1并把a.xls复制到新文件夹重新命名为c.xls MkDir "D:/folder1" FileCopy "D:/folder/a.xls", "D:/folder1/c.xls"

4,复制folder中所有文件到folder1 Set qqq = CreateObject("Scripting.FileSystemObject") qqq.CopyFolder "D:/folder", "D:/folder1"

5,重命名a.xls为d.xls name "d:/folder1/a.xls" as "d:/folder1/d.xls"

6,判断文件及文件夹是否存在 Set yyy = CreateObject("Scripting.FileSystemObject") If yyy.FolderExists("D:/folder1) = True Then ... If yyy.FileExists("D:/folder1/d.xls) = True Then ...

7,打开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

8,删除文件c.xls kill "d:/folder1/c.xls"

9,删除文件夹folder Set aaa = CreateObject("Scripting.FileSystemObject") aaa.DeleteFolder "d:/folder"