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
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:
01651939
Vues:
80
>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 )
>
Are you able to open that file from Excel directly?
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform