将指定文件夹下结构相同的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数据库中指定的表

--  转载请注明出处: http://blog.csdn.net/htl258
----------------------------------------------------------------------------
--  两种引擎接口说明:
--  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 行受影响)
*/

 

附：Office2010引擎文件：

http://www.microsoft.com/downloads/details.aspx?familyid=C06B8369-60DD-4B64-A44B-84B371EDE16D&displaylang=zh-cn

 

概述

此下载将安装一系列的组件，非 Microsoft Office 应用程序可以使用这些组件从 Office 2010 system 文件（例如 Microsoft Access 2010（mdb 和 accdb）文件以及 Microsoft Excel 2010（xls、xlsx 和 xlsb）文件）中读取数据以及向这些文件中写入数据。 还支持与文本文件建立连接。
此外，还会安装 ODBC 和 OLEDB 驱动程序，供应用程序开发人员在开发与 Office 文件格式连接的应用程序时使用。

系统要求

• 支持的操作系统： Windows 7; Windows Server 2003; Windows Server 2003 Service Pack 1; Windows Server 2003 Service Pack 2; Windows Server 2008 R2; Windows Server 2008 Service Pack 2; Windows Vista Service Pack 1; Windows XP Service Pack 2

在 Windows XP Service Pack 3 上只能使用 32 位 Access 数据库引擎

说明

安装此下载：
1.通过单击“下载”按钮并将文件保存到硬盘上来下载文件。
2.双击硬盘上的 AccessDatabaseEngine.exe 程序文件以启动安装程序。
3.按照屏幕上的说明完成安装。
使用此下载：
1.如果您是应用程序用户，请查阅应用程序文档以获得有关如何使用相应驱动程序的详细信息。
2.如果您是使用 OLEDB 的应用程序开发人员，请将 ConnectionString 属性的 Provider 参数设置为“Microsoft.ACE.OLEDB.14.0”
◦如果要连接到 Microsoft Office Excel 数据，请将“Excel 14.0”添加到 OLEDB 连接字符串的扩展属性中。
3.如果您是使用 ODBC 连接到 Microsoft Office Access 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=path to mdb/accdb file”
4.如果您是使用 ODBC 连接到 Microsoft Office Excel 数据的应用程序开发人员，请将连接字符串设置为“Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=path to xls/xlsx/xlsm/xlsb file”
删除此下载：

要删除下载文件本身，请删除文件 AccessDatabaseEngine.exe
1.在“开始”菜单上，指向“设置”，然后单击“控制面板”。
2.双击“添加/删除程序”。
3.在“当前安装的程序”列表中，选择“Microsoft Access Database Engine 2010”，然后单击“删除”或“添加/删除”。 如果出现对话框，请按照相应说明删除该程序。
4.单击“是”或“确定”，以确认要删除该程序。

此下载中包括的文件

该部分中的链接对应此下载包含的各个文件。请下载最适合您的文件。

文件名：	文件大小
AccessDatabaseEngine.exe	26.1 MB	下载