将文件夹下的所有EXCEL导入SQL数据库中，每一文件为一单独的表，表名为文件名

  --将文件夹下的所有EXCEL导入SQL数据库中，每一文件为一单独的表，表名为文件名
  --By MadGoat 2006-11-23
  create   table   #t (fname   varchar(260),depth   int,isf   bit)   
  insert   into   #t   exec   master..xp_dirtree   'c:\test\',1,1   
  declare   tb   cursor   for   select   fn='c:\test\'+fname   from   #t   
  where   isf=1   and   fname   like   '%.xls'     --取.xls文件(EXCEL)   
  declare   @fn   varchar(8000)  
  declare   @fname   varchar(8000) 
  declare @end int --截取的结束位置
  declare @fnamelen int --文件名称长度
  open   tb   
  fetch   next   from   tb   into   @fn   
  while   @@fetch_status=0   
  begin
  set @end = len(@fn)-PATINDEX('%\%', reverse(@fn))
  set @fnamelen = len(@fn)-5-@end
  set @fname= SUBSTRING(@fn,@end+2,@fnamelen)
 
  set   @fn='SELECT * into '+@fname+' FROM OPENDATASOURCE(''MICROSOFT.JET.OLEDB.4.0'',
                ''Excel 5.0;DATABASE='+@fn+''' )[Sheet1$]'    --关键是这句   
  exec(@fn)   
  fetch   next   from   tb   into   @fn   
  end   
  close   tb   
  deallocate   tb   
  drop   table   #t