Excel VBA質問箱 IV

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

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


13289 / 13646 ツリー ←次へ | 前へ→

【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 お礼

【6129】マクロを差替える(上書きする)マクロ
質問  kouta  - 03/6/17(火) 12:14 -

引用なし
パスワード
   あるエクセルブックの標準モジュール1に書いてあるマクロを
別のエクセルブックの標準モジュール1に書いてあるものに
自動的(マクロで)に差替えたいのですが、どなたか
ご存知ないでしょうか? よろしくお願いします

【6130】Re:マクロを差替える(上書きする)マクロ
発言  Jaka  - 03/6/17(火) 12:28 -

引用なし
パスワード
   こんにちは。

エクセルのバージョンは....。
因にXPでは、できなくなっているみたいです。

【6131】Re:マクロを差替える(上書きする)マクロ
発言  kouta  - 03/6/17(火) 12:29 -

引用なし
パスワード
   エクセルのバージョンは2000です。
よろしくお願いします。

【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

【6133】Re:マクロを差替える(上書きする)マクロ
お礼  kouta  - 03/6/17(火) 13:32 -

引用なし
パスワード
   jakaさんへ

感謝です。ありがとうございました。
これから試してみます。

 

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