Excel VBA質問箱 IV

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

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


75048 / 76732 ←次へ | 前へ→

【6132】Re:マクロを差替える(上書きする)マクロ
回答  Jaka  - 03/6/17(火) 13:24 -

引用なし
パスワード
   このコードが書いてあるModule1のコードを挿入していますので、下記コードはModule2にでも書いてください。
使用状況に応じて、適当にカスタマイズしてください。


Sub マクロ削除挿入()
  Dim 変更対象Book As Workbook, MCode As String
  With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
     MCode = .Lines(1, .Countoflines)
  End With
  Application.ScreenUpdating = False
  Set 変更対象Book = Workbooks.Open(ThisWorkbook.Path & "\" & "マクロ変更対象ブック.xls")
  With 変更対象Book.VBProject.VBComponents("Module1").CodeModule
    .deletelines 1, .Countoflines
    .InsertLines 1, MCode
  End With
  変更対象Book.Close (True)
  Application.ScreenUpdating = True
  Set 変更対象Book = Nothing
  End
End Sub

1 hits

【6129】マクロを差替える(上書きする)マクロ kouta 03/6/17(火) 12:14 質問
【6130】Re:マクロを差替える(上書きする)マクロ Jaka 03/6/17(火) 12:28 発言
【6131】Re:マクロを差替える(上書きする)マクロ kouta 03/6/17(火) 12:29 発言
【6132】Re:マクロを差替える(上書きする)マクロ Jaka 03/6/17(火) 13:24 回答
【6133】Re:マクロを差替える(上書きする)マクロ kouta 03/6/17(火) 13:32 お礼

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