|
お世話になります。
「EXCELシートにあるデータをACCESSの新しいテーブルに保存する」
ということがしたいのですが上手く行きません。
本やこちらの過去のものをつなぎあわせてやってみたのですが、(名前をつけた)新しいテーブルを作ってというところでエラーになってしまいます。
どうかよろしくお願いします。
*****
Dim ObjAccessApplication As Object
Dim tdf As Object
Set CBk = ThisWorkbook
Set CSht = CBk.Sheets("aaa")
Set ObjAccessApplication = CreateObject("access.application")
ObjAccessApplication.OPENCURRENTDATABASE "H:\ABC\GO.MDB"
On Error Resume Next
ObjAccessApplication.docmd.DELETEOBJECT acTable, "JJ_" & CStr(CSht.Cells (3, 3))
On Error GoTo 0
ObjAccessApplication.docmd.CreateObject acTable, "JJ_" & CStr(CSht.Cells(3, 3))
ObjAccessApplication.docmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "JE_" & CStr(CSht.Cells(3, 3)), "G:\ACC\ツール\DOWNLOAD\JJ_GOO.XLS", True, "data!CSht.Cells(5, 27).CurrentRegion"
*****
|
|