MsSQL快速导入Excel

对于导入含有多个sheet的EXCEL文件一直找不到合适的方法来做，尤其是多服务器的操作更是郁闷。首先应该排除复制的方法，每次所导入的表就不固定。

        我试过2种方法，一种是备份恢复，再用insert语句自动执行。新建立一个数据库，一次性导入EXCEL，备份拷贝到各个服务器，恢复过来，再用游标从这个数据库中insert到正式数据库的对应表内，如果只有一个数据库，或者各个数据库间不存在相同的表名，再忽略掉各服务器语言兼容的问题，这个方法还是可行。

        另外一种是直接拷贝EXCEL文件到分服务器，用opendatasouce/openrowset来导入数据。这个最关键的是能用SQL语句取到EXCEL的各个sheet，在网上搜到一个函数可以解决。

create function [dbo].[udf_getExcelTableNames] (@filename varchar (1000 ))
returns @t table (id int , name varchar (255 ))
as 
begin 
declare 
@error int , @obj int , @c int , @sheetname varchar (255 ) , @sheetstring varchar (255 )

exec @error = sp_oacreate 'Excel.Application' , @obj out 
exec @error = sp_oamethod @obj , 'Workbooks.Open' , @c out , @filename 
exec @error = sp_oagetproperty @obj , 'ActiveWorkbook.Sheets.Count' , @c out 
while (@c > 0 )
begin 
set @sheetstring = 'ActiveWorkbook.Sheets(' + ltrim (@c )+ ').Name' 
exec @error = sp_oagetproperty @obj , @sheetstring , @sheetname out 
insert into @t select @c , @sheetname 
set @c = @c - 1 
end 
exec @error = sp_oadestroy @obj 
return 
end 

再用以下语句可以得到导入脚本：

use database--需要导入的数据库名
set nocount on
declare @filename varchar(200)
set @filename='d:\temp\tt.xls'--EXCEL位置
declare @lenth int
declare @column varchar(1000)--列名
declare @columnnew varchar(1000)--转化列名
declare @tablename varchar(100)--表名
declare @sql varchar(1000)--字符串
declare @temp_error table(tablename varchar(200),errormassage varchar(200))--记录错误
declare mycursor cursor for select name from master.dbo.udf_getExcelTableNames (@filename) order by id
open mycursor                  
fetch next from mycursor into @tablename  
while(@@fetch_status=0)
begin
if not exists(select * from sys.objects where name=@tablename and type='U') 
begin 
 insert into @temp_error 
 select @tablename,'the table not exist'
 goto tt
end
else print '--'+@tablename--显示表名
set @column=''
set @columnnew=''
declare @corID varchar(100)
declare cursor_column cursor for select name from dbo.syscolumns where id=object_id(@tablename)
open cursor_column    
fetch next from cursor_column into @corID
while(@@fetch_status=0)
begin
    if exists(select * from  syscolumns where id=object_id(@tablename) and name=@corID 
    and xusertype in (35,99,167,175,231,239))--转化字符
    begin
    select @lenth=prec from syscolumns where id=object_id(@tablename) and name=@corID
    select @column=@column+',cast('+@corID+'as varchar('+cast(@lenth as varchar(6))+'))'
    end
    else select @column=@column+','+@corID
    select @columnnew=@columnnew+','+@corID
fetch next from cursor_column into @corID 
end
close cursor_column 
deallocate cursor_column
set @column=substring(@column,2,len(@column)) 
set @columnnew=substring(@columnnew,2,len(@columnnew))
    --如果是标识列，则屏蔽掉再插入数据
if exists(select colstat from dbo.syscolumns where colstat=1 and id=object_id(@tablename)) 
begin
   set @sql='
   SET IDENTITY_INSERT'+@tablename+'on
   delete from'+@tablename+'
   insert intodbo.'+@tablename+'('+@columnnew+')
   SELECT'+@column+'
   FROM OpenDataSource(''MICROSOFT.JET.OLEDB.4.0'', ''Excel 8.0; HDR=No; IMEX=0;
   DATABASE='+@filename+''')...['+@tablename+'$]
   SET IDENTITY_INSERT'+@tablename+'off'
   print(@sql)
end
    --没有标识列则直接插入
if not exists(select colstat from syscolumns where colstat=1 and id=object_id(@tablename))
begin
   set @sql='
   delete from'+@tablename+'
   insert intodbo.'+@tablename+'('+@columnnew+') 
   SELECT'+@column+'
   FROM OpenDataSource(''MICROSOFT.JET.OLEDB.4.0'', ''Excel 8.0; HDR=No; IMEX=0;
   DATABASE='+@filename+''')...['+@tablename+'$]'
   print(@sql)
end
tt:      
  fetch next from mycursor into @tablename
end
close mycursor
deallocate mycursor
select * from @temp_error

 

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/21383461/viewspace-623856/，如需转载，请注明出处，否则将追究法律责任。