如何完善现有代码？谢谢

dzsrmyh · 发表于 2023-3-7 18:33

如何完善现有代码？谢谢

gwjkkkkk · 发表于 2023-3-7 18:36

If Dir(ThisWorkbook.Path & "\AAAA.xlsx") = "" Then MsgBox "指定的文件不存在，请检查！", vbExclamation: Exit Sub

dzsrmyh · 发表于 2023-3-7 18:46

gwjkkkkk 发表于 2023-3-7 18:36
If Dir(ThisWorkbook.Path & "\AAAA.xlsx") = "" Then MsgBox "指定的文件不存在，请检查！", vbExclamati ...

非常感谢，可否有两个选择，一个是你的这个，另一个就继续运行下面的代码

gwjkkkkk · 发表于 2023-3-7 18:57

dzsrmyh 发表于 2023-3-7 18:46
非常感谢，可否有两个选择，一个是你的这个，另一个就继续运行下面的代码

If Dir(ThisWorkbook.Path & "\AAAA.xlsx") = "" Then
msg = MsgBox("指定的文件不存在，是否继续！", vbYesNo + vbExclamation)
If msg = vbNo Then Exit Sub
End If

dzsrmyh · 发表于 2023-3-7 19:29

gwjkkkkk 发表于 2023-3-7 18:57
If Dir(ThisWorkbook.Path & "\AAAA.xlsx") = "" Then
msg = MsgBox("指定的文件不存在，是 ...

OK，完美

		自动登录	找回密码
密码			免费注册

[求助] 如何完善现有代码？谢谢