Excel VBA質問箱 IV

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

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


23819 / 76732 ←次へ | 前へ→

【58270】旧バージョンファイルで、問題が発生したため で、エクセルが落ちます
質問  ON  - 08/10/15(水) 19:11 -

引用なし
パスワード
   こんにちは、よろしくお願い致します

stop後step手動実行していくとエラーは出ません

で、
とりあえず、1マクロにまとめて実行してみましたがエラーが出ず行き詰っています
アドバイスあれば、よろしくお願いします

基本動作
マクロ付ファイル検索用ブックAでエクセルファイルを検索し、あった場合は見つかったブックBを開きます
その後Aブックを閉じる処理をしています

環境

1)2000-2000 Aブック起動時エクセル2000 Bブック作成時エクセル2000 
不具合無なっかったハズ 記憶が無い
エクセルが2000 → 2003 に移行後 どちらもwin_xp
時折、問題が発生したため 疑問に思っていた

2)2003-2003 Aブック起動時エクセル2003 Bブック作成時エクセル2003 不具合無し

今回、原因は、下記出ないかと思われる
3)2003-2000時 Aブック起動時エクセル2003 Bブック作成時エクセル2000 時に
問題が発生したため エクセルが落ちます に遭遇しているように思われる


手動で追っていくと
シートモジュール/セルWクリック

ThisWorkbook/Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook/Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)


シートモジュール
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Public Sub test_15()

  If MsgBox("登録済みJOBDTブックを開きますか", vbOKCancel) = vbOK Then
    '(OKボタンが押されたとき)
    Workbooks.Open Filename:=GET_FileSearch_dt
    MsgBox "物件ブックを開きました"
    Application.DisplayAlerts = False
    'このブックを閉じる
    Cancel = True  '20081015
    ThisWorkbook.Close
    
    Exit Sub

  Else
    '(キャンセルボタンが押されたとき)
    Cancel = True
    Exit Sub
  End If

End Sub


ThisWorkbook
'このブックのみで実行 これが無いと他のブックにも表示される
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

  'On Error Resume Next

  Application.CommandBars("CELL").Reset
  
  'On Error GoTo 0

End Sub


開くBブックにも
Private Sub Workbook_Open() 
有り、前処理していることはありますが・・・
これが原因とは考えにくい・・・

わかりにくいと思いますが、よろしくお願い致します
0 hits

【58270】旧バージョンファイルで、問題が発生したため で、エクセルが落ちます ON 08/10/15(水) 19:11 質問

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