dim db as adodb.connection
set db=new adodb.connection
db.open "......."
db.Execute "SELECT * INTO [Excel 8.0;DATABASE=C:\authors.XLS].[authors] FROM [authors]"
在http://expert.csdn.net/Expert/topic/1348/1348047.xml?temp=.1141626的贴子中我参考里面说道select <字段列表> from <表名> into <工作表名> in "<Excel文件名>" "Excel版本" 写完后连语法检测的都通不过了