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
39
| Sub Save_CSV()
Dim strOutputFileName As String
'création objet application
Set appBO = CreateObject(Class:="businessobjects.application")
'login : "user","mot de passe", "mode offline"
appBO.LoginAs "", "", False
appBO.Interactive = False
'ouverture de mon rapport BO
Set docBO = appBO.Documents.Open("C:\fichier_entrée.rep")
'passage des paramètres à mes invites créées sous BO
'docBO.Variables.Item("Couleur ?").Value = "Black"
'raffraichissement du rapport
docBO.Refresh
'sauvegarde du rapport raffraichi
docBO.Save
'sélection du premier fournisseur de données
Set boDP = docBO.DataProviders.Item(1)
'déclaration de mon chemin de création du CSV
strOutputFileName = "C:\fichier_sortie.csv"
'export des données du fournisseur vers les formats suivants (ici le 5, export csv)
'1 ni csv ni Excel, 2 Excel .XLS, 3 inconnu, 4 exportCSVTabs, 5 "ExportCSV,", 6 Excel .XLS, 7 erreur
'le second param est le numéro du microcube, 0 indiquant tous les microcubes du fournisseur
Call boDP.ConvertTo(5, 0, strOutputFileName)
'fermeture et désinstanciation des objets
appBO.Quit
Set boDP = Nothing
Set docBO = Nothing
Set appBO = Nothing
End Sub |
