在VBA中可以通過編程的方式創建一個新的Access資料庫。

1 引用對象庫

Alt+F11（打開VBE）→工具→引用：

2 編寫在Excel中創建新的Access資料庫的代碼

編寫代碼，首先使用ADOX.Catalog對象創建一個Access資料庫，再使用Create語句在新建資料庫中創建一個工作表，最後向表中添加一個測試數據。

Sub 創建資料庫()

Dim cat As New ADOX.Catalog, rs1 As New ADODB.Recordset

Dim conn As New ADODB.Connection, str1 As String, strSql As String

Dim sDBName As String

Advertisements

sDBName = Application.GetSaveAsFilename("新建資料庫", _

"Access資料庫(*.mdb),*.mdb", 1, "輸入資料庫名稱")

If sDBName = "False" Then Exit Sub

str1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDBName

strSql = "Create Table test(學號 Char(10),姓名 Char(10),性別 Char(2)," & _

" 出生日期 Date,聯繫電話 Char(20),地址 Char(40))"

Advertisements

cat.Create str1 '創建資料庫

conn.Open str1 '打開新建的資料庫

conn.Execute strSql '創建新表

With rs1

.Open "test", conn, adOpenKeyset, adLockPessimistic '創建記錄集

.AddNew '添加記錄

.Fields("學號") = "Y0001" '為各欄位賦值

.Fields("姓名") = "張新"

.Fields("性別") = "男"

.Fields("出生日期") = #1/1/1988#

.Fields("聯繫電話") = "3311778"

.Fields("地址") = "建華巷58號"

.Update

End With

rs1.Close

conn.Close

Set conn = Nothing

End Sub

－End－