Using the OP's original train of thought, this is what I just wrote. Seems like poor work-around to the problem, but it works.
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
Set xlBook =...