如题所述
假设要打开文件“C:\Sample\Book2.xlsx”,存在则打开,否则提示文件不存在。VBA代码如下:
If Dir("C:\Sample\Book2.xlsx") <> "" Then
Workbooks.Open "C:\Sample\Book2.xlsx"
Else
MsgBox "C:\Sample\Book2.xlsx 不存在!"
End If
If Dir("C:\Sample\Book2.xlsx") <> "" Then
Workbooks.Open "C:\Sample\Book2.xlsx"
Else
MsgBox "C:\Sample\Book2.xlsx 不存在!"
End If
温馨提示:答案为网友推荐,仅供参考
第1个回答 2012-11-22
打开前先判断
if len(dir("路径"))="" then
if len(dir("路径"))="" then