execl带有VBA登陆验证，如何将数据插入access

123736485

如图下数据



ACC数据库


VBA语句：
Sub 存入ACC数据库()
'Private Sub CommandButton1_Click()
    Dim cnn As Object, SQL$, 单号&
    Set cnn = CreateObject("adodb.connection")
    cnn.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\不良品数据库.mdb"
    SQL = "select 成品编号,规格,原因描述,数量,备注,#" & Format([H6], "yyyy-m-d") & "# as 时间," & [H4] & "' as 单据编号,'" & [C4] & "' as 组别,'" & [C6] & "' as 流程,'" & [C12] & "' as 登记人 from [Excel 12.0;Database=" & ThisWorkbook.FullName & "].[PFSQD$C7:H" & Cells(Rows.Count, 3).End(3).Row & "]"
    SQL = "insert into 不良品明细表 select * from (" & SQL & ")" '添加记录
     cnn.Execute SQL
    MsgBox "已将数据保存到access中", vbInformation
    cnn.Close
    Set cnn = Nothing
'End Sub
End Sub

提示from子句语法错误

Execl文档有用VBA做的用户登陆验证，是否有影响？
应如何修改VBA语句？
请高手帮忙解答，感谢！

roych

总觉得你的SQL代码复杂了，而且," & [H4] & "' 的前面少了一个单引号：
不如试试以下代码（任选一句）：
cnn.Execute "INSERT INTO 表名 SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"
cnn.Execute "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;]"
cnn.Execute "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;'"
把SQL的*部分改为你的代码。