下記コードは
EXCEL画面から実行ボタンを押す→cyusyutu1にて、accdbより所定のテーブルをエクスポート→引き続き、cyusyutu2にて、mdbより所定のテーブルをエクスポート するものですが
cyusyutu1は正常に実行でき、cyusyutu2は､cyusyutu1のテーブル(不在庫返却台帳)が無い とエラーになります｡cyusyutu1は既にACCESSがCLOSEされ、オブジェクトも解放されているのに、cyusyutu2のACCESSSを開いているのに、cyusyutu1のACCESSのテーブル名が無い と言われています。
Private Sub CommandButton1_Click()
cyusyutu1
cyusyutu2
End Sub
Private Sub cyusyutu1()
wk_fl = Application.GetSaveAsFilename("在庫返却台帳ｴｸｽﾎﾟｰﾄ.xls", _
"EXCELファイル,*.xls")
Set appacc = CreateObject("Access.Application")
appacc.OpenCurrentDatabase "\\tdsv007\品質管理\返却品台帳管理\Database1test.accdb"
DoCmd.TransferSpreadsheet acExport, 8, "在庫返却台帳", wk_fl, True, ""
appacc.CloseCurrentDatabase
Set appacc = Nothing
End Sub
Private Sub cyusyutu2()
wk_fl = Application.GetSaveAsFilename("不具合管理台帳ｴｸｽﾎﾟｰﾄ.xls", _
"EXCELファイル,*.xls")
Set appacc = CreateObject("Access.Application")
appacc.OpenCurrentDatabase "\\tdsv007\品質管理\返却品台帳管理\不具合管理台帳.mdb"
DoCmd.TransferSpreadsheet acExport, 8, "不具合管理台帳", wk_fl, True, ""
appacc.CloseCurrentDatabase
Set appacc = Nothing
End Sub
