Record limit in copying to Excel

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Record limit in copying to Excel

Message

21/08/2002 11:52:59

Adrián Hernández
Distribución Ingusa, S.A. de C.V.
Guadalajara, Mexique

13/08/2002 07:53:06

Martin Urbel
Novamed Corporation
Trumbull, Connecticut, États-Unis

Information générale

Forum:

Visual FoxPro

Catégorie:

Autre

Titre:

Re: Record limit in copying to Excel

Divers

Thread ID:

00689052

Message ID:

00692008

Vues:

Try this:

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

You can use it for Excel 97 and 2000

By two common phrases in his vocabulary, we know Hercule Poirot was a great Developer: his use of "the little grey cells" and "order and method".

Répondre

Fil

Voir

Click here to load this message in the networking platform