Excel VBA質問箱 IV

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

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


29014 / 76732 ←次へ | 前へ→

【53007】モジュール削除後、エクセルが落ちる
質問  ウーロン  - 07/12/11(火) 16:39 -

引用なし
パスワード
   こんにちは
モジュールに不具合があり、入れ換えしたいのですが
下記コードでは ←ココで落ちる で
"0x6501d9d4" の命令が "0x00000068" のメモリを参照しました。メモリが "read" になることはできませんでした。
プログラムを終了するには [OK] をクリックしてください
で落ちてしまいます

どう修正すればよいでしょうか


あわせて
修正ブックは、特定フォルダーに、多数存在します
コードが完成したらループで処理したいと考えていますが
注意点等ありましたらあわせて、アドバイス頂けるとうれしいです。

よろしくお願いいたします。


環境
試行環境 win2k エクセル2k
運用環境 上記 + winxp エクセル203

'エクセル2003での利用時は、ツール/マクロ/セキュリティ
'  /VBプロジェクトへのアクセスを信頼するにチェック
'Visual Basic for Application Extensiblityの参照設定


Sub Del_All_TGBKMdl()
 Dim myVBComp
 Dim W_Book As Workbook
 
 Dim TG_BK As String

 TG_BK = "C:\CP\2007\200712\Book1.xls" 
 
 On Error GoTo Err1  

  Set W_Book = Workbooks(TG)   'TG_BKが開いているとき
  
  For Each myVBComp In W_Book.VBProject.VBComponents
  
    If myVBComp.Type = 100 Then
    'Documentモジュール(ThisWorkbokやSheet)なら消去
     With myVBComp.codemodule
       .DeleteLines 1, .CountOfLines
     End With
     
    Else
    'Documentモジュール(標準モージュール、クラスモジュール、Formなど)以外なら削除
      'Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
      W_Book.Application.VBE.ActiveVBProject.VBComponents.Remove myVBComp
      
    End If
    
  Next myVBComp
  
  W_Book.Save  '←ココで落ちる
  
  Set W_Book = Nothing      
  
  Exit Sub
  
Err1:

  MsgBox Err().Number & vbLf & Err().Description
  Resume
End Sub

コード上でなくても、手動保存しようとすると、同様に落ちてしまう

0 hits

【53007】モジュール削除後、エクセルが落ちる ウーロン 07/12/11(火) 16:39 質問
【53008】Re:モジュール削除後、エクセルが落ちる ウーロン 07/12/11(火) 17:01 発言
【53010】Re:モジュール削除後、エクセルが落ちる neptune 07/12/11(火) 17:54 発言
【53011】Re:モジュール削除後、エクセルが落ちる ウーロン 07/12/11(火) 18:27 発言
【53015】Re:モジュール削除後、エクセルが落ちる ichinose 07/12/11(火) 22:32 発言
【53021】Re:モジュール削除後、エクセルが落ちる ウーロン 07/12/12(水) 10:24 お礼

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