VBA学习笔记7:Excel文件操作

3 年前 · 来自专栏 VBA学习笔记（完结）

夏西蓝

不用关注我哈，不会再更VBA的内容了

学习资源：《Excel VBA从入门到进阶》第9集 by蓝色幻想

一.概念

1.工作簿和工作表

excel文件就是excel工作簿，我们常操作的sheet就是工作表。

2.Workbooks 工作簿集合，泛指excel文件或工作簿。（注意有s）

Workbooks("VBA80集第9集excel文件操作.xls")，名称为“VBA80集第9集excel文件操作”的excel工作簿。

或者，打开某一路径下的第几个工作簿Workbooks(1)。

例子：在VBA80集第9集excel文件操作.xls中的Sheet2的A1单元格输入200。

PS:VBA80集第9集excel文件操作.xls在该路径下排列在第二位。

Sub t1()
Workbooks("VBA80集第9集excel文件操作.xls").Sheets(2).Range("A1") = 200
End Sub

或者

Sub t2()
Workbooks(2).Sheets(2).Range("A1") = 200
End Sub

3.ActiveWorkbook & Thisworkbook

ActiveWorkbook：活动工作簿，当打开多个excel工作簿时，你正在操作的那个就是ActiveWorkbook。

Thisworkbook：VBA程序所在的工作簿，无论你打开多少个工作簿，无论当前是哪个工作簿是活动的,thisworkbook就是指程序所在的工作簿。

工作簿窗口

使用windows可以设置工作簿窗口的状态。有多种属性、状态可以设置，可到百度寻找更详细的资料。

Sub t3()
'隐藏A工作簿窗口
Windows("A.xls").Visible = False
'显示第二个excel工作簿窗口
Windows(2).Visible = True
'关闭第一个excel工作簿窗口
Windows(1).Close
'本示例将活动工作簿设为只读
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
End Sub

二、工作簿的操作

1.判断工作簿是否存在

用len()和dir()函数计算工作簿的字符数是否为0，来判断。

LEN函数：返回文本字符串中的字符数,语法格式为Len(text)。返回值数据类型为Long。

Dir函数：是文件名、目录名或文件夹名称，搭配指定的模式或文件属性。返回值数据类型为 String。

    Sub W1()
     If Len(Dir("d:/A.xls")) = 0 Then
       MsgBox "A文件不存在"
       MsgBox "A文件存在"
     End If
   End Sub

2.判断工作簿是否打开

用到Windows(X).Caption，判断工作簿窗口状态，注意区分文件名的大小写。

Sub W2()
Dim X As Integer
For X = 1 To Windows.Count
    If Windows(X).Caption = "A.XLS" Then
        MsgBox "A文件打开了"
        Exit Sub
    End If
End Sub

3.工作簿的新建和保存

Workbooks.Add 新建工作簿

对象变量.SaveAs "文件地址/工作簿名称.xls" 保存工作簿

Sub W3()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.Sheets("sheet1").Range("a1") = "abcd"
wb.SaveAs "D:/B.xls" 
End Sub

4.excel文件打开和关闭

最好使用对象变量来标记工作簿，方便在工作簿之间来回操作。

Workbooks.Open("D:/B.xls")要返回值，所以open后要加括号，如果只是单纯想打开工作簿，可以写成这样Workbooks.Open"D:/B.xls"。

wb.Close False或wb.Close True,这里的true和false是指关闭工作簿时是否保存改变。

 Sub w4()
    Dim wb As Workbook
    Set wb = Workbooks.Open("D:/B.xls")
    MsgBox wb.Sheets("sheet1").Range("a1").Value
    wb.Close False
 End Sub

5.工作簿的保存和备份

对象变量.SaveCopyAs "D:/ABC.xls" 另存为文件到某路径下。

   Sub w5()
      Dim wb As Workbook
      Set wb = ThisWorkbook