Dim cn As New ADODB.Connection Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False" cn.Open cn.Execute ("select * into [excel 5.0;database=d:\1.xls].[sheet5] from Table") End Sub
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False"
cn.Open
cn.Execute ("select * into [excel 5.0;database=d:\1.xls].[sheet5] from Table")
End Sub
提示错误:from子句语法错误