Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Create current version XLS File
Message
From
15/09/2006 10:06:58
Sergey Berezniker
New York, United States
 
 
To
15/09/2006 09:58:37
Malcolm Donald
Accelerant Inc.
West Falmouth, Massachusetts, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Create current version XLS File
Environment versions
Visual FoxPro:
VFP 9 SP1
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01154055
Message ID:
01154078
Views:
16
This message has been marked as the solution to the initial question of the thread.
>I'm using Excel automation in VFP.
#DEFINE xlWorkbookNormal -4143	
LOCAL oExcel AS Excel.Application
lcXlsFile = FULLPATH("Test.xls")
COPY TO (lcXlsFile) XL5
oExcel = CreateObject("Excel.Application")
oExcel.DisplayAlerts = .F.
*oExcel.Visible = .T.
oWorkbook = oExcel.Workbooks.Open(lcXlsFile)
oWorkbook.SaveAs(lcXlsFile, xlWorkbookNormal)
oExcel.Quit
--sb--
Previous
Reply
Map
View

Click here to load this message in the networking platform