View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
AnandaSim AnandaSim is offline
external usenet poster
 
Posts: 10
Default Excel: A document with the name is already open

This simple Excel automation from Access (both '97) is giving me
problems:

1. I do an OutputTo or a TransferSpreadsheet.
2. I use Automation to carry out one manipulation with Excel
3. I save the workbook and close the workbook and quit Excel.

However, when I run Excel and open the workbook directly, I am still
getting the "Document already open" dialog. I can't see Excel in
TaskManager Apps or Processors before I launch Excel manually.

Any help appreciated.

Ananda


============ Code below: ================


DoCmd.OutputTo ObjectType:=acTable, _
objectname:=kstrTempTablename, _
outputformat:="MicrosoftExcel(*.xls)", _
Outputfile:=strFQN, _
Autostart:=False

If fIsAppRunning("Excel") Then
Set objXL = GetObject(, "Excel.Application")
boolXLwasThere = True
Else
Set objXL = CreateObject("Excel.Application")
boolXLwasThere = False
End If

objXL.Workbooks.Open strFQN

Set objWBK = objXL.Workbooks(1)

objWBK.Worksheets(1).Cells.EntireColumn.AutoFit

objWBK.Save

objWBK.Close SaveChanges:=False

Set objWBK = Nothing

If Not boolXLwasThere Then
objXL.Quit
End If

Set objXL = Nothing

====== End Code ===============