用excel 直接创建 access 数据库 并输入输出
excel 可以直接创建 access 数据库 并输入输出,这样整个操作都在excel中进行,access完全处于后台
Sub fig()
Set x = CreateObject("adodb.connection")
x.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
On Error Resume Next '如果数据库存在则跳过
Set y = CreateObject("adox.catalog") 'ADO没有提供创建Access数据库的功能,用adox
y.create ("provider=microsoft.jet.oledb.4.0;data source=c:\bb.mdb") '创建access数据库
Sql = "select * into kk in 'c:\bb.mdb' from [sheet1$]" '写入数据库,创建表名kk表,把sheet1内容输出到数据库
Set yy = x.Execute(Sql)
On Error GoTo 0
Sql = "select * from kk in 'c:\bb.mdb' " '读入数据库
Set yy = x.Execute(Sql)
Sheet1.[a10].CopyFromRecordset yy '数据库内容在a10
End Sub
具体Excel请自行学习，我们是access论坛
