excel vba 关于打开一个excel文件的问题

来源：百度知道 编辑：UC知道 时间：2024/06/21 19:08:36
我用excel vba做了一个按钮。输入一个文件的路径，按下按钮打开该文件并复制该表格的内容。
现在遇到一个问题，除非每次输入的文件路径完全正确，否则vba就会报错。请问能不能加几行程序，使得程序先判断文件路径是否正确，如不正确，提示输入正确路径，如果正确，再打开相应文件。
请高手指教。多谢了

Dim f As String
f = "d:\book2.xls"
If Dir(f) = "" Then
MsgBox "文件不存在"
Exit Sub
Else: GoTo fileexist
End If

fileexist:
'以下是你的代码

Sub abc()
Dim f As String
f = InputBox("请输入文件名", "请输入文件名", "d:\abc.xls")
If Dir(f) = "" Then
MsgBox "文件不存在"
Exit Sub
Else: GoTo aaa
End If
aaa:

End Sub

其实你这样做也比较麻烦，还要打开那个文件去复制，不打开那个文件，用ADO去访问不是更好吗？

hj