VBA:新規作成したブックにVBAをコピー

Question

現在のコード

Sub 今月分作成()

If MsgBox("今月分作成しますか？", vbQuestion + vbOKCancel) = vbCancel Then
   MsgBox "終了します。"
   Exit Sub
End If

   Worksheets(Array("")).Move Before:=Worksheets(3)
    
     Dim LOOP_CNT    As Long
     Dim PAGE_CNT    As Long
     
     PAGE_CNT = Worksheets("").Index + 2
     Application.DisplayAlerts = False 
     For LOOP_CNT = Worksheets.Count To PAGE_CNT Step -1
         Worksheets(LOOP_CNT).Delete
     Next
     Application.DisplayAlerts = True 
     
     Worksheets(5).Move Before:=Worksheets(3)
     
      Dim Sname As String
      Sname = Now
      ActiveSheet.Name = Format(Sname, "m.d")
     
      Dim Nengetu As Date
      Nengetu = Now
      Range("A2").Select
      ActiveCell.FormulaR1C1 = Format(Nengetu, "ggge年　m月　d日(aaa)")

      Dim tomorrow As Date
      tomorrow = Now + 1
      Range("G2").Select
      ActiveCell.FormulaR1C1 = Format(tomorrow, "ggge年　m月　d日(aaa)")

      Range("G4:L43").Copy Range("A4:F43")
      
      Range("O4:O30").ClearContents

      Worksheets.Copy
      b = "" '
      c = Format(Now(), "(yyyy年mm月)")
      d = b & c & ".xlsm"
      e = ThisWorkbook.Path & "\" & d
      ActiveWorkbook.SaveAs Filename:=e, FileFormat:=xlOpenXMLWorkbookMacroEnabled
      
      Sheets(3).Activate
      Range("A1").Select
      
      Application.DisplayAlerts = False 
      ThisWorkbook.Close
    
End Sub

```現在ブックにVBAをいくつか標準モジュールでそのブックに保存しています。
そのブックに、新しくブックを作成して現在のブックの内容をコピーするVBAを挿入しています。新規作成したブックでVBAを起動すると現在のブックが開かれてしまいます。また、個人用マクロブックに保存していると他の方が使えないのでVBAをコピーする方法で考えたいです。何かいい方法があれば教えてください。

Comments

[jinoji]

新規作成したブックでVBAを起動する、というのは、
ブックを新規作成する処理の中でコマンドボタンみたいなものも作っていて、
そのボタンを押したときに呼び出される処理が、
新規ブック側のコードではなく元のブックの方になっているということでしょうか。

[321Kurumins]

その通りです。コマンドボタンを押したときに元のブックが呼び出されてしまいます。

[jinoji]

新規ブック.Worksheets(1).Buttons(1).OnAction ="myFunction"
みたいな感じでいかがでしょうか。

[321Kurumins]

質問に現在のコードを入れたんですがどこにそのコードを入れたらいいんでしょうか？
素人なのでお手数ですが教えてください。
そのコードの意味もよくわかってないです。

[jinoji]

シートごとコピーするのであれば、
コードを標準モジュールではなくてシートモジュールに書くのがよいかも。
そうすればコードも一緒にコピーされるはず。

Answer 1

VBAをコピーする方法とのことですが
新規に作ってVBAの標準モジュールコピーはしたことがないのでわからないですが大変そうなので

私がするなら、マクロファイルの雛型を作って、それをコピーして
それからプログラムで手を加える。という手法でやりますね。

Answer 2

ChangeLinkでリンクを張り直す必要がありそうですね。
こちらのページが参考になると思います。
Excel bookの外部リンクを自リンクにはりなおす方法 - らくろぐ

Comments

[jinoji]

まずは、具体的にコードのどの部分が動いた時に元のブックが開いてしまうのか確認するとよいと思います。

[jinoji]

すみません、
書く場所を間違えました。質問者へのコメントのつもりでした。

[321Kurumins]

VBAの保存先が現在のブックとなっています。なのでコードというよりはVBAを使った時点で
現在のブックが開かれてしまいます。