vba動態(tài)創(chuàng)建Access數(shù)據(jù)庫文件

有網(wǎng)友問到如何在ACCESS窗體上執(zhí)行命令，在指定文件夾生成一箇ACCESS數(shù)據(jù)文件。

利用代碼動態(tài)創(chuàng)建一箇Access數(shù)據(jù)庫文件在運(yùn)用中確實(shí)會經(jīng)常用。因爲(wèi)有時需要把數(shù)據(jù)導(dǎo)入到一箇新的Access數(shù)據(jù)庫中。

示例，在C盤中創(chuàng)建一箇名爲(wèi)“我的數(shù)據(jù)庫”的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:\我的數(shù)據(jù)庫.accdb'"
    Set myCat = Nothing

End Sub

註意：

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

創(chuàng)建效果如下圖：