|
大変困っている者です。
宜しくお願いします。
複数のマクロ処理をしているファイル(10数枚のシート)のうち、
4枚のシートをコピーして別ファイルを作り、別名で保存をして
複数の方に添付ファイルで送るという処理をしています。
困っていることは、コピーした4枚のシートのうち1枚目に
フォームでマクロボタン(他の3枚のシートを印刷)を
作っておりますが、そのボタンが思ったように動きません。
現在テンプレートファイルに印刷マクロを書いており、そのファイルに
4枚のシートをコピーしておりますが、以下のコードを使うと
マクロ参照できず、エラーが出てしまいます。
テンプレートファイル→印刷test.xlt
マクロ名→印刷test
Dim myfolder As String, mycode As String
Const mypath As String = "\\test\"
ThisWorkbook.Sheets(Array("aaa", "bbb", "ccc","ddd")).Copy After:= _
Workbooks.Add(Template:=ThisWorkbook.Path & "\印刷test.xlt").Worksheets(1)
'Worksheets(1).Delete
Worksheets("aaa").Shapes("Button 1").OnAction = _
ActiveWorkbook.Name & "!印刷test"
どなたかお分かりになる方がいましたら、アドバイス頂けると助かります。
|
|