一句查询代码实现Excel数据导入导出

wangxy689

我发现按照老师说的导入模式导入后，ID 的号码发生了很大的变化，不是从1开始的。
我把我的程序代码也贴上，请红尘如烟老师关注一下。
Private Sub Command23_Click()
'DoCmd.RunSQL "INSERT INTO  SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"
DoCmd.RunSQL "INSERT INTO 源数据 SELECT * FROM [数据源$] IN 'D:\测试数据.xls'[EXCEL 8.0;]"
'DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;'"
End Sub