如何在SQL server中创建excel表并导出

Question

用bcp语句就可以
CREATE TABLE tb(id INT,v VARCHAR(10))
GO
INSERT tb SELECT 1,'a'
UNION ALL SELECT 2,'c'
GOEXEC master..xp_cmdshell 'bcp "test..tb" out "c:\test.xls" -c -q -S. -U"sa" -P"xxx"'
GO
DROP TABLE tb
GO

Answer 1

如果是指定的查询，将out改为queryout
CREATE TABLE tb(id INT,v VARCHAR(10))
GO
INSERT tb SELECT 1,'a'
UNION ALL SELECT 2,'c'
GOEXEC master..xp_cmdshell 'bcp "SELECT * FROM test..tb WHERE id=1" queryout "c:\test.xls" -c -q -S. -U"sa" -P"xxx"'
GO
DROP TABLE tb
GO

Answer 2

从Excel文件中,导入数据到SQL数据库中,很简单,直接用下面的语句:   
    
  /*===================================================================*/   
  --如果接受数据导入的表已经存在   
  insert   into   表   select   *   from     
  OPENROWSET('MICROSOFT.JET.OLEDB.4.0'   
  ,'Excel   5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)   
    
  --如果导入数据并生成表   
  select   *   into   表   from     
  OPENROWSET('MICROSOFT.JET.OLEDB.4.0'   
  ,'Excel   5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)   
    
    
  /*===================================================================*/   
  --如果从SQL数据库中,导出数据到Excel,如果Excel文件已经存在,而且已经按照要接收的数据创建好表头,就可以简单的用:   
  insert   into   OPENROWSET('MICROSOFT.JET.OLEDB.4.0'   
  ,'Excel   5.0;HDR=YES;DATABASE=c:\test.xls',sheet1$)   
  select   *   from   表   
    
    
  --如果Excel文件不存在,也可以用BCP来导成类Excel的文件,注意大小写:   
  --导出表的情况   
  EXEC   master..xp_cmdshell   'bcp   数据库名.dbo.表名   out   "c:\test.xls"   /c   -/S"服务器名"   /U"用户名"   -P"密码"'   
    
  --导出查询的情况   
  EXEC   master..xp_cmdshell   'bcp   "SELECT   au_fname,   au_lname   FROM   pubs..authors   ORDER   BY   au_lname"   queryout   "c:\test.xls"   /c   -/S"服务器名"   /U"用户名"   -P"密码"'   

Answer 3

创建一空excel表,导出前选复制此表,再导数据

Answer 4

二、SQL SERVER 和EXCEL的数据导入导出
1、在SQL SERVER里查询Excel数据:
-- ======================================================
SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
SELECT * 
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
-------------------------------------------------------------------------------------------------2、将Excel的数据导入SQL server :
-- ======================================================
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
-------------------------------------------------------------------------------------------------3、将SQL SERVER中查询到的数据导成一个Excel文件
-- ======================================================
T-SQL代码：
EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
参数：S 是SQL服务器名；U是用户；P是密码
说明：还可以导出文本文件等多种格式
实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
在VB6中应用ADO导出EXCEL文件代码： 
Dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
------------------------------------------------------------------------------------------------4、在SQL SERVER里往Excel插入数据:
-- ======================================================
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)T-SQL代码：
INSERT INTO  
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
(bestand, produkt) VALUES (20, 'Test')  
-------------------------------------------------------------------------------------------------

Answer 5

各位，bcp方法能成功建立excel表，但是又有一个问题：该方法不能把表的列名导入excel表，所以用下面语句先建excel表再进行插入：use TEST
--建表
create table TEST1
(ID nvarchar(10),
NE nvarchar(10),
TIME nvarchar(10)
)insert into TEST1
values('序号','网元','时间')create table TEST2
(ID int,
NE varchar(10),
TIME datetime
)insert into TEST2
values(1,'aaa',getdate())insert into TEST2
values(2,'bbb',getdate())--新建excel表
EXEC master..xp_cmdshell 'bcp "TEST..TEST1" out "g:\test1.xls" -c -q -S. -U"MyDB" -P'
--插入excel表
insert into OPENROWSET（'MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=g:\test1.xls',sheet1$)
select * from TEST.dbo.TEST2
结果能够建立test1.xls表，但是无法进行插入，有以下错误：
服务器: 消息 7399，级别 16，状态 1，行 3
OLE DB 提供程序 'MICROSOFT.JET.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息。是插入语句的哪个参数有问题吗？另外新建的excel表没有sheet1工作表，只有test1一个工作表，但即使将sheet1$改成test1$也不能进行插入，请指教

Answer 6

因为你生成的xls文件其实并不是符合EXCEL格式的文件，你可以在生成EXCEL之后，先不插入数据
然后用EXCEL打开它，你会看到提示，然后你再保存回去覆盖它，再执行：insert into OPENDataSource('Microsoft.Jet.OLEDB.4.0','Extended Properties=Excel 5.0;Data Source="g:\test1.xls"')...[test1$]
select * from TEST.dbo.TEST2你会看到数据就进去了。（以上结论已在我本机测试）

Answer 7

