ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

AppendFromXLSX   



L'auteur

Vilhelm-Ion Praisach
Roumanie Roumanie
Membre Simple
# 0000004149
enregistré le 09/01/2015

http://praisachion.blogspot.ro
Praisach Vilhelm-Ion
Fiche personnelle


Note des membres
pas de note

Contributions > 01 - PRG : Programmation > Import - Export

AppendFromXLSX
# 0000000901
ajouté le 21/06/2015 10:47:47 et modifié le 03/09/2015
consulté 3562 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0


Télécharger le ZIP (3.40 Ko)
Description
Ceci est la paire de copytoxlsx

Nouveau version
- Importe les données du document xlsx, dans un curseur ou une table déjà existante et ouvert.
- Le type de champ et le nom sont ceux du curseur / table (aucun validations sont effectuées)
Append from xlsx 1.3
ou
http://praisachion.blogspot.ro/2015/09/appendfromnxlsx-13.html

Import from xlsx
- Retourner le nom de la table / cursor généré; le meme nome avec xlsx / SYS(2015)
- Analyser la première (importé) ligne de la table du xlsx, et obtenir le nombre de colonnes et les types de données à partir de cette ligne
- Crée un DBF / cursor (selon le sixième paramètre)
- Et remplir ce DBF avec les données du xlsx
- Le champs sont nommés mField1, mField2 etc.
- La taille et la précision du champ numérique est calculé avec MAX (LEN (ALLTRIM (valeur de la cellule))), respectivement avec MAX (LEN (ALLTRIM (valeur de la cellule)) - AT (séparateur décimal, ALLTRIM (valeur de la cellule))
- La longueur des champs de caractères est MAX (LEN (valeur de la cellule))
- Si MAX (LEN (valeur de la cellule))> 254 ou contient un CHR(13), le champ est MEMO
Import from xlsx 1.1
ou
http://praisachion.blogspot.ro/2015/08/importfromxlsx-11.html


Code source :
* 1) Importer dans l'alias de courant
= appendfromxlsx('MonFichierExcel.xlsx')
* 2) Importer dans MonTableau
* MonTableau doit etre ouvert
= appendfromxlsx('MonFichierExcel.xlsx''MonTableau')
* 3) Importer que les colonnes Champ1 et Champ2
= appendfromxlsx('MonFichierExcel.xlsx' , , 'Champ1,Champ2')
* 4) Éviter le premier ligne, et commencer avec le second
= appendfromxlsx('MonFichierExcel.xlsx' , , , 2)
* 5) Importer une feuille spécifique
= appendfromxlsx('MonFichierExcel.xlsx' , , , , 'Nom de la feuille')

Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2016.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0