|
▼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
だとしたら、はっきりは言えませんが、他の方法も模索された方がよいかもしれませんよ
どんなマクロをコピーしたいのかコード例を提示してみて下さい
(全部なくてもいいので)。
|
|