判断工作簿是否存在的代码

jianjuneng38

Sub ifbookfk()
If Len(Dir("d:\xx.xls")) > 0 Then
MsgBox xx & "工作簿存在且已打开"
Workbooks.Open Filename:="d:\xx.xls"
Else
MsgBox xx & "工作簿不在在"
End If
End Sub