テーブルの他DBへのエクスポート(構造のみ)

前回DoCmd.TransferDatabaseメソッドで
他DBへテーブルをエクスポートする方法を説明しましたが、
第7引数をTrueにすると、テーブル構造のみがエクスポートされます。

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, True

End Sub

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

※エクスポート前にT_サンプルという名前のテーブルがサンプル.accdb内にある場合は
テーブルは上書きされます。