|
FOROS PROFESIONALES
WINDEV, WEBDEV y WINDEV Mobile |
| | | | | |
| Inicio → WINDEV 2025 → comment copier un tableau vers un tableau vers un fichier de traitement? |
| comment copier un tableau vers un tableau vers un fichier de traitement? |
| Iniciado por bchahra, 28,oct. 2004 07:05 - 2 respuestas |
| |
| | | |
|
| |
| Publicado el 28,octubre 2004 - 07:05 |
Bonjour,
je fait presentement un projet qui necessite l importation de donnée d 1 fichier excel par la suite je doit faire des traitements sur ces donnée dans un fichier fic pour une utilisation ulterieur quand j utilise la fonction EcranVersFichier ensuite
Hajoute( MonFichierTemporaire ) et que j ouvre le fichier j ai aucune donnée sauf des 1 ds le premiers champs de touts les enregistrements que j ai copié ds mon fichier !! comment faire pour proceder?
Merci pour le coup de main |
| |
| |
| | | |
|
| | |
| |
| Publicado el 29,octubre 2004 - 02:45 |
slt,
pour de l'import/export excel 3 methodes :
M1 selon pcsoft (LST58) il parait qu'en important le fichier excel dans l'analyse tu peux le gerer comme un fichier HF... Pas teste...
M2 tableversexcel ca marche mais le resultat est brut et non peu programmable
M3 Ma méthode :
il faut :
creer un automation DDEconnecte avec une feuille excel,
utiliser les propriétés VB de excel en remplacant "." par ">"
et lire ou ecrire dans la feuille excel
Je suis pas au bureau, demain je t'envoie un bout de code... |
| |
| |
| | | |
|
| | |
| |
| Publicado el 29,octubre 2004 - 12:02 |
// Connexion Excel
FeuilleXLS est un objet OLE dynamique = ObjetActif("Excel.Application")
Feuillet="Sheet1"
Ecriture fic => Excel
// Boucle de lecture de fichier
LigEnc = 10
HLitPremier(fichier,clef)
TANTQUE PAS H.endehors
// MAJ feuillet Sheet/colA/Lig10 de la feuille Excel
FeuilleXLS>>Sheets(Feuillet)>>Range("A"+LigEnc) = fichier.rub01
// MAJ feuillet Sheet/colB/Lig10 de la feuille Excell
FeuilleXLS>>Sheets(Feuillet)>>Range("B"+LigEnc) = fichier.rub01
LigEnc = LigEnc + 1
HLitSuivant(fichier,clef)
FIN
// Excel => Fic
POUR LigEnc A 409
Cel_Lue_A = FeuilleXLS>>Sheets(Feuillet)>>Range("A"+LigEnc)>>Value
Cel_Lue_B = FeuilleXLS>>Sheets(Feuillet)>>Range("B"+LigEnc)>>Value
Cel_Lue_C = FeuilleXLS>>Sheets(Feuillet)>>Range("C"+LigEnc)>>Value
Fichier.Rub01 = Cel_Lue_A
Fichier.Rub02 = Cel_Lue_B
Fichier.Rub03 = Cel_Lue_c
hajoute(Fichier)
FIN
methode avec feuille excel deja ouverte...
pour ouverture par WD completer avec les lignes ci-apres
// FeuilleXLS est un objet ole dynamique = objetactif("Excel.Application")
// FeuilleXLS = allouer un objet ole "Excel.Application"
FeuilleXLS>>Visible = Vrai
FeuilleXLS>>Workbooks>>Open(wfic)
puis a la fin
FeuilleXLS>>Quit()
LIBERER FeuilleXLS
Bon dev |
| |
| |
| | | |
|
| | | | |
| | |
| | |
| |
|
|
|