Excel VBA質問箱 IV

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

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


20650 / 76732 ←次へ | 前へ→

【61495】Re:ThisWookbook内に書いたプログラムのコピー方法
発言  Jaka  - 09/5/13(水) 16:03 -

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

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
2 hits

【61491】ThisWookbook内に書いたプログラムのコピー方法 TOKU 09/5/13(水) 13:29 質問
【61495】Re:ThisWookbook内に書いたプログラムのコ... Jaka 09/5/13(水) 16:03 発言
【61499】Re:ThisWookbook内に書いたプログラムのコ... TOKU 09/5/13(水) 21:01 発言
【61500】Re:ThisWookbook内に書いたプログラムのコ... つん 09/5/13(水) 21:16 発言
【61501】Re:ThisWookbook内に書いたプログラムのコ... TOKU 09/5/13(水) 21:32 発言
【61516】Re:ThisWookbook内に書いたプログラムのコ... Jaka 09/5/14(木) 10:30 発言

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