Access/VBA/Excel-新建Access文件-02

Part 1：逻辑过程

1. 引用Microsoft DAO 3.6 Object Library（工具-引用）

2. 定义DAO及地址变量

3. 变量赋值

4. 判断拟创建文件是否存在，不存在则创建（带密码和不带密码的）

5. 应用场景

6. • Access文件的创建，当然可以通过右键创建
   • 当存在大量的Access数据库时，根据实际需要自动创建
   • 或者是快速创建特定需求的数据库（如带密码）

Part 2：代码（创建空白数据库）

1
2
3
4
5
6
7
8
9
10
11
12

Sub 新建Access()
    Dim dbAccess As DAO.Database
    Dim dbAddr1

    dbAddr1 = ThisWorkbook.Path & "\Access数据库.accdb"
    
    '创建数据库
    If Dir(dbAddr1) = "" Then
        Set dbAccess = CreateDatabase(dbAddr1, dbLangChineseSimplified) 
        dbAccess.Close
    End If
End Sub

Part 3：代码（创建带密码数据库）

1. 将创建数据库代码替换如下，新建Access数据库密码为xxx
2. 其中pwd可以理解为password简写
3. 手动打开该数据库时，会弹出输入密码框

1

Set dbAccess = CreateDatabase(dbAddr2, dbLangChineseSimplified & ";pwd=xxx") 

输入密码界面

Part 4：部分代码解读

1. Dir(dbAddr1) = ""判断文件是否存在，若成立表示不存在

2. CreateDatabase(数据库绝对地址,字符串比较规则)，这里采用的是简体中文

3. • 官方解读网址：https://msdn.microsoft.com/en-us/library/office/ff835033.aspx
   • dbLangChineseSimplified意义，官方定义：A string expression that specifies a collating order for creating the database

4. “;pwd=xxx”，表示密码为xxx，注意那个;不能省略

番外：其实也可以通过在硬盘中设置一个空白的Access文件，若需新建文件，直接复制该文件即可