在Excel中用VBA将数据导入Access，显示“自动化错误”

TShan · 发表于 2023-9-17 10:53

在Excel中写了如下代码，目的是将“Sheet1”工作表中的数据导入Access数据库“Database1”中的“表1”：

Sub test()
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.open "provider = microsoft.ace.oledb.12.0; data source = " & thisworkbook.path & "\Database1.accdb"
conn.execute "delete from 表1"
conn.execute "insert into 表1 select * from [Excel 12.0; database = " & thisworkbook.name & "].[Sheet1$]"
conn.execute "insert into 表2 select * from 表3"
conn.close
End Sub

复制代码

但是其他代码都能正常执行，只有 conn.execute "insert into 表1 select * from [Excel 12.0; database = " & thisworkbook.name & "].[Sheet1$]" 这句会报错如下：

更奇怪的是，这句代码前一天完全可以正常运行没有问题，一天之后再运行就报错了，中间没有动过。

求大神们指教是什么问题。感谢！

TShan · 发表于 2023-10-8 22:25

请各位老师指教！

ly · 发表于 2023-10-9 08:32

PLS Test

ThisWorkbook.FullName

TShan · 发表于 2023-10-9 13:04

ly 发表于 2023-10-9 08:32
PLS Test

ThisWorkbook.FullName

感谢！不过之前也试过fullname了也不行……

qdtzq · 发表于 2023-10-9 15:15

猜测是EXCEL数据格式问题导致

TShan · 发表于 2023-10-20 09:37

qdtzq 发表于 2023-10-9 15:15
猜测是EXCEL数据格式问题导致

能否具体说一下？是Excel的数据格式和access的冲突吗？

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

[求助] 在Excel中用VBA将数据导入Access，显示“自动化错误”