复制代码 代码如下:

-- Get table (worksheet) or column (field) listings from an excel spreadsheet

-- 设置变量

declare @linkedServerName sysname = 'TempExcelSpreadsheet'

declare @excelFileUrl nvarchar(1000) = 'D:text.xlsx'

-- /SET

-- 删除链接服务（如果它已经存在）

if exists(select null from sys.servers where name = @linkedServerName) begin

exec sp_dropserver @server = @linkedServerName, @droplogins = 'droplogins'

end

-- 添加服务对象

-- ACE 12.0 可以很好地工作为*.xls 和 *.xlsx, 你也可以用 Jet ,但是只能访问*.xls文件

exec sp_addlinkedserver

@server = @linkedServerName,

@srvproduct = 'ACE 12.0',

@provider = 'Microsoft.ACE.OLEDB.12.0',

@datasrc = @excelFileUrl,

@provstr = 'Excel 12.0;HDR=Yes'

-- 获取当前用户

declare @suser_sname nvarchar(256) = suser_sname()

-- 添加当前用户作为登陆这个链接服务

exec sp_addlinkedsrvlogin

@rmtsrvname = @linkedServerName,

@useself = 'false',

@locallogin = @suser_sname,

@rmtuser = null,

@rmtpassword = null

-- 返回 sheet 和 各个 sheet中的列

exec sp_tables_ex @linkedServerName

exec sp_columns_ex @linkedServerName

--删除链接服务对象

if exists(select null from sys.servers where name = @linkedServerName) begin

exec sp_dropserver @server = @linkedServerName, @droplogins = 'droplogins'

end