解析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
*/

您可能感兴趣的文章:

随机提取Access/SqlServer数据库中的10条记录的SQL语句

如何在 Access 2003 和 Access 2002 中创建 DSN 的连接到 SQLServer 对链接表

ACCESS转SQLSERVER数据库的注意事项

Access转SqlServer的注意事项

asp.net 数据库备份还原(sqlserver+access)

SQL 随机查询包括(sqlserver,mysql,access等)

Excel导入Sqlserver数据库脚本

ASP将Excel数据导入到SQLServer的实现代码

ADO.NET 连接数据库字符串小结(Oracle、SqlServer、Access、ODBC)

将ACCESS数据库迁移到SQLSERVER数据库两种方法(图文详解)

将excel高效导入sqlserver的可行方法

SQL SERVER 2008 位系统无法导入ACCESS/EXCEL怎么办