Re: Copy To Q.



I was talking about the _VFP.DataToClip(). What I have seen is that a row
by row process may take 10-20 seconds (give or take), while the DataToClip()
is a fraction of a second, say for about 2 to 3K rows. It's probably very
dependant on cell formatting, number of columns, and other factors, too.
YMMV

--
Fred
Microsoft Visual FoxPro MVP


"Carsten Bonde" <bonde AT real-inkasso DOT de> wrote in message
news:%231YaNGMzGHA.5072@xxxxxxxxxxxxxxxxxxxxxxx
Hi,

i havn't measured it either, but Dan is right. Reading and writing cell by
cell It is significant slower than "APPEND FROM" and "COPY TO"

--
Cheers
Carsten
_______________________________

"Fred Taylor" <ftaylor@xxxxxxxx!REMOVE> schrieb im Newsbeitrag
news:u$7x3pJzGHA.4408@xxxxxxxxxxxxxxxxxxxxxxx
40%? It's always been way better than that for me, but I've never
measured it.

--
Fred
Microsoft Visual FoxPro MVP


"Dan Freeman" <spam@xxxxxxxxxxxxx> wrote in message
news:uFdcJiEzGHA.1936@xxxxxxxxxxxxxxxxxxxxxxx
If you are considering automation, note that going cell-by-cell will be
the
slowest way possible.

Since you're starting from a place where COPY TO is viable, try this:

loExcel=CreateObject("excel.application")
loWB = loExcel.Workbooks.Add

SELECT (yourdbf)
Go Top
_vfp.DataToClip(Alias(),Reccount())
loWB.Paste()

Using the clipboard to move all records at once can be as much as 40%
faster
than going cell-by-cell.

Dan


Carsten Bonde wrote:
Jonathan,

have you considered filling a *** using automation?

loExcel= createobject( "excel.application")
loWB= loExcel.Workbooks.Add
loSH= loWB.Sheets.Item(1)
loSH.Cells(1,1) = 123
loSH.Cells(2,1) = "'123"
loExcel.Visible= .T.



"Quickbuzz charter.net>" <quickbuzz@<REMOVE> schrieb im Newsbeitrag
news:1156815964_4553@xxxxxxxxxxxxxxxxxxxxxxx
How when using the COPY TO command do you keep the numeric fields
numeric and character fields character when copying to XLS?

Respectfully,

Jonathan Morningstar


----== Posted via Newsfeeds.Com - Unlimited-Unrestricted-Secure
Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World!
120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption
=----








.