PB à toute heure et à tout moment. (à parcourir avec modération)

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