| |
こんにちは、よろしくお願い致します
stop後step手動実行していくとエラーは出ません
で、
とりあえず、1マクロにまとめて実行してみましたがエラーが出ず行き詰っています
アドバイスあれば、よろしくお願いします
基本動作
マクロ付ファイル検索用ブックＡでエクセルファイルを検索し、あった場合は見つかったブックＢを開きます
その後Ａブックを閉じる処理をしています
環境
1)2000-2000 Ａブック起動時エクセル2000 Ｂブック作成時エクセル2000
不具合無なっかったハズ 記憶が無い
エクセルが2000 → 2003 に移行後 どちらもwin_xp
時折、問題が発生したため 疑問に思っていた
2)2003-2003 Ａブック起動時エクセル2003 Ｂブック作成時エクセル2003 不具合無し
今回、原因は、下記出ないかと思われる
3)2003-2000時 Ａブック起動時エクセル2003 Ｂブック作成時エクセル2000 時に
問題が発生したため エクセルが落ちます に遭遇しているように思われる
手動で追っていくと
シートモジュール/セルＷクリック
↓
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
開くＢブックにも
Private Sub Workbook_Open()
有り、前処理していることはありますが・・・
これが原因とは考えにくい・・・
わかりにくいと思いますが、よろしくお願い致します
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
