作者：乔山办公网日期：
返回目录：excel表格制作
可以使用方方格子工具
如图所示
sub test()
Set cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("Adodb.Recordset")strCn= "Provider=sqloledb;Server=R9HDET7;Database=dbname;Uid=username;Pwd=password"
cnn.Open strCn
SQL = ""
cnn.Open strCn '与数据库建立连接，如来果成功，返回连接对象cn
rs.Open SQL , cn '执行源strSQL所含的SQL命令，结果保存在rs记录集知对象中
cnn.Close
Set cnn = Nothing
end sub
请参考
连接数据库后，通过写SQL语句实现增删改查道
不是很明白你的意思 你是想点击一下按钮
vba自动连接数据库 然后用excel里的表的创建信息在数据库创建表是吗？