|
どらちゃん さん、こうちゃん、Keinさん、こんにちは。
>ご回答ありがとうございます。
>が、エラーになるところはその手前の新規のテーブルを作るところなんです。
>↓
>ObjAccessApplication.docmd.CreateObject acTable, "JJ_" & CStr(CSht.Cells(3, 3))
すみません、全然気が付きませんでした。
こうちゃんのお言葉とKeinさんのコードで解決されると思いますが、
参照設定「Microsoft Access 9.0 Object Library」のみでも可能ですので
一応、記述しておきます。
'=========================================================================
Sub test_test()
Dim ObjAccessApplication As Access.Application
Set CBk = ThisWorkbook
Set ObjAccessApplication = CreateObject("access.application")
With ObjAccessApplication
.OPENCURRENTDATABASE ("H:\ABC\GO.MDB")
On Error Resume Next
sql_str = "drop table " & Cells(1, 1) 'cells(1,1)にテーブル名の例
.DoCmd.RunSQL sql_str
On Error GoTo 0
sql_str = "CREATE TABLE " & Cells(1, 1) & _
" (項目1 integer CONSTRAINT tbl1 PRIMARY KEY,項目2 char,項目3 char);"
' フィールドの構成は、項目1 整数 項目2、項目3が文字列
.DoCmd.RunSQL sql_str
.Quit
End With
End Sub
|
|