急！急！请问怎样写一个用SQL导入Excel的程序？

Question

在SQL 内建立一个DTS，然后按照你的愿望，导出到.bas文件或者保存在SQL内部，需要时直接运行就可以了。

Answer 1

打开Enterprise Manager---展开服务器---在Databases上单击右键---使用All tasks子菜单中的Import data。
打开DTS的向导---在SOURCE处选择“Microsoft Excel 8.0”---“File name”处输入Excel的文件名。
（这时别的程序不能打开这个文件）---下一步
在Destination处选择“Microsoft OLE DB Provider for SQL Server”
在Server处输入你的SQL SERVER服务器名---输入连接服务器所用的帐号和密码。
在Database处选择要导入数据的数据库---下一步---下一步
在列表中选择要导入的工作表---导入后的表名在Destination Table列显示，可以修改成所希望的名字。
（显示的名字类似这样的[test].[dbo].[Sheet1$]，要改的话只改最后一个中括号中的名字，其它的不要改）
---下一步---下一步---完成---确定---Done

Answer 2

VB支持SQL语言的SELECT ... INTO语句，这使得你可以将一种数据库轻松地转换为另一种格式，也可以在同一种格式的数据库中进行转换。下面我们以将.MDB格式转换为Excel形式为例。 
    首先，打开.MDB文件。如 
    Dim dbSource As Database 
    Set dbSource = OpenDatabase("MY.MDB") 
    然后使用SELECT ... INTO语句转换文件。 
    dbSource.Execute("SELECT * INTO my IN 'c:\documents\xldata.xls' 'EXCEL 5.0;' FROM table1") 
    这里，IN子句后面是转换后的数据库文件名，'EXCEL 5.0;'表示Excel 5.0/95格式，也可以是其他VB支持的格式。 
    SELECT ... INTO建立新的表或数据库，而如果要将数据追加到已经存在的数据库中，可以使用INSERT ... INTO语句。 

Answer 3

我的回答：http://www.csdn.net/expert/topic/511/511317.xml?temp=.9485895