Excel 命令按钮答案

【问题标题】：Excel Command ButtonExcel 命令按钮
【发布时间】：2014-04-11 14:13:52
【问题描述】：

我希望在 excel 中编写一个按钮，单击该按钮会将文件保存到特定的驱动器路径和文件名。文件名将等于指定单元格的值。

【问题讨论】：

欢迎来到 Stack Overflow！看起来您希望我们为您编写一些代码。虽然许多用户愿意为陷入困境的编码人员编写代码，但他们通常只有在发布者已经尝试自己解决问题时才会提供帮助。展示这项工作的一个好方法是包含您迄今为止编写的代码以及遇到的任何问题。您提供的详细信息越多，您可能收到的答案就越多。检查FAQ 和How to Ask。

【解决方案1】：

您可以编写一个引用单元格作为名称的宏，并对文件名的其余部分进行硬编码。如果您只是在另存为的位置记录宏并将 Excel 工作表保存到您想要的路径，您应该已经获得了 Excel 编写的大部分代码，但它可能看起来类似于：

Set WS = ActiveSheet
Set MyCellContent = WS.Range("a1")

MyFileName = Range("A1")
WS.Copy
Application.WindowState = xlMaximized
ChDir MyPath

ActiveWorkbook.SaveAs Filename:= _
MyFileName, _
ReadOnlyRecommended:=False, _
CreateBackup:=False

这假定文件名在单元格 A1 中。 MyPath 将替换为您希望保存文档的路径。您必须更改宏的代码以引用 A1 单元格（或将放置文件名的任何单元格）然后，您可以在工作表上添加一个按钮并将新录制的宏分配给该按钮。

【讨论】：

【解决方案2】：

将此宏分配给您的按钮：

Sub dural()
    Dim pathh As String
    Dim filespec As String
    pathh = "C:\TestFolder\"
    filespec = pathh & Sheets("Sheet4").Range("B9").Value
    ActiveWorkbook.SaveAs Filename:=filespec, FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

修改：

路径
工作表名称
小区地址

满足您的需求。

【讨论】：