日期:2014-05-18  浏览次数:20740 次

将指定文件夹下结构相同的EXCEL文件批量导入到SQL数据库中指定的表
问题贴:http://topic.csdn.net/u/20100407/16/023ad45b-c60e-4216-98a5-922a149db23c.html?seed=89664809

由于时间仓促,水平有限,不对的地方,欢迎大家指正!

SQL code
 
--------------------------------------
--  Author : htl258(Tony)
--  Date  : 2010-04-07 21: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文件批量导入到SQL数据库中指定的表
--------------------------------------
IF OBJECT_ID('Sp_InputExceltoSQL') IS NOT NULL
DROP PROC Sp_InputExceltoSQL
GO
CREATE PROC Sp_InputExceltoSQL
@dir NVARCHAR(100),--EXCEL文件存放路径:如D:\ExcelFiles
@tabname NVARCHAR(50) --定义导入到数据库中的表名
AS
SET NOCOUNT ON
DECLARE @cmd NVARCHAR(1000)
CREATE TABLE #t([filename] NVARCHAR(1000))
IF RIGHT(@dir,1) <>'\'
SET @dir=@dir+'\'
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.JET.OLEDB.4.0'', ''EXCEL 5.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.JET.OLEDB.4.0'', ''EXCEL 5.0;HDR=YES;IMEX=2;DATABASE='+@DIR+FILENAME+'''
,''SELECT * FROM [Sheet1$]'')' 
FROM #t     
EXEC(@S)
SET NOCOUNT OFF
GO
EXEC Sp_InputExceltoSQL 'D:\ExcelFiles','Tony'

SELECT * FROM Tony
/*
a                      b                      c                      d
---------------------- ---------------------- ---------------------- ----------------------
1                      2                      3                      4
5                      6                      7                      8

(2 行受影响)
*/


------解决方案--------------------
SFFFFFFFF
------解决方案--------------------
学习.
------解决方案--------------------
UP,


------解决方案--------------------
xuexi
------解决方案--------------------
学习。
------解决方案--------------------
学习..
------解决方案--------------------