VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2006/01/30(Mon) 15:50
投稿者： kishitatsu
ＵＲＬ：
タイトル： まずはＥｘｃｅｌマクロにて削除できました

> こんにちは。
>  
> > ご提示頂いた、サンプルコードにてフォームも削除可能でしょうか？
>
> エクセルのヘルプを見てソースを解読してみてください。
> そうすれば、理解が出来ると思います。
> サンプルを作るにもそのようにしているのですから。
> それと花ちゃんさんが仰っているように実行するのが早いですね。

以下のＥｘｃｅｌマクロにて削除できました。
手段はＶＢ６，Ｅｘｃｅｌマクロ、何れでもよかったものですから
これで解決とさせて頂きます。

みなさんいろいろとご教授、ありがとうございました。


Sub test()
'*************
'* マクロ削除
'*************
'* 2006.01.29 テストok

Dim x As Integer
Dim I As Integer

   Workbooks.Open "C:\A.xls"
   x = ActiveWorkbook.VBProject.VBComponents.Count
   For I = x To 1 Step -1
      If ActiveWorkbook.VBProject.VBComponents(I).Type < 4 Then
         ActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents(I)
      End If
   Next I
   MsgBox "マクロを削除しました。"
   ActiveWorkbook.Save                                      '自身を上書き
   ActiveWorkbook.SaveAs "d:\temp\" & ActiveWorkbook.Name   'コピー
    
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -