【VBA】打开关闭工作簿等

打开关闭工作簿等

Sub 打开工作簿()
     Dim sFilePath As String
     sFilePath = "D:A.xls"
     Dim oWB As Workbook
     Set oWB = Excel.Workbooks.Open(sFilePath, ReadOnly:=False, writerespassword:="123")
     delay (5)
     If Not oWB.ReadOnly Then
     
         oWB.Close SaveChanges:=True
     Else
         MsgBox "文件只读,无法修改！"
         oWB.Close SaveChanges:=False
     End If
     Set oWB = Nothing
End Sub