xmqpqx
xmqpqx
关注数: 5
粉丝数: 10
发帖数: 421
关注贴吧数: 9
求助sql查询明细小计合计语句
求助sql查询明细小计合计语句
求助sql查询明细小计合计语句
ADO链接速度问题求助 Sub 查询() t = Timer Set xSh = ThisWorkbook.Worksheets(Sheet1.Name) Set sRan = xSh.Range("E1") Set conn = New ADODB.Connection conn.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name conn.Open If conn.State = adStateOpen Then sSql = "Select top 4700 数据二 From [" & Sheet1.Name & "$] " sRan.Offset(1, 0).CopyFromRecordset conn.Execute(sSql) conn.Close End If Set conn = Nothing MsgBox Timer - t End Sub 在2007的excel中，以上是2003的链接语句，同样的语句只是修改为2007的链接（conn.ConnectionString = "Provider=Microsoft.ACE.Oledb.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name）后速度慢很多，要是数据多的话2007的链接语句要慢几十倍，是什么原因呢？有什么办法优化。谢谢！
循环问题求助，谢谢！ sub xh() k=1 for i= 1 to 10000 for ii= 1 to 10000 sheet1.cells(k,3)=sheet1.cells(i,1)&sheet1.cells(ii,2) k=k+1 next ii next i end sub 这段代码要运行1000秒左右，如果数据更多的话就死机啦。请问有何解决方法
VBA循环问题，请求优化或新方法。谢谢！ sub xh() k=0 for i= 1 to 10000 for ii= 1 to 10000 sheet1.cells(k,3)=sheet1.cells(i,1)&sheet1.cells(ii,2) k=k+1 next ii next i end sub 这段代码要运行1000秒左右，如果数据更多的话就死机啦。请问有何解决方法。
1
下一页
