'1 判斷A.Xls檔案是否存在
    Sub W1()
     If Len(Dir("D:\A.xls")) = 0 Then
       MsgBox "A檔案不存在"
     Else
       MsgBox "A檔案存在"
     End If
   End Sub

'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 excel檔案新建和儲存

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

'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 excel檔案儲存和備份
   Sub w5()
      Dim wb As Workbook
      Set wb = ThisWorkbook
      wb.Save
      wb.SaveCopyAs "D:\ABC.xls"
   End Sub

'6 excel檔案複製和刪除
   Sub W6()
      FileCopy "D:\B.xls", "D:\ABCd.xls"
      Kill "D:\ABC.xls"
 

      MsgBox ("刪除完成")
   End Sub

VBA開啟已有的Word文件：

方法一：

Public Sub OpenWord ()
    Dim myFile As String
    Dim docApp As Word.Application
    '指定要開啟的Word文件
    myFile = ThisWorkbook.Path & "\VBA開啟Word文件.docx"
    Set docApp = New Word.Application
    With docApp
        .Documents.Open myFile
        .Visible = True
    End With
    Set docApp = Nothing
End Sub

方法二：

Public Sub OpenWord2()
    Dim myFile As String
    Dim docApp As Object
    '指定要開啟的Word文件
    myFile = ThisWorkbook.Path & "\VBA開啟Word文件.docx"
    Set docApp = CreateObject("Word.Application")
    With docApp
        .Documents.Open myFile
        .Visible = True
    End With
    Set docApp = Nothing
End Sub