A
AnandaSim
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 ===============
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 ===============