Close

テーブルの他DBへのエクスポート

AccessVBAでテーブルの他DBへのエクスポートを行います。
DoCmd.TransferDatabaseメソッドを使います。

以下はカレントプロジェクト内のT_サンプルテーブルを
カレントプロジェクトのパスと同じところにある
ACCDBファイルにエクスポートするコードです。

Sub ProcTableTransfer()
    Dim strPath As String
    Dim strTblName As String
    
    strPath = CurrentProject.Path & "\サンプル.accdb"
    strTblName = "T_サンプル"
    
    DoCmd.TransferDatabase acExport, "Microsoft Access", _
            strPath, acTable, strTblName, strTblName

End Sub

第1引数はacExpor(エクスポート)とします。

第2引数はエクスポートするDBの種類です。
ここでは、Microsoft Accessとしています。

第3引数はエクスポート先のフルパス(拡張子含む)を入れます。

第4引数はエクスポートするオブジェクトの種類、
第5引数はエクスポートを行うオブジェクト名を入れます。

第6引数はエクスポート先のオブジェクト名になります。

上のコードを実行すると、
カレントプロジェクトと同じディレクトリにあるサンプル.accdbに
T_サンプルテーブルが作成されます。

 

Share on facebook
Share on twitter
Share on linkedin