|
こんにちは。かみちゃん です。
>同じディレクトリ内のデータベースdb1.mdb 内の table1を 同じディレクトリ内のデータベースdb2.mdbへtable1の名前でエキスポートしたい
私は、よく似たことを以下のような感じでしています。
Sub Sample1()
Dim dbCon As ADODB.Connection ' MDB
Dim dbRes As ADODB.Recordset ' MDB
Dim strMDBFileName1 As String
Dim strMDBFileName2 As String
Dim strSQL As String
strMDBFileName1 = ThisWorkbook.Path & "\db1.mdb" 'エクスポート元MDB
strMDBFileName2 = ThisWorkbook.Path & "\db2.mdb" 'エクスポート先MDB
Set dbCon = New ADODB.Connection
'エクスポート元MDBを開く
dbCon.Open cnsConnect1 & strMDBFileName1 & ";"
'テーブル作成のSQL文の生成
strSQL = ""
strSQL = strSQL & " SELECT *"
strSQL = strSQL & " INTO [;Database=" & strMDBFileName2 & "].[Table1]" 'エクスポート先
strSQL = strSQL & " FROM Table1" 'エクスポート元
'エクスポート先MDBへ(テーブル作成クエリ)
dbCon.Execute strSQL
dbCon.Close
Set dbCon = Nothing
MsgBox "エクスポートしました"
End Sub
インデックス等は、考慮していません。
|
|