用VBA在excel上加个按钮，将当前工作薄另存到指定目录。

Question

如题。
想在excel表格，右键菜单添加一个选项。右键单击后。将当前表格另存到D:\数据表
文件名以表格的 E5 单元格
命名。
并且保存以后自动清除当前表格已经填写的数值，弹出一个保存成功对话框。

点击确定，重新填写。

因为不懂VBA希望各位大神，帮忙一下。谢谢
excel表格中添加个右键菜单 “保存”
单击后将 当前表格另存到 D:\数据表 文件夹中

并且 表格名称以 E5单元格中的内容命名。
保存成功弹个提示框。

并清除当前表单已填写数值。
附件原始表格地址:
http://pan.baidu.com/s/1dDyNHQT
大神帮忙看看。

Answer 1

Sub Macro1()
'
    Application.DisplayAlerts = False
    Application.ScreenUpdating = False
    With Workbooks.Open(Sheets(1).Range("b2").Value)
    SavePath = Sheets(1).Range("b3").Value & .Sheets(1).Range("E5").Value
    .SaveAs Filename:=SavePath & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    .Close
    End With
    
    With Workbooks.Open(Sheets(1).Range("b2").Value)
    .Sheets(1).Cells.Clear
    End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    MsgBox "Done"
End Sub

请参考,已修改,在Excel中写上两个路径即可，注意路径格式填写和修改就行

追问

大神，你再看看。我重新上传的原始表格。
http://pan.baidu.com/s/1dDI05aD
右键控件 运行

追答

附件是一个VBA的功能，可以直接单独控制你的原始表格另存为另外的excel的。。。你只要修改对应的路径就行了