一次导入多个EXCEL文件到数据库的问题解决就给分急在线等立即给分！！！！！！！！！

[taotaobao]

我导入一个EXCEL文件到数据库没问题，当我需要一次导入多个文件循环到数据库就半天没响应了 我最多可能需要一次导入100个EXCEL文件到数据库 一般这种情况是什么原因

[dzbrsc]

不知道你循环怎么写的

[tjficcbw]

这个有几个关键点
1.打开xls这要打开关闭清楚，并记录
2.打开数据库执行SQL插入，这要用事物，
也就没么了，死了也知道是在哪什么问题了

[cauhorse]

如果不嫌慢的话。。
启动个Timer慢慢写，
顺便搞个进度条给自已提示下。。。

[sunxinyu]

下面是以前的VB6下的代码，参照这修改一下吧。

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private dom As Access.DoCmd

Private Sub Form_Load()
'Set adocon = Server.CreateObject("adodb.connection")


Dim sFiles() As String
Dim lTask As Long, lret As Long, lHandle As Long

dlg1.InitDir = App.Path
dlg1.ShowOpen

ShellExecute 0&, vbNullString, dlg1.FileName, vbNullString, App.Path, vbNormalFocus



s = Dir(App.Path + "\*.*")

If s <> "" Then


ReDim sFiles(0) As String
i = 1
s = Dir(App.Path + "\*.xls")
While s <> ""
ReDim Preserve sFiles(i) As String
sFiles(i) = s
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, Mid(s, 1, Len(s) - 4), App.Path + "\" + s, True, ""


i = i + 1
s = Dir()
Wend
End If



'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "juan", "C:\Documents and Settings\sss\桌面\月度报表0607.xls", True, ""
End Sub

[jinjazz]

参考ssis
http://blog.csdn.net/jinjazz/archive/2008/07/29/2730135.aspx

[sunxinyu]

对了，我上面那个例子是excel导入Access的

[ZengHD]

想简单点使用Application.DoEvents
想效果好点，就使用多线程

[taotaobao]

具体要怎么做 我循环导入就会死掉有没有什么方法做到

[ZengHD]

        While (True)
            Application.DoEvents()
        End While

Application.DoEvents()可能对你的程序没有用，因为导出数据本身就是一个很占资料的操作

[astromercy]

Application.DoEvents 不如引用SYSTEM.THREADING
然后对执行100个EXCEL文件导入的SUB做成线程,
通过进度条显示进度信息.
效果会好很多的

[LOUIVE007]

建议启动sql 错误捕捉，可能是在执行sql时出错，然后当前ＥＸＣＥＬ文件在打开后没有被关闭，建议在出错时就关闭当前打开的ＥＸＣＥＬ文件，然后清除完ＳＱＬ错误后再打开一下个ＥＸＣＥＬ文件，建议此操作需要要写一个log.

[yurengang]

http://blog.csdn.net/jinjazz/archive/2008/07/29/2730135.aspx

1.打开xls这要打开关闭清楚，并记录
2.打开数据库执行SQL插入，这要用事物，
也就没么了，死了也知道是在哪什么问题了