General information
Category:
COM/DCOM and OLE Automation
Title:
Trying to open an Excel file Part 2
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
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only