只说链接部分
Set cnn = CreateObject("adodb.connection")
strcn = "Provider=SQLOLEDB.1User ID=saPassword=sa1234Initial Catalog=paracheckDataSource=ZN" 'ZN为数据库名称
cnn.Open strcn '链接数据库,这里已经成功连接数据库了
st = "SELECT * INTO [" &s &"] FROM OPENROWSET('Microsoft.ACE.OLEDB.12.0','Excel 12.0HDR=yesDATABASE=" &[Sheet7].Range("b" &i) &"','select * from [sheet1$]')" '导入excel到sql2005数据库并新建数据库表名为([Sheet7].Range("a" &i))去掉.xls才可以导入,sheet1为表的取名名称,不是表的编码名称
cnn.Execute st
cnn.Close
Set cnn = Nothing
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)