As above, the macro below works to save a file in Business Objects, then
open it in an excel application, where i want to do some basic
formatting changes.
The changes i cnat make it do are removing gridlines, and changing the
zoom settings it say 85%, as when i record a macro these are done using
the 'activewindow' aspect - and i cant make excel the active window!!!
(have left the activewindow.gridlines in as an example, but it wont
work.)


Sub GoodrichExport()

ActiveDocument.SaveAs ("\\lvl-x-user\Crossgate Shared Area\Corporate
Sales\Tim\" & "Tim" & "_" & Format(Date, "yymmdd") & ".xls")
Set xlsApp = CreateObject("Excel.Application")
xlsApp.Visible = True
xlsApp.Workbooks.Open ("\\lvl-x-user\Crossgate Shared Area\Corporate
Sales\Tim\" & "Tim" & "_" & Format(Date, "yymmdd") & ".xls")

With xlsApp
..Worksheets("New").Activate

ActiveWindow.DisplayGridlines = False

End With

End Sub


--
iambalrog
------------------------------------------------------------------------
iambalrog's Profile: http://www.excelforum.com/member.php...o&userid=26977
View this thread: http://www.excelforum.com/showthread...hreadid=553312