Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


71534 / 76732 ←次へ | 前へ→

【9691】データベースに新規のテーブルを作るには
質問  どらちゃん  - 03/12/12(金) 18:49 -

引用なし
パスワード
   お世話になります。

「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"

*****
0 hits

【9691】データベースに新規のテーブルを作るには どらちゃん 03/12/12(金) 18:49 質問
【9695】Re:データベースに新規のテーブルを作るには ichinose 03/12/13(土) 1:15 回答
【9706】Re:エラーになるところは・・・ どらちゃん 03/12/15(月) 9:47 質問
【9710】Re:エラーになるところは・・・ こうちゃん 03/12/15(月) 11:58 回答
【9715】Re:エラーになるところは・・・ Kein 03/12/15(月) 13:49 回答
【9731】Re:エラーになるところは・・・ Kein 03/12/16(火) 0:43 発言
【9721】Re:エラーになるところは・・・ ichinose 03/12/15(月) 16:20 発言
【9772】Re:なんとか出来ました。 どらちゃん 03/12/16(火) 16:13 お礼

71534 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free