Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

20654 / 76736

←次へ　｜　前へ→


	【61495】Re:ThisWookbook内に書いたプログラムのコピー方法

Jaka - 09/5/13(水) 16:03 -


	引用なし

	パスワード

>ThisWookbook内に書いたプログラムを自動でコピーする方法って
名前を付けて保存しても、コードは残っているだろうに、必要性がよく解りません。
手動でコピペでもすればと考えてしまいます。
コピーって言うより１行づつ抜き出す方法しか解りません。
適当な所に書き出してください。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
　 MsgBox "名前を付けて保存"　'実行したのかキャンセルしたのかまではわからない。
End If
End Sub

With ThisWorkbook.VBProject.VBComponents("Thisworkbook").CodeModule
　 For i = 1 To .CountOfLines
　　　 MsgBox i & "行目 = " & .Lines(i, 1)
　 Next
End With

0 hits

▼

【61491】ThisWookbook内に書いたプログラムのコピー方法 TOKU 09/5/13(水) 13:29