複数の場所にブックを保存する

Question

私は2つのファイルを持っています：

X - 私はどこからマクロを実行していますか？ Y - 複数の場所に保存するテンプレートを含むファイル。

はどのようにして行うことができます。

Y.SaveAsファイル名：= "File1.xlsx"

Y.SaveAsファイル名：= "File2.xlsx"

Y.SaveAsファイル名：=」 File3.xlsx "

私が見つけたと思われる唯一の解決策は、最初の保存後にActiveWorkbookを使用していますが、私が読んだところからそうするのは悪い習慣です。別の方法がありますか？

編集：ファイル名は次のとおりです：= "（& SomeDateString &を"）ファイル "の.xlsx"

コード：

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

日付形式は、私の名前を切り捨てた/マークを使用しています。