我是这样写的: On Error GoTo Err Dim strSQL As String Dim cn As New Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\test.xls;Extended Properties=Excel 9.0" '如果这张表不存在,你可以使用如下代码: strSQL = "SELECT * INTO [odbc;Driver={SQL Server};Server=neary;Database=Northwind;UID=sa;PWD=;].Customers2 FROM [Sheet1$]" cn.Execute strSQL, , adExecuteNoRecords Exit Sub
有该错误提示
请指点该如何修改
谢谢!!
On Error GoTo Err
Dim strSQL As String
Dim cn As New Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\test.xls;Extended Properties=Excel 9.0"
'如果这张表不存在,你可以使用如下代码:
strSQL = "SELECT * INTO [odbc;Driver={SQL Server};Server=neary;Database=Northwind;UID=sa;PWD=;].Customers2 FROM [Sheet1$]"
cn.Execute strSQL, , adExecuteNoRecords
Exit Sub
Err:
ShowError