Excel VBA質問箱 IV

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

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


13843 / 76732 ←次へ | 前へ→

【68391】Re:シートをコピーした後、マクロを削除する方法について。
質問  橋本栄香  - 11/3/2(水) 14:14 -

引用なし
パスワード
   どのようにうまくいかないかの記載が漏れておりました、申し訳ありません。


以下のように記載し、コピーされた後名前をつけて保存されるのですが、シート2のコードは消えておらず残ったままになっています。


Sub Macroコピー()


Dim new_book As Workbook
Dim vbc As Object, zu As Object

   Worksheets.Select
   Worksheets.Copy


  Set new_book = ActiveWorkbook

  For Each vbc In new_book.VBProject.VBComponents

   If vbc.Type = 100 And vbc.properties("name") = " シート2 " Then

     With vbc.CodeModule

      .DeleteLines 1, .CountOfLines

      End With

     End If

   Next

  Application.ScreenUpdating = True


  ActiveWorkbook.SaveAs Filename:= _
    ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(1).Range("G3") & "-" & ThisWorkbook.Worksheets(1).Range("J3") & _
    ThisWorkbook.Worksheets(1).Range("Q3") & ".xls" _
    , FileFormat:=xlNormal, Password:="", WriteResPassword:="" _
    , ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.Close


End Sub
2 hits

【68390】シートをコピーした後、マクロを削除する方法について。 橋本栄香 11/3/2(水) 14:10 質問
【68391】Re:シートをコピーした後、マクロを削除す... 橋本栄香 11/3/2(水) 14:14 質問
【68392】Re:シートをコピーした後、マクロを削除す... Jaka 11/3/2(水) 15:11 発言
【68393】Re:シートをコピーした後、マクロを削除す... 橋本栄香 11/3/2(水) 15:29 お礼

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