VBA运行SQL时错误 '-2147467259 (80004005)' ，求高手解释

eddile_lau · 发表于 2013-4-21 19:01

Sub 新建数据库()
Dim conn As ADODB.Connection
Dim sSql As String
Dim nc As String
nc = "1.xlsx"
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "" & nc
If conn.State = adStateOpen Then
sSql = "CREATE TALBE 名字(姓名 char(200), 性别 char(2), 歌曲 char(20))"
conn.Execute sSql
conn.Close
End If
Set conn = Nothing
End Sub

复制代码

求高手解析一下，在线等~~~~

该贴已经同步到 eddile_lau的微博

baigangliao · 发表于 2013-4-21 19:37

提示: 作者被禁止或删除内容自动屏蔽

ghq200101 · 发表于 2013-4-21 20:29

你工程引用是否正确啊？

eddile_lau · 发表于 2013-4-21 21:55

ghq200101 发表于 2013-4-21 20:29
你工程引用是否正确啊？

excel 2010 microsoft activex data objects 2.8 library 引用这个对吧？

		自动登录	找回密码
密码			免费注册

baigangliao baigangliao 当前离线性别保密 UID 1254158 阅读权限 0 注册时间 2010-11-9 在线时间小时最后登录 1970-1-1 积分 2437 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2013-4-21 19:37 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] VBA运行SQL时错误 '-2147467259 (80004005)' ，求高手解释