הרצה ושמירה של דוח

Public Sub test()
Dim BO As busobj.Application
Dim Docs As busobj.Documents
Dim Doc As busobj.Document
Set BO = CreateObject("BusinessObjects.Application.11")
Set Docs = BO.Documents
Set Doc = Docs.Open("C:\My Documents\My Business Objects Documents\userDocs\Document1.rep")
Doc.Refresh
Doc.SaveAs ("c:\tamir.xls")
MsgBox "done"
End Sub