Excel VBA質問箱 IV

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

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


71510 / 76738 ←次へ | 前へ→

【9721】Re:エラーになるところは・・・
発言  ichinose  - 03/12/15(月) 16:20 -

引用なし
パスワード
   どらちゃん さん、こうちゃん、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

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

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