Excel VBA質問箱 IV

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

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


67438 / 76732 ←次へ | 前へ→

【13850】Re:マクロの内容をコピーについて
発言  ichinose  - 04/5/15(土) 8:21 -

引用なし
パスワード
   ▼WAKO さん、ちゃっぴさん
おはようございます。

>シート3にマクロがはいっているのですが、
>これをマクロを使って(OPENする時)、シート1にコピーする事はできるでしょうか。
>シートコピー以外の方法です。
>どなたか知っていましたら教えて下さい。
'=============================================================
Sub main()
  Call copy_code(ThisWorkbook, "sheet3", "sheet1")
End Sub
'==================================================================
Sub copy_code(bk As Workbook, mdlnm1 As String, mdlnm2 As String)
'対象ブックのコードモジュール内容を他のコードモジュールにコピーする
'bk : 操作対象ブック
' mdlnm1  コピー元コンポーネント名
' mdlnm2  コピー先コンポーネント名
  Dim mdlcode As String
  With bk.VBProject.VBComponents(mdlnm1).CodeModule
   mdlcode = .Lines(1, .CountOfLines)
   End With
  With bk.VBProject.VBComponents(mdlnm2).CodeModule
   .DeleteLines 1, .CountOfLines
   .InsertLines 1, mdlcode
   End With
End Sub

上記のコードでそれらしいことは出来ると思いますが、

↓のご質問と関連していますよね?

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=13840;id=excel

だとしたら、はっきりは言えませんが、他の方法も模索された方がよいかもしれませんよ

どんなマクロをコピーしたいのかコード例を提示してみて下さい
(全部なくてもいいので)。
0 hits

【13842】マクロの内容をコピーについて WAKO 04/5/14(金) 23:05 質問
【13844】Re:マクロの内容をコピーについて ちゃっぴ 04/5/15(土) 0:46 回答
【13846】Re:マクロの内容をコピーについて ちゃっぴ 04/5/15(土) 2:32 発言
【13866】Re:マクロの内容をコピーについて WAKO 04/5/15(土) 14:21 お礼
【13850】Re:マクロの内容をコピーについて ichinose 04/5/15(土) 8:21 発言
【13857】Re:マクロの内容をコピーについて WAKO 04/5/15(土) 10:38 回答
【13859】Re:マクロの内容をコピーについて ちゃっぴ 04/5/15(土) 12:03 回答

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