课件：vba.ppt

还可以用fso对象的CreateFolder也可以创建一个文件夹，并 返回这个文件夹的folder对象。如下面的代码能在当前文档的路 径下创建一个名为“子文件夹”的目录： Dim fso1 As New Scripting.FileSystemObject fso1.CreateFolder (ActiveDocument.Path \子文件夹) Set fso1 = Nothing 如果文件夹已经存在，则再次调用createfolder时会出错， 因此需要先测试文件夹是否存在，下面的代码能用folderexist 方法首先测试，再创建： If Not fso1.FolderExists(ActiveWorkbook.Path \子文件夹) Then fso1.CreateFolder (ActiveWorkbook.Path \子文件夹) End If 还可以fso对象来删除指定的文件夹，如下代码： If fso1.FolderExists(ActiveWorkbook.Path \子文件夹) Then fso1.DeleteFolder (ActiveWorkbook.Path \子文件夹) End If 四、处理文件和文件集合 要使用File对象，首先要声明一个文件类型的变量，接着使 用FileSystemObject对象的GetFile方法来返回一个File对象，例如： Dim fil As File Set fil=fsox.GetFile(C:\1.txt) 对于 folder对象，还具有方法files，可以返回该文件夹下的 所有文件集合（files对象），对于这样的集合，可以利用for Each循环逐个进行处理。下面的代码能够显示当前excel工作簿 所在目录下的所有文件的名字： Dim fso1 As New Scripting.FileSystemObject Dim folder1 As Scripting.Folder Set folder1 = fso1.GetFolder(ActiveWorkbook.Path) Set files1 = folder1.Files For Each file1 In files1 MsgBox file1.Name Next Set file1 = Nothing Set files1 = Nothing Set folder1 = Nothing Set fso1 = Nothing 当然，在具体应用VBA时，我们应该在for each循环中使用 VBA处理每个文件。 VBA支持的文件系统对象、文件夹对象和文件对象等还具有 许多方法和属性支持所有的文件处理操作。 比如fso的fileexists方法能够测试文件是否存在；folder对象的 Subfolders方法能够返回当前文件夹的所有子文件夹。 使用file对象和fso对象的方法还可以处理文本文件，具体操作 请同学们参考相关资料和帮助。 第七章 word VBA杂项操作 二、使用VBA操作WORD 表格 word中一个经常使用的操作是表格操作，下面我们来 看看VBA是如何支持表格操作的。 要学习在程序中操纵Word 中的表格首先应该了解Table 对象和Tables 对象集合。 1）Tables 对象集合和Table 对象 Tables 对象集合代表选定内容范围或文档中的所有表格。 使用 Tables 属性可以返回一个Tables 集合。下面的语句显示 活动文档中的表格数目： Msgbox ActiveDocument.Tables.Count 2）add方法 使用tables对象的该方法可以插入表格，语法及常见参数 如下: Add(Range, NumRows, NumColumns) 各项参数的意义分别如下 Range：指定表格放置的区域，如果该区域未折叠表格将取代 该区域。 NumRows 和NumColumns ：要插入表格的行列数 下面代码的功能是用一个 3 x 4 表格代替文档的选定部分： Set myRange = Selection.Range ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4 注意上面增加的表格是无边框的，一般还需要设置表格的 边框，一个典型的示例代码如下： Set t = ActiveDocument.Tables.Add(Range:=