复制代码 代码如下:
-- Get table (worksheet) or column (field) listings from an excel spreadsheet
-- 设置变量
declare @
declare @excelFileUrl nvarchar(1000) = 'D:\text.xlsx'
-- /SET
-- 删除链接服务(如果它已经存在)
if exists(select null from sys.servers where name = @
exec sp_dropserver @server = @
end
-- 添加服务对象
-- ACE 12.0 可以很好地工作为*.xls 和 *.xlsx, 你也可以用 Jet ,但是只能访问*.xls文件
exec sp_add
@server = @
@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_add
@rmtsrvname = @
@useself = 'false',
@locallogin = @suser_sname,
@rmtuser = null,
@rmtpassword = null
-- 返回 sheet 和 各个 sheet中的列
exec sp_tables_ex @
exec sp_columns_ex @
--删除链接服务对象
if exists(select null from sys.servers where name = @
exec sp_dropserver @server = @
end