VBA：【DAO】Accessファイルの新規作成
ここでは単純にAccessファイルだけを新規作成する方法を紹介します。
◆新規Accessファイルの作成方法
以下を実行すると、「newFilePath」で指定した場所に、指定したファイル名のファイルが作成されます。
もし同名のファイルがある場合はエラーになるので、事前にファイルの有無をチェックして、不要なら削除するなどする必要があります。
※DAOを利用しているので、ライブラリの「Microsoft DAO x.x Object Libirary」を有効にしておく必要があります。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
Private Sub Acessファイル_新規作成_Click() Dim newFilePath As String newFilePath = "C:\Users\VBA\Newファイル.accdb" '//同名ファイルがある場合は削除' If Dir(newFilePath) <> "" Then Kill newFilePath End If '//Accessファイルの作成' '//「CreateDatabase」メソッドを実行するには「Microsoft DAO x.x Object Libirary」を有効にする。' CreateDatabase newFilePath, dbLangJapanese MsgBox "作成完了" End Sub |
◆テーブルのエクスポート方法
以下の記事のテーブルのエクスポートと組み合わせることで、新規に作成したAccessファイルに必要なテーブルをエクスポートすることができます。
