不用VB代码，手动导入可以用access的导入功能。方法：功能菜单->外部数据->Excel然后按提示1、选择文件2、选择导入的Sheet名称3、首行是否包含标题4、选择索引5、添加主键6、导入到Access的表名7、完成如果用vba就把这个录下来 自己看一下代码就行
