在VBA中可以通過程式設計的方式創建一個新的Access資料庫。
1 引用物件程式庫Alt+F11(打開VBE)→工具→引用:
2 編寫在Excel中創建新的Access資料庫的代碼
編寫代碼,
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
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))"
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-