Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
COPY TO x TYPE XL5
Message
 
À
23/01/2001 09:54:48
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00467264
Message ID:
00467432
Vues:
11
>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
________________________________
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform