Topic: Api_xls

[Patrick_35]

Hi

Here is a lisp that can read / write Excel sheet by through three applications.
Excel, Open Office or SQL Server

For exemple

Code: [Select]

; Work with an API
(or (setq Mon_Appli (lancer_excel)) ; Excel
    (setq Mon_Appli (lancer_oOo)) ; Open Office
    (setq Mon_Appli (lancer_ado)) ; SQL
)

; list file opened with API
(liste_fichiers_ouverts Mon_Appli) ; Don't work with SQL

; open à file with API
(setq Mon_Xls (ouvrir_fichier Mon_Appli "c:/Test/Test.xls"))

; Tab list of sheets
(liste_feuilles Mon_Xls)

; Active Tab of sheets
(Feuille_active Mon_Xls) ; Don't work with SQL

; Read cell
(lire_cellule Mon_Xls "Feuil1" "A1")

; Write cell
(ecrire_cellule Mon_Xls "Feuil1" "A1" "TOTO")

; Save file
(sauver_fichier Mon_Xls) ; Don't work with SQL

; Close file
(fermer_fichier Mon_Xls) ; Don't work with SQL

; Close API
(fermer_appli (list Mon_Appli Mon_Xls))
ps: There is a problem to correct is to write a cell via SQL only works A1

@+

[Patrick_35]

Hi

A New version (french)

@+