导入数据（导入数据时第一行必须是字段名）：

DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1$]"

DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;]" 

DoCmd.RunSQL "INSERT INTO 表名 SELECT * FROM [Sheet1$] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;'"

导出数据：

DoCmd.RunSQL "SELECT * INTO [Excel 8.0;DATABASE=E:\桌面\测试数据.xls].[Sheet1] FROM 表名"

DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls'[EXCEL 8.0;] FROM 表名" 

DoCmd.RunSQL "SELECT * INTO [Sheet1] IN 'E:\桌面\测试数据.xls' 'EXCEL 8.0;' FROM 表名"

Docmd.RunSQL语句和Connection.Execute（或Database.Execute）语句是通用的。不同的是，使用前者的话会可能会弹出提示对话框（例如执行删除查询等操作时）。

如果在VB（是VB，不是Access）里使用Docmd，则需要建立Access组件。不过在Access里，我们通常是使用TransferSpeardSheet来处理的，语句没有RunSQL那么复杂。