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 行受影响) */