你其实直接这样一次操作就好了：
EXEC master..xp_cmdshell 'bcp "select * from TEST.dbo.TEST1 union all select convert(varchar(10),ID),NE,convert(varchar(20),TIME,120) from TEST.dbo.TEST2" queryout "g:\test1.xls" -c -q -S. -U"sa" -P"sa"'
执行完，你的EXCEL就有标题了。

Answer 8

参考如下的存储过程./*--数据导出EXCEL导出查询中的数据到Excel,包含字段名,文件为真正的Excel文件
,如果文件不存在,将自动创建文件
,如果表不存在,将自动创建表
基于通用性考虑,仅支持导出标准数据类型
--邹建 2003.10--*//*--调用示例p_exporttb @sqlstr='select * from 地区资料'
,@path='c:\',@fname='aa.xls',@sheetname='地区资料'
--*/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[p_exporttb]
GOcreate proc p_exporttb
@sqlstr sysname,--查询语句,如果查询语句中使用了order by ,请加上top 100 percent,注意,如果导出表/视图,用上面的存储过程
@path nvarchar(1000),--文件存放目录
@fname nvarchar(250),--文件名
@sheetname varchar(250)=''--要创建的工作表名,默认为文件名
as 
declare @err int,@src nvarchar(255),@desc nvarchar(255),@out int
declare @obj int,@constr nvarchar(1000),@sql varchar(8000),@fdlist varchar(8000)--参数检测
if isnull(@fname,'')=''set @fname='temp.xls'
if isnull(@sheetname,'')='' set @sheetname=replace(@fname,'.','#')--检查文件是否已经存在
if right(@path,1)<>'\' set @path=@path+'\'
create table #tb(a bit,b bit,c bit)
set @sql=@path+@fname
insert into #tb exec master..xp_fileexist @sql--数据库创建语句
set @sql=@path+@fname
if exists(select 1 from #tb where a=1)
set @constr='DRIVER={Microsoft Excel Driver (*.xls)};DSN='''';READONLY=FALSE'
    +';CREATE_DB="'+@sql+'";DBQ='+@sql
else
set @constr='Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties="Excel 5.0;HDR=YES'
+';DATABASE='+@sql+'"'--连接数据库
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err<>0 goto lberrexec @err=sp_oamethod @obj,'open',null,@constr
if @err<>0 goto lberr--创建表的SQL
declare @tbname sysname
set @tbname='##tmp_'+convert(varchar(38),newid())
set @sql='select * into ['+@tbname+'] from('+@sqlstr+') a'
exec(@sql)select @sql='',@fdlist=''
select @fdlist=@fdlist+','+a.name
,@sql=@sql+',['+a.name+'] '
+case when b.name in('char','nchar','varchar','nvarchar') then
 'text('+cast(case when a.length>255 then 255 else a.length end as varchar)+')'
when b.name in('tynyint','int','bigint','tinyint') then 'int'
when b.name in('smalldatetime','datetime') then 'datetime'
when b.name in('money','smallmoney') then 'money'
else b.name end
FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype
where b.name not in('image','text','uniqueidentifier','sql_variant','ntext','varbinary','binary','timestamp')
and a.id=(select id from tempdb..sysobjects where name=@tbname)
select @sql='create table ['+@sheetname
+']('+substring(@sql,2,8000)+')'
,@fdlist=substring(@fdlist,2,8000)exec @err=sp_oamethod @obj,'execute',@out out,@sql
if @err<>0 goto lberrexec @err=sp_oadestroy @obj--导入数据
set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 5.0;HDR=YES
;DATABASE='+@path+@fname+''',['+@sheetname+'$])'exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']')set @sql='drop table ['+@tbname+']'
exec(@sql)
returnlberr:
exec sp_oageterrorinfo 0,@src out,@desc out
lbexit:
select cast(@err as varbinary(4)) as 错误号
,@src as 错误源,@desc as 错误描述
select @sql,@constr,@fdlist
go
 

Answer 9

--语句1：
insert into OPENDataSource('Microsoft.Jet.OLEDB.4.0','Extended Properties=Excel 5.0;Data Source="g:\test1.xls"')...[test1$]
select * from TEST.dbo.TEST2
仍然是不行，报错：服务器: 消息 7399，级别 16，状态 1，行 5
OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 报错。提供程序未给出有关错误的任何信息。--语句2：
EXEC master..xp_cmdshell 'bcp "select * from TEST.dbo.TEST1 union all select convert(varchar(10),ID),NE,convert(varchar(20),TIME,120) from TEST.dbo.TEST2" queryout "g:\test1.xls" -c -q -S. -U"sa" -P"sa"'运行成功了，可是为什么要把每列都转成varchar呢？如果直接：EXEC master..xp_cmdshell 'bcp "select * from TEST.dbo.TEST1 union all select * from TEST.dbo.TEST2" queryout "g:\test3.xls" -c -q -S. -U"sa" -P"sa"'
为什么会报错？因为要导入的表的列很多（大约100列），如果每列都convert的话就很麻烦了啊

Answer 10

UNION ALL语句要求合并的对应的每列必须是同一类型，因为你的标题都是字符串，而你的ID和TIME是INT和日期型，所以要转换为同一类型才能UNION ALL。