程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 數據庫知識 >> 其他數據庫知識 >> 更多數據庫知識 >> 解析SQLServer獲取Excel中所有Sheet的方法

解析SQLServer獲取Excel中所有Sheet的方法

編輯:更多數據庫知識

E盤根目錄新建一個Excel文件aa.xls後測試如下代碼
復制代碼 代碼如下:
use tempdb
go
if (object_id ('udf_getExcelTableNames' ) is not null )
    drop function dbo .udf_getExcelTableNames
go
create function 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
go
select * from dbo .udf_getExcelTableNames ('e:/aa.xls' )
/*--測試結果
3    Sheet3
2    Sheet2
1    Sheet1
*/

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved