VBA中操作文件及文件夹的常用命令

这段时间写的程序也少了，可能是真正的会了，也就这么回事了。但这几天一直在想一个问题，如何操作文件及文件夹，虽然以前也零零碎碎写了一点，但一直没有好好整理过，都是到用时再查找资料，要求也不高，只要能过关就行。现在想着趁着还能上网，还是抓紧时间整理一下吧。

想要解决的问题如下：

⒈在指定工作簿中①如何添加新工作表，并重命名；②如何删除指定工作表，并不出现提示；③如何统计工作表的个数；④如何将指定工作表移动到新工作簿或更改次序；⑤如何保存文件，包括直接保存及另存为。

⒉如何遍历指定文件夹下的指定文件，并将其保存到工作表。

⒊如何按指定格式更改文件名。

以上3个问题应该可以涵盖现在遇到的情况，下面一一解决。

①如何添加新工作簿，并重命名。

Workbook 对象用法
本部分将对下列返回 Workbook 对象的属性进行说明：

Workbooks 属性
ActiveWorkbook 属性
ThisWorkbook 属性
Workbooks 属性
可用 Workbooks(index)（其中 index 为工作簿名称或编号）返回单个 Workbook 对象。下例激活第一个工作簿。

Workbooks(1).Activate
编号指示创建或打开工作簿的顺序。Workbooks(1) 为创建的第一个工作簿，而 Workbooks(Workbooks.Count) 为最后一个。激活某工作簿并不更改其编号。所有工作簿均包括在编号计数中，即便是隐藏工作簿也是如此。

Name 属性返回工作簿名称。不能用该属性设置名称；如果需要更改名称，应当用 SaveAs 方法以其他名称保存工作簿。下例激活工作簿“Cogs.xls”中的工作表“Sheet1”（该工作簿必须已在 Microsoft Excel 中打开）。

Workbooks("Cogs.xls").Worksheets("Sheet1").Activate
ActiveWorkbook 属性
ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。

ActiveWorkbook.Author = "Jean Selva"
ThisWorkbook 属性
ThisWorkbook 属性返回 Visual Basic 代码正在运行的工作簿。在绝大多数情况下，这也就是活动工作簿。然而，如果 Visual Basic 代码是加载宏的一部分，那么 ThisWorkbook 属性就不会返回活动工作簿。在这种情况下，活动工作簿是调用加载宏的工作簿，而 ThisWorkbook 属性将返回该加载宏工作簿。

如果用 Visual Basic 代码创建加载宏，那么对于那些编译到加载宏中的工作簿，在其中运行的语句应当用 ThisWorkbook 属性加以限定。

演示如何添加工作簿并进行更名及相关操作

Sub 添加工作簿()
    Application.DisplayAlerts = False
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:="E:aaidafd.xls" '保存到指定文件夹中
    ActiveWorkbook.SaveAs Filename:="adiasf.xls" '保存到与代码所在工作簿同一文件夹中.
    ActiveWorkbook.Close savechanges:=True '关闭当前活动工作簿,并保存更改.
    Workbooks(1).Activate '将第1工作簿激活,但由于并不甚清楚工作簿如何排序的,所以尽量少用.
    ThisWorkbook.Activate '将VBA代码所在工作簿激活,这句比较实用.
    Application.DisplayAlerts = True
    Debug.Print Workbooks.Count '统计工作簿的个数
    Debug.Print Worksheets.Count '统计当前工作簿中工作表的个数,包含隐藏工作表.
End Sub

演示关于工作表本身的操作,例如:更名/移动位置/添加等.

Sub 工作表()
    '如何添加工作表
    Worksheets.Add after:=Worksheets(Worksheets.Count) '添加新工作并放在倒数第1位置处.
    Worksheets.Add before:=Worksheets(Worksheets.Count) '添加新工作表并放在倒数第2位置处.
    '如何更改工作表的顺序
    Sheets(1).Move before:=Worksheets(Worksheets.Count) '移动指定工作表到指定位置处，但这个地方不会出现提示。
    Worksheets(1).Move before:=Worksheets(Worksheets.Count) '移动指定工作表到指定位置处.
    '如何更改工作表名称
    ActiveSheet.Name = "xiehui" '将当前活动工作表更改为指定名字.
    Worksheets(1).Name = "sidafd" '将当前工作簿中指定工作表更名.

    '如何为一指定工作表建立副本

    worksheets(1).copy

End Sub

遍历文件夹,获得文件名并只保留文件名.

Sub 遍历指定文件夹下的所有文件并只保留文件名()
    Dim i As Integer
    Dim sr As FileSearch '定义一个文件搜索对象
    Set sr = Application.FileSearch
    sr.LookIn = "E:2009-2010学年历次考试2009年11月份考试--学校统考补考名单" '注意路径，换成你实际的路径
    sr.Filename = "*.*" '搜索所有文件
    sr.Execute '执行搜索
    Cells.Delete '表格清空
    For i = 1 To sr.FoundFiles.Count
        Cells(i, 1) = sr.FoundFiles(i) '每一行第一列填写一个文件名
    Next
    '获取共有多少行,为下一步循环做准备
    totalR = Range("A65536").End(xlUp).Row
    '这是左边取,结果为"E:"
'    For i = 1 To totalR
'        Cells(i, 1).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, "") - 1)
'    Next i
    '若从右边取呢?结果只保留了文件名
    For i = 1 To totalR
        Cells(i, 1).Value = Right(Cells(i, 1).Value, Len(Cells(i, 1).Value) - InStrRev(Cells(i, 1).Value, ""))
    Next i
End Sub

 

 今天你菊子曰了么？