Question

我想为Excel创建一个VB“另存为”宏，它将使用来自单元格B7，B5和=NOW的数据作为文件名。然后，此新文件名将保存到特定目录中。（例如，用户点击“保存”按钮。File name = (B5)ABCD_(B7)EFGH_=NOW已创建，然后保存到我选择的目录中。

我找到了提供一些单一选项的脚本，但是没有运气找到或使用这些选项创建我自己的脚本。任何帮助将不胜感激。

Answer 1

您需要使用句点或其他内容替换文件名中的无效字符（它们不能包含/或:）。

Sub DateFile()
    Dim str As String
    str = Range("B5").Value & "ABCD_" & Range("B7").Value & "EFGH" & Now()
    str = Replace(str, "/", ".")
    str = Replace(str, ":", ".")
    ActiveWorkbook.SaveAs (str)
End Sub

然后可以将其集成到您的按钮代码中。

Excel另存为按钮宏

1 个答案: