Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Trying to open an Excel file Part 2
Message
From
05/07/2006 16:03:28
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
Trying to open an Excel file Part 2
Environment versions
Visual FoxPro:
VFP 7 SP1
OS:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01133976
Message ID:
01133976
Views:
56
The reason I'm "trying to open an Excel file" is to make sure the first worksheet is of the proper name, otherwise rename it (or just rename it anyway) so when I pull information from that file I can properly reference which worksheet to use.

I may be trying to go about this in an awkward way...

****New code to change workbook name START
oleApp = Createobject("Excel.Application") && Start Excel.
oleApp.Workbooks.Open.FILENAME:=(&xlsfile)
oleApp.Sheets("Sheet1").Select
If oleApp.Sheets("Sheet1").Name = "Sheet1"
oleApp.Sheets("Sheet1").Name = "new order file"
Endif
If oleApp.Sheets("NOF").Name = "NOF"
oleApp.Sheets("NOF").Name = "new order file"
Endif
oleApp.ActiveWorkbook.Save
oleApp.ActiveWindow.Close
oleApp.Quit &&Quit Excel
****New code to change workbook name END

...and I'm still not sure it will respond correctly once it does recognize the xlsfile.

Thanks!
Next
Reply
Map
View

Click here to load this message in the networking platform