-- 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