Help Closing Excel Workbook from MS Access

[Liz_I3]

Hi
I need a separate proceedure to close an already open workbook in excel 2010 from ms access 2010.
This is what I have but I cannot get it to work Thanks

Sub CloseExcel()
Dim wb As Excel.Workbook
Dim xlApp As Excel.Application

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

Set wb = xlApp.Workbooks.Open("C:\Payroll_Summary.xls")
wb.Close True
xlApp.Quit
Set xlApp = Nothing

End Sub

 

[Norie]

That should work, how isn't it working?

 

[Liz_I3]

It just flashes on the screen. I think it reopens the workbook and then closes it, but the original file is still open. I opened it in another procedure modified it and then import the file to access. This all work fine. But once that is finished I wanted to close the workbook without saving it.
But all the code I look at looks like the one I have.
Thanks for looking at it with me

Liz

 

[Norie]

When are you actually opening the workbook and what are you doing when you open it?

 

[Liz_I3]

I open it up with another sub procedure in Access very similar to the one above, it opens up the workbook and deletes the first 4 rows and the last row. Then I run a query in access that imports the workbook to a temp table and then a second query that appends it to my table. Then I wanted to close the excel file without saving the changes. I all work fine until I run the close sub.

Liz

 

[Norie]

Liz

Can't you close the file in the sub that opens it?

 

[Liz_I3]

I could give it a go and see what happens. Thanks Ill let you know tomorrow if it works

Liz

 

[Liz_I3]

Thanks for your help Norie, having it all in the same sub procedure work
Liz