将指定文件夹下结构相同的EXCEL文件(支持2003和2007版本)批量导入到SQL数据库中指定的表

--------------------------------------------------------------------------
-- Author : htl258(Tony)
-- Date : 2010-04-08 20:09:45
-- Version:Microsoft SQL Server 2008 (RTM) - 10.0.1600.22 (Intel X86)
-- Jul 9 2008 14:43:34
-- Copyright (c) 1988-2008 Microsoft Corporation
-- Developer Edition on Windows NT 5.1 <X86> (Build 2600: Service Pack 2)
-- Subject:将指定文件夹下结构相同的EXCEL文件(支持2003和2007版本)批量导入到SQL数据库中指定的表
----------------------------------------------------------------------------
-- 两种引擎接口说明:
-- Microsoft.Jet.OLEDB.4.0（以下简称 Jet 引擎）和Microsoft.ACE.OLEDB.12.0（以下简称 ACE 引擎）。
-- Jet 引擎大家都很熟悉，可以访问 Office 97-2003，但不能访问 Office 2007。
-- ACE 引擎是随 Office 2007 一起发布的数据库连接组件，既可以访问 Office 2007，也可以访问 Office 97-2003。
-- 另外：Microsoft.ACE.OLEDB.12.0 可以访问正在打开的 Excel 文件，而 Microsoft.Jet.OLEDB.4.0 是不可以的。
-- Microsoft.ACE.OLEDB.12.0 安装文件：
-- http://download.microsoft.com/download/7/0/3/703ffbcb-dc0c-4e19-b0da-1463960fdcdb/AccessDatabaseEngine.exe ----------------------------------------------------------------------------
-- 附：Openrowset OpenDataSoure 以及xp_cmdshell 打开的代码：
SP_CONFIGURE 'show advanced options',1
GO
RECONFIGURE
GO
SP_CONFIGURE 'Ad Hoc Distributed Queries',1
GO
RECONFIGURE
GO
SP_CONFIGURE 'xp_cmdshell',1
GO
RECONFIGURE
GO
SP_CONFIGURE 'show advanced options',0
GO
RECONFIGURE
GO
----------------------------------------------------------------------------
--以下是导入文件的存储过程代码：
IF OBJECT_ID('Sp_InputExcel2007toSQL') IS NOT NULL
DROP PROC Sp_InputExcel2007toSQL
GO
CREATE PROC Sp_InputExcel2007toSQL
@dir NVARCHAR(100),--EXCEL文件存放路径：如D:/ExcelFiles
@tabname NVARCHAR(50) --定义导入到数据库中的表名
AS
SET NOCOUNT ON
CREATE TABLE #t([filename] NVARCHAR(1000))

IF RIGHT(@dir,1)<>'/'
SET @dir=@dir+'/'

DECLARE @cmd NVARCHAR(1000)
SET @cmd = N'dir "' + @dir + '*.xls*" /B'

INSERT #t EXEC master..xp_cmdshell @cmd
DELETE #t WHERE [filename] IS NULL
--在SQL中创建表:
DECLARE @S nvarchar(MAX)
IF OBJECT_ID(@tabname) IS NULL
BEGIN
SELECT TOP 1 @S='SELECT TOP 0 * INTO '+ @tabname+' FROM OPENROWSET(
''MICROSOFT.ACE.OLEDB.12.0'', ''EXCEL 12.0;HDR=YES;IMEX=2;DATABASE='+@DIR+[filename]+'''
,''SELECT * FROM [Sheet1$]'')'
FROM #t
EXEC(@S)
END
--开始导入目录下的文件
SET @S = ''
SELECT @S = @S + 'INSERT '+@tabname+' SELECT * FROM OPENROWSET(
''MICROSOFT.ACE.OLEDB.12.0'', ''EXCEL 12.0;HDR=YES;IMEX=2;DATABASE='+@DIR+FILENAME+'''
,''SELECT * FROM [Sheet1$]'')'
FROM #t
EXEC(@S)
SET NOCOUNT OFF
GO

--测试时先在D盘创建目录：D:/ExcelFiles
--任意新建几个表结构相同的excel文件,2003或2007版本均可，并任意存入一些内容。
--调用存储过程导入数据：
EXEC Sp_InputExcel2007toSQL 'D:/ExcelFiles','Tony'
--查询结果:
SELECT * FROM Tony
/*
a b c d
---------------------- ---------------------- ---------------------- ----------------------
1 3 4 5
2 3 4 5
6 7 8 9

(3 行受影响)
*/