Ⅰ 如何利用sql查詢語句從SQLSERVER資料庫中導入導出EXCEL表格
一、從excel表導入到SQLSERVER
use test
go
select * into test_table from
OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\11.xls;','select * from [結果$]')
--1.通過Sql Server查詢分析器查詢D:\abc.xls 裡面表 sheet1
SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\abc.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
--2.如果表a存在，並且表a的結構與上一步的查詢的結構一樣
可以使用
insert into a SELECT * FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\abc.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
--3.如果表a不存在，使用into a
SELECT * into a FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\abc.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
說明：test_table為SQLSERVER資料庫中的表，11.xls是EXCEL表，[結果$]是EXCEL表中的工作表，注意寫法是工作表名加上$符號。
2從SQLSERVER資料庫中導出到EXCEL（一般用語句導庫是在應用程序中，利用各種語言實現，如果不做開發項目，用DTS就很好了，在
SQLSERVER查詢器中利用單條SQL語句實現導入導出不方便，類型轉換是個問題，不好解決）
第一種，無法導入欄位名：（excel表不存在，新建）
EXEC master..xp_cmdshell
'bcp zhou.dbo.資料庫表名 out "c:\test.xls" /c /S "伺服器名" /U "用戶名" -P "密碼" '
第二種，excel文件已存在，要手工把表欄位名填到excel文件中去，再執行下面：
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 8.0;HDR=YES;DATABASE=c:\文件名.xls',sheet1$)
select * from 表名
第三種，想實現全自動轉欄位名和記錄，一條語句實現不了，要用到過程，當然如果要做一個自動轉換程序，用VB或者VC語言也可實現。
把下面的過程全拷入SQLSERVER查詢分析器，執行，生成一個過程，過程名為：p_exporttb，然後按應用例子執行過程就OK了，自
動導表
/*******************************/
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[p_exporttb]') and OBJECTPROPERTY(id, N'IsProcere') = 1)
drop procere [dbo].[p_exporttb]
GO
create proc p_exporttb
@sqlstr varchar(8000), --查詢語句,如果查詢語句中使用了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 8.0;HDR=YES'
+';DATABASE='+@sql+'"'
--連接資料庫
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err<>0 goto lberr
exec @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 like '%char'
then case when a.length>255 then 'memo'
else 'text('+cast(a.length as varchar)+')' end
when b.name like '%int' or b.name='bit' then 'int'
when b.name like '%datetime' then 'datetime'
when b.name like '%money' then 'money'
when b.name like '%text' then 'memo'
else b.name end
FROM tempdb..syscolumns a left join tempdb..systypes b on a.xtype=b.xusertype
where b.name not in('image','uniqueidentifier','sql_variant','varbinary','binary','timestamp')
and a.id=(select id from tempdb..sysobjects where name=@tbname)
if @@rowcount=0 return
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 lberr
exec @err=sp_oadestroy @obj
--導入數據
set @sql='openrowset(''MICROSOFT.JET.OLEDB.4.0'',''Excel 8.0;HDR=YES
;DATABASE='+@path+@fname+''',['+@sheetname+'$])'
exec('insert into '+@sql+'('+@fdlist+') select '+@fdlist+' from ['+@tbname+']')
set @sql='drop table ['+@tbname+']'
exec(@sql)
return
lberr:
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
Ⅱ sqlserver中怎樣把查詢結果導入到已有的excel文件中
你是需要一次性的執行某任務嗎？如果是這樣，在管理器里執行SQL語句，然後把結果拷貝粘貼到EXCEL里就行了；如果你是要寫個程序，那就復雜了。
Ⅲ 怎樣將SQL數據導出到EXCEL中
在SQL資料庫的很多應用場景中，需要將SQL中的某個資料庫或查詢的結果導出到EXCEL中，因為Excel更容易對數據處理和方便用戶郵箱傳輸。本次經驗歸納了SQL數據表導出到EXCEL中的三種方法：
1、復制粘貼，將SQL查詢語句按指定條件導出數據；——適合小量數據。
2、導出完整的SQL數據表為Excel文件；——適合大量數據。
3、定時自動導出指定SQL數據表為Excel文件；——適合大量數據。
其它：DTS數據轉換服務導入導出向導或者DTS設計器創建DTS包；
Ⅳ 怎麼寫sql語句將Excel的數據插入到SQL Server資料庫
方法和詳細的操作步驟如下：
1、第一步，准備Excel表，並希望將其導入SQL
Server 2012中的QearlTest資料庫，見下圖，轉到下面的步驟。
Ⅳ 如何把sql的數據表導入到excel中
一、在EXCEL中
新建一列,如把列名定為ab,下面放你的數據，比如1，2，3……
二、打開SQL
企業管理器
，
右擊
你所需要導入的資料庫，選擇導入數據，下一步，數據源選擇Microsoft
Eccel
97-2000,選擇excel文件繼續下一步，往下按，選擇Sheet1$或者2，3
看你把數據放在那一頁，點轉換可以根據你自己需要設置一些欄位屬性，目的里改一下表的名字（如果是要往已存在的表裡插數據，應該要選擇往目的表中追加數據，但
欄位名
應該要一樣，如果是添加新建表，選擇創建目的表），新建表的話，表名自己隨便寫什麼好了，容易記就好。設置完了就點下一步就導入了。當然可以先預覽一下。
如果不熟悉，建議還是添加新建表吧，再用insert語句把導入的數據插入到你所需要插入的表裡。
Ⅵ 在SQL中,如何把查詢結果(完整表)保存為電子表格excel
在查詢分析器查詢結果後,在左上角那個框點右鍵,另存為xxx.xls,列分割符用指標分隔符.
Ⅶ 如何將ASP中的SQL資料庫中查詢出來的某一數據寫入到EXCEL
你這樣做只能生成.CSV文件，EXCEL軟體一樣能打開、編輯。
真正的.XLS文件無法自動生成，因為.xls文件的建立需要office的支持，並且有版本區別。你可以先手工建立個.xls文件，然後用FSO復制文件進行編輯。
不同點：
CSV文件可以直接用FSO進行編輯，xls文件需要ADO進行編輯。使用的控制項不同。
CSV文件欄位長度限制較松，xls文件低版本欄位長度限制較緊。
CSV文件受逗號影響，xls文件不受逗號影響。
CSV文件需要遍歷整個文件查詢欄位，XLS使用SQL指令查詢欄位。
CSV文件需要暫存數據重新寫入才能編輯文件，XLS使用SQL指令就能編輯欄位。
CSV文件伺服器無需安裝office，XLS文件伺服器必須裝有office。
我在單位也用CSV+ASP做了個頁面，用來自動識別IP及管理伺服器文件共享等，並提供對應主機的配置文件下載。個人感覺CSV做表格導入導出及當數據倉庫很好，在伺服器支持的情況下access當緩沖資料庫更快。但在伺服器存儲中，建議更改後綴，防止被惡意下載。
Ⅷ sql怎麼保存查詢結果到excel
比較常用的2種方式：
A:使用Sql的導出功能（比較專業，不會出錯）
在資料庫上右擊 【任務】--【導出數據】--選擇源--選擇目標（類型選擇EXCEL）--選擇 查詢結果導出
B:結果直接保存（比較簡單，但是全是數字的字元串可能會被自動轉換成數字）
在查詢分析器裡面執行SQL語句後選擇查詢的結果然後右鍵 【將結果另存為】--選擇保存類型【*.csv】
Ⅸ 如何通過SELECT語句查詢出來後，用SQL語句把數據寫入到指定的EXCEL中
給個示例
Sub去重()
Dimcnn,SQL$
Setcnn=CreateObject("adodb.connection")
cnn.Open"Provider=Microsoft.jet.OLEDB.4.0;ExtendedProperties=Excel8.0;DataSource="&ThisWorkbook.FullName
SQL="SELECTDISTINCT[aac001],[aac003],部門代碼,但未編號,基數,個人,單位,金額FROM[明細$A3:H65536]"
Range("A2:I65536").ClearContents
Range("A2").CopyFromRecordsetcnn.Execute(SQL)
cnn.Close
Setcnn=Nothing
EndSub
你可以參考一下。