代码大概是这样的:
Dim CnString As String = "Provider=Microsoft.ACE.OLEDB.12.0;data source=C:\Users\Administrator\Desktop\access表.accdb"
Dim SQLString As String="insert into access表中的表 select * from [sheet1$] in 'C:\Users\Administrator\Desktop\excel表.XLSX;Extended Properties='Excel 12.0;IMEX=1;HDR=YES''"
Dim Conn As OleDbConnection = New OleDbConnection(CnString)
Dim Cmd As OleDbCommand = New OleDbCommand
Cmd.CommandText = SQLString
Cmd.Connection = Conn
Conn.Open()
Cmd.ExecuteNonQuery()
执行到这一步就NG了,帮忙看看呗
@小小噤 @sowo