vba動態創建Access數據庫文件

有網友問到如何在ACCESS窗體上執行命令，在指定文件夾生成一箇ACCESS數據文件。

利用代碼動態創建一箇Access數據庫文件在運用中確實會經常用。因爲有時需要把數據導入到一箇新的Access數據庫中。

示例，在C盤中創建一箇名爲“我的數據庫”的accdb文件。

Public Sub CreateMdbFile()
    Dim myCat As New ADOX.Catalog
    Set myCat = CreateObject("ADOX.Catalog")
    
    myCat.Create "Provider=Microsoft.ACE.OLEDB.12.0;Data Source='C:\我的數據庫.accdb'"
    Set myCat = Nothing

End Sub

註意：

需要引用對象：Microsoft ADO Ext. 2.8 for DDL and Security

創建效果如下圖：