第九课 excel文件操作

1.excel文件和工作簿

excel文件就是excel工作簿
Workbooks 工作簿集合，泛指excel文件或工作簿
Workbooks("A.xls")，名称为A的excel工作簿

 Sub t1()
      Workbooks("A.xls").Sheets(1).Range("a1") = 100
   End Sub

workbooks(2)，按打开顺序，第二个打开的工作簿。

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

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

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

2.工作簿窗口

Windows("A.xls"),A工作簿的窗口，使用windows可以设置工作簿窗口的状态，如是否隐藏等。

     Sub t3()
        Windows("A.xls").Visible = False
     End Sub

     Sub t4()
        Windows(2).Visible = True
     End Sub

3.判断A.Xls文件是否存在

    Sub W1()
     If Len(Dir("d:/A.xls")) = 0 Then   'dir  返回文件的名称,括号里面为文件的路径'
       MsgBox "A文件不存在"
     Else
       MsgBox "A文件存在"
     End If
   End Sub

4 判断A.Xls文件是否打开

    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

5. excel文件新建和保存

  Sub W3()
     Dim wb As Workbook  ‘定义变量为工作簿’
     Set wb = Workbooks.Add   ‘看到set说明变量是一个对象变量’
       wb.Sheets("sheet1").Range("a1") = "abcd"
     wb.SaveAs "D:/B.xls"
  End Sub

6.excel文件打开和关闭

Sub w4()
   Dim wb As Workbook
   Set wb = Workbooks.Open("D:/B.xls")
   MsgBox wb.Sheets("sheet1").Range("a1").Value
   wb.Close False ‘false关闭不保存’
End Sub

7.excel文件保存和备份

   Sub w5()
      Dim wb As Workbook
      Set wb = ThisWorkbook
      wb.Save
      wb.SaveCopyAs "D:/ABC.xls"
   End Sub

8. excel文件复制和删除

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