Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
COPY TO x TYPE XL5
Message
 
To
23/01/2001 09:54:48
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00467264
Message ID:
00467432
Views:
10
>I used the COPY TO TYPE XL5 to copy 4 small char fields to a spreadsheet. The table has around 35,000 records but only 16,870 records copy over.
>Any thoughts appreciated.
>
>Much Thanks
>Jeff

I use AUTOMATION to open it and save it with "SAVE AS XLS".
Example:
USE MyTable &&  RECCOUNT("MyTable") > 16384 records !!!
lcDBF = "C:\MyDBF.dbf"
lcXLS = "C:\MyXLS.xls" 
COPY TO (lcDBF) TYPE FOX2X AS 850
loExcel = CREATEOBJECT("Excel.Application")
WITH loExcel.Application
  .Workbooks.Open(lcDBF)
  .ActiveWorkbook.SaveAs(lcXLS, -4143, "", "", .F., .F.)
  .Workbooks.Close
ENDWITH
RELEASE loExcel
Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Nada corre como un zorro
________________________________
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform