vba代码保存和打开文件出错

在VBA中，如果保存和打开文件时出现错误，可能是以下原因之一：

1. 您没有正确地引用文件：在打开或保存文件时，可能需要指定完整的路径、文件名和扩展名等文件信息，确保文件引用是正确的。

2. 您没有正确地处理文件名：在处理文件名时，应该注意避免使用特殊字符或非法字符，可能会导致文件无法打开或保存。

3. 文件处于打开或占用状态：如果文件已经被打开或处于占用状态，则无法打开或保存，需要关闭文件占用或者等待文件被释放。

4. 文件不存在：如果文件不存在，您可能需要创建该文件，或选择正确的文件路径打开文件。

解决方法：

1. 确保文件引用信息正确，例如文件路径、文件名和扩展名等。

2. 在处理文件名时，避免使用特殊字符和非法字符，确保文件名合法。

3. 确保文件未被其他程序打开或占用，如果需要关闭文件占用或者等待文件被释放后再 *** 作文件。

4. 确保文件存在，如果文件不存在则需要创建该文件，或者选择正确的文件路径打开文件。

以上是可能导致VBA保存和打开文件出错的原因和解决方法，希望对您有所帮助。

可以使用dir跟fso

if dir(文件路径)<>"" then 文件存在

fso，如果没有前期绑定，考虑后期绑定，案例如下：

Sub 按钮1_Click()

Application.ScreenUpdating = False

Set fso = CreateObject("Scripting.FileSystemObject")

strfile = Application.InputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)

If fso.fileexists(strfile) Then

MsgBox strfile &" :存在"

Else

MsgBox strfile &" :不存在"

End If

Application.ScreenUpdating = True

End Sub

'filePath为完整的路径包括文件名字

sub

isPath(filePath

as

string)

'如果文件存在(=0是不存在)

if

len(dir(filePath))<>0

then

workbooks.open

filename:=filePath

end

if

end

sub

---