|
▼どらちゃん さん:
こんばんは。
>「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"
原因は、
>"data!CSht.Cells(5, 27).CurrentRegion"
だと思います。
"data"って、いきなり出てきてますよね?
CSht.name & "!" & CSht.Cells(5, 27).CurrentRegion.address
ではないでしょうか?
確認はしていませんが・・・。
|
|