Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


43093 / 76732 ←次へ | 前へ→

【38696】マクロの参照
質問  an  - 06/6/8(木) 16:51 -

引用なし
パスワード
   大変困っている者です。
宜しくお願いします。

複数のマクロ処理をしているファイル(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"

どなたかお分かりになる方がいましたら、アドバイス頂けると助かります。

0 hits

【38696】マクロの参照 an 06/6/8(木) 16:51 質問
【38698】Re:マクロの参照 Jaka 06/6/8(木) 17:11 発言
【38725】Re:マクロの参照 an 06/6/8(木) 23:51 質問
【38706】Re:マクロの参照 ハチ 06/6/8(木) 18:35 発言
【38709】Re:マクロの参照 an 06/6/8(木) 20:31 質問
【38728】Re:マクロの参照 ハチ 06/6/9(金) 0:38 発言
【38741】Re:マクロの参照 an 06/6/9(金) 11:05 質問
【38743】Re:マクロの参照 ハチ 06/6/9(金) 11:18 発言
【38752】Re:マクロの参照 an 06/6/9(金) 12:57 お礼

43093 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free