Microsoft Access 掲示板

（4-3）メモリーの解放をおこなう処理となります
これでソースコードは終了となります。

          　rs.Close: Set rs = Nothing
            cn.Close: Set cn = Nothing
    
            'Excelファイルを閉じる
            myXlWorkbook.Close
    
            'Excelアプリケーションを終了する
            myXlApp.Quit

            Set myXlWorksheet = Nothing
            Set myXlWorkbook = Nothing
            Set myXlApp = Nothing
            
            MsgBox ("登録件数は" & j & "件です")
            
            
            '取り込み成功のため共通変数はゼロを代入する
            judgement = 0

End Sub

アクセスのテーブルに取り込んだサンプルデータ