Pas de problème (pb), que du PowerBuilder (PB) ^^

Le forum (ô combien francophone) des utilisateurs de Powerbuilder.

Recherche rapide

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.

#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: 739
Pépites: 1,028,819
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

 

Pied de page des forums

Propulsé par FluxBB 1.2.22