Pas d'inquiétude, avec PBAdonf, c'est dans la poche ! ^^
Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Annonce
Certaines rubriques, dont des cours, sont uniquement visibles par les membres du forum ^^.
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.
#1 17-11-2020 13:21:12
- bdf94
- Membre Power Geek
- Date d'inscription: 04-10-2006
- Messages: 180
- Pépites: 2,231
- Banque: 0
Test Excel Workbooks.Open
Bonjour,
Dans le type de script ci-dessous, est-ce que quelqu'un sait s'il est possible de tester la ligne "myoleobject.Application.Workbooks.Open" par exemple histoire d'avoir un return et voir si ça s'est bien exécuté ?
Code: pb
OLEObject myoleobject myoleobject = CREATE OLEObject IF myoleobject.ConnectToNewObject( "excel.application" ) = 0 THEN myoleobject.Application.Workbooks.Open( "c:\Temp\toto.html") myoleobject.Application.DisplayAlerts = FALSE myoleobject.Application.Workbooks(1).Parent.Windows( myoleobject.Application.Workbooks(1).Name).Visible = True myoleobject.Application.Workbooks(1).SaveAs( "c:\Temp\toto.xls", 39) myoleobject.Application.Workbooks(1).CLOSE() FileDelete ( "c:\Temp\toto.html") END IF
Hors ligne
#2 18-11-2020 09:54:56
- buck
- Modérateur
- Lieu: Dijon
- Date d'inscription: 31-07-2008
- Messages: 747
- Pépites: 1,028,843
- Banque: 171,170,849,654
Re: Test Excel Workbooks.Open
Bonjour,
Sinon, tu peux procéder de cette manière :
Code: pb
lole_excel = CREATE OLEObject IF lole_excel.ConnectToObject( as_filename ) = 0 THEN ....
Hors ligne
