Question

vba 新建excel保存在一个固定位置，如果该文件存在，则打开，应该如何编写

Answer 1

把下面的代码加到你要打开的模块中，就可以了
Sub OpenFile(Filename as string)
if ExistFile(Filename) then
Application.Workbooks.Open (Filename)
end if
End Sub
Function ExistFile(Filename As String) As Boolean
On Error GoTo Err1
Dim strName As String
If Filename = "" Then GoTo Err1
If Dir(Filename) <> "" Then
ExistFile = True
Return
Else
ExistFile = False
End If
Exit Function

Err1:
MsgBox "文件名不能为空"
End Function

Answer 2

'filePath为完整的路径包括文件名字
sub isPath(filePath as string)
'如果文件存在(=0是不存在)
if len(dir(filePath))<>0 then
workbooks.open filename:=filePath
end if
end sub