VBA文件操作怎样实现文件增加删除复制功能

  EXCEL VBA 编程中经常需要对文件进行判断、操作，下面向大家介绍几个常用的文件操作代码。

工具/原料

 

• EXCEL

方法/步骤

 

1.  

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

       Sub W1()

        If Len(Dir("d:/A.xls")) = 0 Then

          MsgBox "A文件不存在"

        Else

          MsgBox "A文件存在"

        End If

      End Sub

   
2.  

   2、判断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

   
3.  

   3、 excel文件新建和保存

    

     Sub W3()

        Dim wb As Workbook

        Set wb = Workbooks.Add

          wb.Sheets("sheet1").Range("a1") = "abcd"

        wb.SaveAs "D:/B.xls"

     End Sub

   
4.  

   4 、excel文件打开和关闭

     

    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.  

   5、excel文件保存和备份

      Sub w5()

         Dim wb As Workbook

         Set wb = ThisWorkbook

         wb.Save

         wb.SaveCopyAs "D:/ABC.xls"

      End Sub

   
6.  

   6、excel文件复制和删除

      Sub W6()

         FileCopy "D:/ABC.XLS", "E:/ABCd.XLS"

         Kill "D:/ABC.XLS"

      End Sub

      

   

7.