Delphi excel screenupdating sex dating in rich mississippi
Hi all, Sorry, I was out of town for the past few days, but I'm back now. Workshop Alex, I like XML also, for certain things.
Russell, I will try your example today and see how long it takes on my PC. If so, what do you use as a reference document for the available Excel functions? I don't think it is very fast when it comes to moving large amounts of data around, and speed is all I care about in this case.
Add() Show Excel Status("After New Sheet Orworkbook") ' End Sub Sub Show Excel Status(By Val s Step As String) Msg Box("Step : " & s Step & ", Screen Updating:" & CStr(gxl App.
Sorry for wasting your time if you tried to reproduce the issue.
Display Alerts = False Dim r Cell As Range For Each r Cell In Range("Files") Application.
Window State = xl Minimized End With 'Flickery code With Application . are you using it to deliberately hit an error and then move on to the next line of code?
Close Save Changes:=True End If Next r Cell Application. Status Bar = "Please wait while files are closed." doevents 'magic trick .
Screen Updating = False .displaystatusbar = true 'kinda need this line .
I found that I can run up excel, paste 60K rows of data (~60 bytes per row / 7 columns) and show Excel in about 1.6 seconds.
You might try running this simple late bound example to determine the time it takes, and base that against the time your example takes. Paste; finally // Release interface ov Sheet:=Unassigned; end; finally // Release interface ov Work Book:=Unassigned; end; // Make excel visible ov App.