Access 2013 unable to open Excel 2013 object

What is the objective of that line? Comment it out and see how you fare.

The last line makes the "sheet" window visible. Without that line all you get is the Excel application window visible, but the sheet window is still hidden.

refer to http://msdn.microsoft.com/en-us/library/e9waz863(v=VS.90).aspx

I have exactly the same question. Have you found a solution for this?

Thanks

No I have not found a solution. No one seems to have an answer. The only thing I have done is gone back to Office 2010 software. Under Office 2010, Access opens the Excel file properly. Until I find an answer, I am staying with 2010.

I regret having spent the money on Office 2013 only to find it is pretty well useless to me.

The "ExcelObject.NewWindow" sort of works. It works, but not properly. Let me explain.

The first time the excel file is programmatically opened, there are two windows (one blank and the other good). This I can live with. However, the problem arises if you close the Excel file and then decide later you want to reopen the same Excel file programatically. This time there are 3 windows (two blank and one good). Every time you close and reopen the same file programatically, there is another blank window added. The number of blank windows keeps growing each time you close the file and then reopen the file programmatically.

The only way I could reset the number of blank windows back to one is to reboot the computer.

So Access 2013, thumbs down. Access 2010, thumbs up. So back to 2010.

I've had a chance to play around with this some more. I was able to finally get the result I was looking for. Instead of using the original code:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Windows(1).Visible = True

I added a "workbooks" activate line, so that the code now reads:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Application.Workbooks(1).Activate

ExcelObject.Windows(1).Visible = True

Adding the "ExcelObject.Application.Workbooks(1).Activate" solved the problem so that it works the same as pre-2013 Access.

I've had a chance to play around with this some more. I was able to finally get the result I was looking for. Instead of using the original code:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Windows(1).Visible = True

I added a "workbooks" activate line, so that the code now reads:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Application.Workbooks(1).Activate

ExcelObject.Windows(1).Visible = True

Adding the "ExcelObject.Application.Workbooks(1).Activate" solved the problem so that it works the same as pre-2013 Access.

I've had a chance to play around with this some more. I was able to finally get the result I was looking for. Instead of using the original code:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Windows(1).Visible = True

I added a "workbooks" activate line, so that the code now reads:

Dim ExcelObject as Object

Set ExcelObject = GetObject(...filepath...)

ExcelObject.Application.Visible = True

ExcelObject.Application.Workbooks(1).Activate

ExcelObject.Windows(1).Visible = True

Adding the "ExcelObject.Application.Workbooks(1).Activate" solved the problem so that it works the same as pre-2013 Access.