'*****　データをダウンロード　***** Sub master_downroad() On Error GoTo Err_Handlar 'データベース接続 Call DBconnect(False) 'SQL文にて、データ取得 strSQL = "SELECT コード FROM [M_金型マスタ] ;" Set adoRs = adoCn.Execute(strSQL) 'SQLで取得したデータがない場合、メッセージボックスにて処理を抜ける If adoRs.BOF = True Then adoRs.EOF = True MsgBox ("対象データがありません") Exit Sub End If 'エクセルのデータを削除 Rows("4:50000").Delete 'SQL文で取得したデータを張り付ける Range("A4").CopyFromRecordset adoRs 'データベースの切断 Call DBcut_off(True) MsgBox ("正常に終了しました") Exit Sub 'エラーハンドラー（上記の処理の途中でエラーが出た場合、以下の処理にて終了） Err_Handlar: 'ロールバック adoCn.RollbackTrans 'データベースの切断 Call DBcut_off(False) 'メッセージボックスに、エラー内容表示 MsgBox (Error$) 'デバッグにエラー内容書込み Debug.Print Error$ 'デバッグにSQL文書込み Debug.Print strSQL End Sub