1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
|
Sub openBO()
Dim objBO, objrep
Dim BOCmdBar As CmdBars
Dim BOCmdBarControls As CmdBarControl
Dim BOCmdBarPopup As CmdBarPopup
Dim BOCmdBarButton As CmdBarButton
'Ouvre Business Object
Set objBO = CreateObject("BusinessObjects.Application.11")
'Rentre le login et mdp
objBO.LoginAs "99999", "*****", False, enterprise
'Ouvre le rapport
Set objrep = objBO.Documents.Open("D:\couistelle\test.rep")
objBO.Visible = True
'Rafraichir le rapport
objrep.Refresh
'Sauver les données rafraichies
objrep.Save
'Execute la commande 'copier tout' du menu 'Edition' de BO
'2nd menu et 20ème commandes
' selectionne les données BO et les copie dans Excel
Set BOCmdBar = Application.CmdBars.Item(2)
Set BOCmdBarControls = BOCmdBar.Controls
Set BOCmdBarPopup = BOCmdBarControls.Item(2)
Set BOCmdBarButton = BOCmdBarPopup.CmdBar.Controls.Item(20)
BOCmdBarButton.Execute
.
.
. |
Partager