| |
▼グリーン さん：
こんにちは
私もこの質問をしたのですが、回答を頂きまして
感激した経験があります。
URLを添付します。
シート単位、ブック単位･･･等４種類が掲載された
いたと思います。
http://excelfactory.cool.ne.jp/ExcelVBATips/vbe/vbe_index.html
一度色々と試してみてください。
私は以下のコードを利用してデータ保存に「ひにち」をつけて
ファイルを作成しています。
'キーワード>>VBProject・VBComponents・CodeModule・DeleteLines 1・Remove
'
'Point: 全てのマクロを削除したはずなのにマクロの警告が出てしまう｡
'
' 'ThisWorkbookの全てのマクロを消去・モジュールを削除します。
Sub Test()
Dim myVBComp
For Each myVBComp In ThisWorkbook.VBProject.VBComponents
If myVBComp.Type = 100 Then
'Documentモジュール(ThisWorkbookやSheet)なら消去
With myVBComp.CodeModule
.DeleteLines 1, .CountOfLines
End With
Else
'Documentモジュール(標準モージュール、クラスモジュール、Formなど)以外なら削除
Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
End If
Next myVBComp
End Sub'
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
