如何用SQL提高函数查找的速度

lky787

各位热心网友与版主:
         我用宏设置了链接条件单元格，运算速度很慢且当行数为5000行时，运算就算死了.请各路高手帮忙用SQL语句提高运算速度？多谢！

figfig

原代码速度慢，稍候

[ 本帖最后由 figfig 于 2008-11-28 20:46 编辑 ]

jymao

工作单号有重复的可能吗?搞不清你的数据结构...其实如果不好用ADO查询,可以用遍历啦,可以先把SHEET3的数据放入数组再...

figfig

Sub FIG8()
Dim kk
Set x = CreateObject("ADODB.CONNECTION")

x.Open = "Provider = MSDataShape;data provider=microsoft.jet.oledb.4.0;EXTENDED PROPERTIES='EXCEL 8.0;HDR=YES;';data source=" & ThisWorkbook.FullName

Set Y = x.Execute(" shape {select * from [工单物料需求$]  } append ( {select *  from [MPS$] }   relate 工单号 to 工单号 ) as ddd")
JJ = Y.RecordCount
ReDim kk(1 To JJ, 1 To 4)
J = 1
Do While Not Y.EOF
Set y2 = Y!ddd.Value


If Not y2.EOF Then


kk(J, 1) = y2!料号描述
kk(J, 2) = y2!工单数量
kk(J, 3) = y2!上线日期
kk(J, 4) = y2!上线时间
Else
kk(J, 1) = ""
kk(J, 2) = ""
kk(J, 3) = ""
kk(J, 4) = ""
End If
J = J + 1
Y.movenext
Loop

Sheet2.[c2].Resize(J, 4) = kk

End Sub

tenny67

在EXCEL中用ADO是比较慢的，建议你用VF编写组件，工单数据用DBF存放，在EXCEL中引用组件去运算要快很多