WD importation de gros fichier excel vers HFSQL ou le parcourir

The code cripples text field to 50 alphabets length while converting to HFSQL from excel.

 

Bonjour à tous,

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

The thought that you were able to correct by yourself, line 157 and 188 of the procedure "ImportXLSvXXL".

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Tu as regardé les imports, par exemple celui de PhpMyAdmin, il suffit de convertir le fichier Excel en fichiers texte, type CSV pour les DATA, et un SQL pour la création de la table.

A+.

 

Bonjour

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

,
Pourrai tu m'aider sur une préoccupation stp.

J'ai fichier excel déjà renseigné, je veux avoir le même rendu des données saisies sous excel dans un champ RTF (HTML).
je ne sais comment m'y prendre.

Quand sélection la plage de données dans mon fichier excel avec copier et que je colle dans mon champ HTML, le rendu est correcte.
Je veux pouvoir le faire autrement en d'autre termes par programmation.

NB : Si possible enregistrer le contenu en image puis le récupérer dans le champ image.

Merci de ton aide.

Ci-joint les captures .

 

Salut

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

,

La commande Excel en VBA de ta manipe est Range + Copy, voici un exemple une fois le fichier Excel ouvert en objet OLE :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

On peut récupérer le contenu directement en RTF pour le mettre en base de données, dans un champ mémo du type binaire ou unicode.
Une fois la validation du fonctionnement, il faudra se pencher sur le calcul du nombre de lignes et peut-être aussi des colonnes, en cherchant les lignes vides ou avec la commande ">>End(nXlDown)".

Pour l’enregistrement en image, je n’ai pas d’idée pour l’instant, et je ne sais pas non plus si on peut enregistrer un champ HTML en image.

A+.

 

Merci

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

, Pour ta reponse

Voici ce que j'ai pu faire et il marche super bien quand le masque de saisie du champ RTF est 'RTF', quand je mets 'HTML' il passe pas je pense que je dois gérer les balises pour sa. mais mon pbm est plus ou moins résolu.

// Classe de pilotage de Excel
gpclExcel est un objet dynamique cNFSTableau

// Variable
sClasseur est une chaîne

SI sClasseur="" ALORS
// Sélection ou création d'un fichier Excel
sClasseur=fSélecteur("","","Sélectionnez un document...",...
"Document Excel (*.XLSX)"+TAB+"*.XLSX","XLSX",...
fselOuvre)

// Aucun fichier sélectionné
SI sClasseur="" ALORS RETOUR
FIN

nLignes est un entier
nColonnes est un entier
sColDefaut est une chaîne

// Ouverture d'un fichier XLS
IDFichierXLS est un entier = xlsOuvre(sClasseur)
SI IDFichierXLS = -1 ALORS
RETOUR
FIN

// Nombre de Lignes
nLignes = xlsNbLigne(IDFichierXLS)

// Nombre de Colonne
nColonnes = xlsNbColonne(IDFichierXLS)

// Colonne de sélection départ
sColDefaut = "A1"

// Allocation de l'objet Excel
gpclExcel = allouer un cNFSTableau(Vrai)

// Ouvre le sClasseur
gpclExcel.OuvrirClasseur(sClasseur)

// Rendre invisible le sClasseur
gpclExcel:m_pautExcel>>visible=OLEFaux

// Copie de la zone delimitée par le nobre de Ligne et Colonne
gpclExcel:Copier(sColDefaut + ":" + gpclExcel:LettreColonne(nColonnes) + nLignes)

// Résumé : On demande au presse papier de nous restaurer la copie éffectué
PressePapierRestaureCopier()

// Ferme le sClasseur
xlsFerme(IDFichierXLS)

// On quitte Excel pour éviter que Excel se mette en erreur
gpclExcel:Quitter()
gpclExcel=Null // Libère l'objet Excel

RepriseSaisie(SAI_Texte_RTF)


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
PROCEDURE OuvrirClasseur(sClasseur="")

SI sClasseur="" ALORS
// Sélection ou création d'un fichier Word
sClasseur=fSélecteur("","","Sélectionnez un document...",...
"Document Excel (*.XLSX)"+TAB+"*.XLSX","XLSX",...
fselOuvre)

// Aucun fichier sélectionné
SI sClasseur="" ALORS RETOUR
FIN

QUAND EXCEPTION DANS
// on ouvre le classeur demandé
:m_pautExcel>>Workbooks>>Open(sClasseur)
// Rendre visible
:m_pautExcel>>visible=Vrai
FAIRE
:MsgErreur("Impossible d'ouvrir le classeur.",ExceptionInfo())
RETOUR
FIN


/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
PROCEDURE Copier(sPlage="")

// sélection de la plage de cellules
SI sPlage<>"" ALORS
:SelectionnerCellules(sPlage)
FIN

QUAND EXCEPTION DANS
// copier de la zone
:m_pautExcel>>Selection>>Copy()
FAIRE
RETOUR
FIN


////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Résumé : On demande au presse papier de nous restaurer la copie éffectué
//
PROCEDURE PressePapierRestaureCopier()

SI PressePapierFormat(ppfTexte) ALORS

// récupère le texte dans le presse-papier //

// Redimensionner le champ image en fonction de la taille de l'image
IMG_PressePapier..Largeur = PressePapierLargeur()
IMG_PressePapier..Hauteur = PressePapierHauteur()

// Copier l'image dans le champ image
PressePapier(IMG_PressePapier)

nWM_PASTE est un entier = 0x0302
//On indiquer que le champ RTF est modifié
SAI_Texte_RTF..Modifié = Vrai
// Faire un coller de l'image dans le champ de saisie
SendMessage(Handle(SAI_Texte_RTF), nWM_PASTE, 0, 0)

FIN

 

Bonjour a tous
j'arrive un peu tard sur ce file .. mais je suis tres interessé par cet outil d'importation XSL , cependant le lien de chargement n'existe plus , sniff .
est ce qu'une bonne âme aurait il la gentillesse de me donner un lien ? ( je suis novice et j'ai franchement du mal avec ce code .. )
je precise que c'est pour webdev et que apparamment la fonction fselecteur n'existe pas dans webdev..
Merci D'avance

 

Bonjour à tous,

voici la version 1.0.8..0 (Exe + sources en WD 22) :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

A+.

 

Bonsoir FreudWD, SVP votre lien ne passe plus. Merçi d'avance

 

Bonjour à tous,

Nouveau lien,version 1.0.8..0 (Exe + sources en WD 22) :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

A+.

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour à tous,

Nouveau lien,version 1.0.8..0 (Exe + sources en WD 22) :

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

A+.

Cliquez pour agrandir...