将excel数据导入EXCEL

[xhzhuzz]

Private Sub Command3_Click()‘将excel数据导入EXCEL
Dim strexSQL As String
strexSQL = "Insert into paravalue([姓名],[年龄],[班级],[数学成绩) select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 8.0;HDR=YES;DATABASE=" & App.Path & "\testing.xls',sheet1$)"
DBcnn.Execute (strexSQL)
End Sub
Private Sub Command4_Click() ‘将SQL数据导出EXCEL
Dim strexSQL As String
strexSQL = "Insert Into OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=" & App.Path & "\testing.xls;','SELECT * FROM [Sheet1$]') select ([姓名],[年龄],[班级],[数学成绩) from paravalue"
DBcnn.Execute strexSQL
End Sub
数据库里面还有一个关键字段：编号 ，是自动形成， 添加一个记录就自动加1
我先将数据库的数据倒入EXCEL(不包括关键字段)，在将EXCEL里面的数据导入SQL，但是字段错位了 ？这是怎么回事

[jinjazz]

将excel数据导入EXCEL


复制-粘贴

[百年树人]

[Quote=引用 2 楼 jinjazz 的回复:]
将excel数据导入EXCEL


复制-粘贴
[/Quote]

[让你望见影子的墙]

错误有下面几个地方：
1、[数学成绩)后面少了]
2、不能使用select * from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 8.0;HDR=YES;DATABASE=" & App.Path & "\testing.xls',sheet1$)" 因为excel表格中的列很多

下面的也是如此。

[-狙击手-]

Private Sub Command3_Click()‘将excel数据导入EXCEL 
  Dim strexSQL As String 
  strexSQL = "Insert into paravalue([姓名],[年龄],[班级],[数学成绩]) select [姓名],[年龄],[班级],[数学成绩] from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 8.0;HDR=YES;DATABASE=" & App.Path & "\testing.xls',sheet1$)" 
    DBcnn.Execute (strexSQL) 
End Sub 
Private Sub Command4_Click()  ‘将SQL数据导出EXCEL 
    Dim strexSQL As String 
    strexSQL = "Insert Into OPENROWSET('Microsoft.Jet.OLEDB.4.0','Excel 8.0;Database=" & App.Path & "\testing.xls;','SELECT [姓名],[年龄],[班级],[数学成绩] FROM [Sheet1$]') select [姓名],[年龄],[班级],[数学成绩] from paravalue" 
    DBcnn.Execute strexSQL 
End Sub