如何用vba创建空白的access数据库文件？

用vba创建access数据库文件，需要用到ADOX.Catalog对象。

ADOX.Catalog是专门用来遍历数据库中的表、索引、键值、列、视图、以及属性的对象。

对于一个已经存在的数据库文件可以使用ADOX.Catalog对象获取它的表、索引、键值、列、视图、以及属性等。

如果想新建一个空白的数据库文件，也可以使用ADOX.Catalog对象创建。

创建代码如下：

Sub QQ1722187970()
 Dim objCatalog
 Set objCatalog = VBA.CreateObject("ADOX.Catalog")
 Dim sConStr As String
 Dim sPath As String
 sPath = Excel.ThisWorkbook.Path
 With objCatalog
    sConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & "\test.mdb"
    sConStr1 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sPath & "\test.accdb"
    '生成access 2003文件
    .Create sConStr
    '生成access 2007以上文件
    .Create sConStr1
 End With
End Sub

以上代码可以在本工作簿同路径下创建一个test access数据库文件。