Excel VBA 代码 - 如何对创建的文件调用某些操作

Question

我正在用 Excel VBA 编写一段代码，我需要在其中创建一个宏，该宏允许用户单击 ActiveX 按钮，然后将文件保存到指定位置。创建此新文件后，我想编写代码，以便新文件（成功保存在备用指定位置）不存在 ActiveX 命令按钮。此外，一旦从原始文件中单击按钮，我想以某种方式关闭主文件并自动打开新保存的文件。请问有人可以帮忙吗？

到目前为止的代码：

Sub CommandButton1_Click()

    ActiveSheet.Copy
    Dim SaveName As String
    SaveName = ActiveSheet.Range("C1").Text
    With ActiveWorkbook
    .SaveAs "File path Specified" & _
    SaveName & ".xls"
    .Close 0
    End With

End Sub

Answer 1

我的第一个解决方案（取决于您真正需要做什么）如下：

首先你需要这个：

Me.SaveCopyAs "<full_Path>"

在此处查看更多信息：https://msdn.microsoft.com/en-us/library/office/ff835014.aspx

这将使用您想要的任何名称创建文件的副本到指定路径。在你这样做之前，你可以隐藏你的按钮，然后使用另存为副本来保存它并隐藏按钮。

最后，如果您想关闭原件并打开副本，那么您必须为副本指定一个不同的名称。然后打开新文件，关闭原文件。

您的代码应如下所示：

Sub CommandButton1_Click()
    ActiveSheet.Copy
    Dim SaveName As String
    SaveName = ActiveSheet.Range("C1").Text
    With ActiveWorkbook
        .Worksheets("<your_worksheet>").CommandButton1.visible = False
        .SaveCopyAs "File path Specified" & SaveName & ".xls"
    End With
    Workbooks.Open ("File path Specified" & SaveName & ".xls")
    Workbooks("<Original_name.xlsm>").close False
End Sub

另一种解决方案是使用 SaveAs 保存工作簿。在此之前保存原件。隐藏按钮。 saveas 会自动关闭原始文件并自动打开新文件。

您的代码应如下所示：

Sub CommandButton1_Click()
    ActiveSheet.Copy
    Dim SaveName As String
    SaveName = ActiveSheet.Range("C1").Text
    With ActiveWorkbook
        .Save
        .Worksheets("<your_worksheet>").CommandButton1.visible = False
        .SaveAs "File path Specified" & SaveName & ".xls"
    End With
End Sub