2007cad多个文件窗口上部排列_VBA学习笔记7:Excel文件操作

学习资源：《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文件不存在"
     Else
       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
Next
    
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
      wb.Save
      wb.SaveCopyAs "D:/ABC.xls"
   End Sub

6.excel文件复制和删除

FileCopy "D:/ABC.XLS", "E:/ABCd.XLS" 把D:/ABC.XLS复制到E盘，并命名为ABC.XLS。

Kill "D:/ABC.XLS" 删除文件。

   Sub W6()
      FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"
      Kill "D:/ABC.XLS"
   End Sub

三、补充笔记

看到有些程序是这样定义变量的：

Dim i&, j&, max&, maxi&, maxj&

这是用类型说明符声明变量的方式，&是Long的类型说明符，是dim ...as ...的简化写法

常用类型说明符：

% integer & long ! single

# Double $ string @ currency