关于excel vba 动态创建Access 数据库文件的问题

yage123

1. Sub setDatabase()
   
2.     Dim Cat As New ADOX.Catalog
   
3.     Dim myPath As String
   
4.     Dim myTable As String
   
5.     myPath = ThisWorkbook.Path & "\学校管理.mdb"
   
6.     myTable = "学生档案"
   
7.     If Dir(myPath) <> "" Then Kill myPath
   
8.     Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & myPath
   
9.     Cat.ActiveConnection.Execute "CREATE TABLE " & myTable & _
   
10.                 "(学生编号 int,姓名 text(10),住址 text(255)," _
    
11.               & "家庭电话 text(20),特长 text(255·))"
    
12.     Set Cat = Nothing
    
13.     MsgBox "创建数据库成功！" & vbCrLf _
    
14.          & "数据库文件名为：" & myPath & vbCrLf _
    
15.          & "数据表名称为：" & myTable & vbCrLf _
    
16.          & "保存位置：当前工作簿所在的文件夹。", _
    
17.            vbOKOnly + vbInformation, "创建数据库"
    
18. End Sub

复制代码

最后报错（我用的是office2016）


C:/Users/yage/Desktop/2d244924c8735f427d6cd841cfbc95b.png

yage123

运行时错误 -2147221164（80040154）没有注册类

yage123

有人在吗，别沉啊