VBA文件及文件夹操作1717258.docVIP

VBA文件及文件夹操作 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 excel vba一次性获取文件夹下的所有文件名的方法 小生今天上网下载了一个财务常用报表的文件包，里面有几百个excel工作表，要是手工一个一个的获得文件名的话，那我可是要忙十天半月哦。于是想到昨论 坛就是vba论坛，昨不充分利用excel 自身的高级应用呀，呵呵，实现的代码如下，把工作量几天的任务可是一下子就完成了，这就是excel vba给你工作提高效率的结果！ excle vba自动获取同一文件夹下所有工作表的名称红色代码： 按Alt+F11，打开VBA编辑器，插入一个模块，把下面的代码贴进去，按F5执行 Sub t() Dim s As FileSearch 定义一个文件有哪些信誉好的足球投注网站对象 Set s = Application.FileSearch s.LookIn = c：\ 注意路径，换成你实际的路径 s.Filename = *.* 有哪些信誉好的足球投注网站所有文件 s.Execute 执行有哪些信誉好的足球投注网站 Cells.Delete 表格清空 For i = 1 To s.FoundFiles.Count Cells(i, 1) = s.FoundFiles(i) 每一行第一列填写一个文件名 Next End Sub 现在获得的可是带路径的工作表名，去掉前的路径可用以下方法； =RIGHT(A1,LEN(A1)-FIND(#,SUBSTITUTE(A1,\,#,LEN(A1)-LEN(SUBSTITUTE(A1,\,))))) 最后用常规的方法往下拖，就完成了笔者所需的工作表名。 outlook下VBA编程：把公用文件夹里的邮件附件拷贝出来保存在硬盘上 2009-06-17 09：35 Sub SaveAttachments() Dim oApp As Outlook.Application Dim oNameSpace As NameSpace Dim oFolder As MAPIFolder Dim oMailItem As Object Dim sMessage As String BeforeDate = #10/1/2007# choose the end date of wanted MyDir = E：\liuxc-work\oil loss\backup fr