美文网首页
第九课 excel文件操作

第九课 excel文件操作

作者: 流星雨的梦 | 来源:发表于2018-01-17 18:13 被阅读16次

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
  1. 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
  1. excel文件复制和删除
   Sub W6()
      FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"
      Kill "D:/ABC.XLS"
   End Sub

相关文章

网友评论

      本文标题:第九课 excel文件操作

      本文链接:https://www.haomeiwen.com/subject/ttcwwxtx.html