Excel VBA質問箱 IV

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

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


71530 / 76732 ←次へ | 前へ→

【9695】Re:データベースに新規のテーブルを作るには
回答  ichinose  - 03/12/13(土) 1:15 -

引用なし
パスワード
   ▼どらちゃん さん:
こんばんは。

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

ではないでしょうか?
確認はしていませんが・・・。

1 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 お礼

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