批量将制定文件夹下的全部Excel文件导入微软SQL数据库

以下代码将c:\cs\文件夹下的全部Excle中数据导入到SQL数据库

declare @query vARCHAR(1000)

declare @max1 int

declare @count1 int

declare @filename varchar(100)

set @count1=0

create table #x(name varchar(200))

insert #x exec('master.dbo.xp_cmdshell  ''dir c:\cs\*.xls  /b''')

delete from #x where name is null

select IDENTITY(int,1,1) as id ,name into #y from #x

drop table #x

set @max1=(select MAX(id) from #y)

while @count1 <= @max1

begin

set @count1=@count1+1

set @filename=(select name from #y  where id=@count1)

set @query='SELECT * INTO dbo.tab9  FROM OPENROWSET(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES;Database=c:\cs\'+@filename+''',''select * from [1月份$b11:e27]'')'

print @query 

EXEC  @query

end 

drop table #y

go 

TO dbo.tab9  FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;Database=c:\cs\上海.xls','select * from [1月份$b11:e27]')

SELECT * INTO dbo.tab9  FROM OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel 5.0;HDR=YES;Database=c:\cs\上海.xls','select * from [1月份$b11:e27]')

EXEC ( @query)