Excel另存为buttonmacros

我想为Excel创build一个VB“另存为”macros，它将利用单元格B7 ， B5和=NOW作为文件名。 这个新的文件名将被保存到一个特定的目录中。 （例如用户点击“保存”button， File name = (B5)ABCD_(B7)EFGH_=NOW被创build，然后保存到我select的目录中。

我发现脚本提供了一些单一的选项，但没有运气发现或创build我自己的脚本与这些选项。 任何帮助将不胜感激。

Answer 1

你需要replace文件名中的无效字符（它们不能包含/或：）与句点或别的东西。

 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 

这可以被集成到您的button代码中。