VBA写入数据问题

674400936 · 发表于 2020-1-8 23:01

有大神帮忙看下吗，入库界面里的入库（）有啥问题，一直提示下标越界
Sub ???()
Dim AdoConn As New ADODB.Connection
Dim AdoRst As New ADODB.Recordset
Dim strConn As String
Dim strSQL As String
strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=""Excel 12.0;HDR=YES"";"

AdoConn.Open strConn
strSQL = "insert into [??????$]
AdoRst.Open strSQL, AdoConn, 3, 3

AdoRst.Close
AdoConn.Close
End Sub