Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
OLE Error with Excel opening a DBF file
Message
 
À
12/06/2017 15:44:46
Al Doman (En ligne)
M3 Enterprises Inc.
North Vancouver, Colombie Britannique, Canada
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows 10
Network:
Windows Server 2012 R2
Database:
MS SQL Server
Application:
Desktop
Divers
Thread ID:
01651937
Message ID:
01651945
Vues:
61
>An app has a function to save VFP data as a .XLSX file. The code below is 100% reliable on machines running Excel 2007 on Windows 7. On some machines with Windows 10 and Excel 2016, it fails when a call is made for Excel to open the FOX2X file.
>
>Does anyone have any ideas why Excel 2016 and/or Win10 might not like this code?
>
>
>* Get Excel application object:
>m.loExcel = CREATEOBJECT( "Excel.Application" )
>
>* Data munging to create a VFP cursor happens here
>
>* Save the cursor to a FOX2X file that can be opened by Excel:
>m.lcDBF2X = ADDBS( SYS( 2023 ) ) + SYS( 2015 ) + ".DBF"
>
>COPY ALL TO ( m.lcDBF2X ) TYPE FOX2X
>
>* The following DOEVENTS call "fixed" OLE errors long ago with Win7/Excel 2007:
>DOEVENTS FORCE
>
>* Open the FOX2X DBF in Excel, save to .XLSX format:
>m.loExcel.DisplayAlerts = .F.
>
>* The next line is the one that throws errors:
>m.loWorkbook = m.loExcel.Application.Workbooks.Open( m.lcDBF2X )
>
Why not just COPY ALL TO ( m.lcDBF2X ) TYPE XLS?
(of course you should change extension)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform