Question

我有两个文件：

X - 我正在运行宏的文件。 Y - 带有模板的文件，我将其保存到多个位置。

我该怎么做：

Y.SaveAs文件名：=＆＃34; File1.xlsx＆＃34;

Y.SaveAs文件名：=＆＃34; File2.xlsx＆＃34;

Y.SaveAs文件名：=＆＃34; File3.xlsx＆＃34;

我似乎找到的唯一解决方案是在第一次保存后使用ActiveWorkbook，但从我读到的内容是这样做的坏习惯。还有另一种方式吗？

编辑：文件名为：=＆＃34;文件（＆＃34;＆amp; SomeDateString＆amp;＆＃34;）。xlsx＆＃34;

代码：

Dim Y as Workbook
Set Y = "C:\MyFiles\FileTemp.xlsx"
-X Generates Data to Y
Dim datenow as date
dim datestring as string
datenow = now
datestring = Format(datenow, "Short Date")
Application.DisplayAlerts = False
Y.SaveCopyas Filename:="C:\MyData1\Budget("& datestring &").xlsx"
Y.SaveCopyas Filename:="C:\MyData2\Budget("& datestring &").xlsx"
Y.SaveCopyas Filename:="C:\MyData3\Budget("& datestring &").xlsx"
Application.DisplayAlerts = True

Answer 1

将工作簿设置为变量并使用它。

Sub xxxx()
   Dim y as workbook

   Set y  = Workbooks("Workbook name")

   Y.SaveCopyAs Filename:="File(" & SomeDateString & ").xlsx"

   Y.SaveCopyAs Filename:="File(" & SomeDateString & ").xlsx"

   Y.SaveCopyAs Filename:="File(" & SomeDateString & ").xlsx"
End Sub

Answer 2

日期格式使用/ mark来截断我的命名。

在多个位置保存工作簿VBA

2 个答案: