求助 利用ado的insert into value向指定的excel录入数据

thunder87

用excel做一个末端申请系统。

然后把末端的数据通过ado的insert into values导入到指定的excel文件。

指定的excel文件名字叫做  DDBB.xlsx

想知道下面到底错在哪儿了。。。

Sub thunderbird()

Dim cnn As Object
Dim rst As Object
Dim mypath As String
Dim Str_cnn As String
Dim Sql As String
Dim i As Long

Set cnn = CreateObject("adodb.connection")
Set rst = CreateObject("Adodb.recordset")
mypath = ThisWorkbook.Path & "\DDBB.xlsx"

If Application.Version < 12 Then
Str_cnn = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes;IMEX=2';Data Source=" & mypath
Else
Str_cnn = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;HDR=yes;IMEX=2';Data Source=" & mypath
End If

'Open Link
cnn.Open Str_cnn

'pick up information by sql language
Sql = "INSERT INTO [DDBB] (Date_DB,SSO,Name_DB) VALUES('a','c','b')"

'excute program
cnn.Execute Sql

Set rst = cnn.Execute(Sql)

'Close the link
cnn.Close

'release the storage
Set cnn = Nothing

End Sub

WANT-T

哪里报错呀？

洋务德雷

Sql = "INSERT INTO [DDBB$] ([ate_DB],[SSO],[Name_DB]) VALUES('a','c','b')"

leolee82

别用excel做数据库，查询11位以上的数字会有问题

ivccav

问问题都不会？哪里错了没说，附件没有。工作表做数据库，表名需要加$， [DDBB$]