VBA and Excel

I have the following code which I am using in BusinessObjects. The code is 
contained in a procedure that saves the BusinessObjects file as an Excel
File.

What I want to do is format the Excel file before saving it. Does anybody 
have an idea as to how I can programatically open and modify the 
ActiveDo***ent in VBA and format it tru VBA?

Thanks

M. Hussaini


On Error GoTo Emsg
  
  Dim doc As Do***ent
  Dim body As String
  Dim Re****tName As String
  Dim locPath As String
  Dim objExcel As Object
  Dim myObjExcel As Excel.Worksheet
  Dim myObjWorkBook As Excel.Workbooks
  
  
  dDate = Format((Now() - 27), "mmmm dd, YYYY")
   
  Set doc = ActiveDo***ent
  doc.Refresh
  
  
  locPath = "\\Fpptc01vgc02\O_drive\Sales\DomSales\Private\Sales
Re****ting\"
  Re****tName = ActiveDo***ent.Name & ".xls"
  
'-----------------------------------------------------
  'Deleteing  old re****t
  '------------------------------------------------------------
  
  'Kill locPath & "\" & Re****tName & ".xls"

  '-----------------------------------------------------
  'Saving  re****t
  '------------------------------------------------------------

  doc.SaveAs (locPath & "\" & Re****tName & ".xls")