定义workbook
Workbooks("Cogs.xls").
Dim path
Dim name
path = Application.ThisWorkbook.path '当前工作簿路径
MsgBox path
If name <> "book1" Then Exit Sub
name = Application.InputBox(prompt:="方案名称为：")
' On Error GoTo line
Application.ActiveWorkbook.SaveAs Filename:=path & "\Schemes\" & name, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
MsgBox "上传成功"
Exit Sub
line:
MsgBox "上传失败"
Exit Sub
用文件名判断
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024