| |
▼WAKO さん、ちゃっぴさん
おはようございます。
>ｼｰﾄ３にﾏｸﾛがはいっているのですが、
>これをﾏｸﾛを使って(OPENする時）、ｼｰﾄ１にｺﾋﾟｰする事はできるでしょうか。
>ｼｰﾄｺﾋﾟｰ以外の方法です。
>どなたか知っていましたら教えて下さい。
'=============================================================
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
だとしたら、はっきりは言えませんが、他の方法も模索された方がよいかもしれませんよ
どんなマクロをコピーしたいのかコード例を提示してみて下さい
（全部なくてもいいので）。
|
|
ichinose
- 04/5/15(土) 8:21 -
