将excel数据导入EXCEL

Question

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，但是字段错位了 ？这是怎么回事

Answer 1

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 

Answer 2

将excel数据导入EXCEL  
复制-粘贴

Answer 3

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