第1种:不管工作簿是否已经打开,直接打开
- 现在新版的office已经修改为,允许重新打开已经打开的EXCEL文件
- 如果文件已经打开,且未被修改,直接重新再打开1次
- 如果文件已经打开,但是已经被修改,会弹提示,确认后重新再打开
Sub williamDing31()
Dim wb1 As Object
Set wb1 = Workbooks.Open("C:\Users\Administrator\Desktop\test1.xlsm")
Debug.Print wb1.Worksheets("sheet1").Cells(5, 5)
End Sub
第2种:比较稳妥的方案---错误捕捉的思路
- 先直接假设文件已经打开
- 如果没打开,错误代码9,则补充打开
Sub williamDing30()
Dim wb1 As Object
On Error Resume Next
Set wb1 = Workbooks("C:\Users\Administrator\Desktop\test1.xlsm")
If Err.Number = 9 Then
Set wb1 = Workbooks.Open("C:\Users\Administrator\Desktop\test1.xlsm")
End If
Debug.Print wb1.Worksheets("sheet1").Cells(5, 5)
End Sub
on error resume next
myFileName = ”sales.xlsx"
stPath = ThisWorkbook.Path
stFullName = stPath & "\" & myFileName
Set
x = Workbooks.Open(Filename:=stFullName)
if err.number=1004 then
……‘处理代码
end if