Microsoft Access 掲示板

Microsoft Access 掲示板

エラートラップについて / 1

2 コメント
views
4 フォロー
1
hiroton 2023/10/30 (月) 12:05:37 4cfc4@f966d

どのようなエラーが起きるのか？および、それぞれに対する対応については今一度検討の上、必要であれば再度質問してください

根本的なところは

  'Excelオブジェクトを生成
  Set xls = CreateObject("Excel.Application")
'(中略)
    Set xls = Nothing
    Exit Sub

が問題の原因です。自分（ACCESS）がExcelオブジェクトを作りますよーってしてそのままほったらかしになっている状態ですね

正常に動作したときは

    'Excelを終了
    .Quit

しているので問題が起きません。エラーが発生したとき.Quitしていいかどうかは分からないので、とりあえず

ErrHandler:
    MsgBox Err.Number & Err.Description
    xls.Visible = True 'ユーザーが操作できるようにする
Resume ExitHere

としておけば、質問のような問題は解決します

通報 ...
  • 2
    nokonoko 2023/10/30 (月) 13:20:02 c4a93@54883 >> 1

    hiroton様
    いつもお世話になっております。

     xls.Visible = True 'ユーザーが操作できるようにする

    わかりました。オペレーターが削除できるのが一番わかりやすそうですね。

    ＞どのようなエラーが起きるのか？および、それぞれに対する対応については今一度検討の上、必要であれば再度質問してください

    ありがとうございます。その時はよろしくお願いします。