problème lecture Cellule Excel (Saut de ligne) ADO composant

Question

Bonjour à tous :-)


je développe actuellement un soft permettant de consulter un fichier excel, celui-ci comporte les compo suivant (Adotable, Adoconnection, datasource).

tout fonctionne relativement bien pour la lecture des cellules, sauf pour celles qui comporte un saut de ligne (ALT+ENTREE).

La valeur retourné par adotable1.findfield('Cellule 1').Asstring est Nulle.

Avez vous une solution ?

Merci d'avance pour votre aide.

Bonne soirée  :-)

cs_cantador · Answer

Bonjour,

tu peux peut-être effacer les retours chariots ou ne pas les prendre en compte ?

cantador

WhiteHippo · Answer

Bonsoir

Et avec adotable1.findfield('Cellule 1').Value ? 

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

spadus · Answer

Merci pour vos réponses cantador et whitehippo

Malheureusement en accédant a adotable1.findfield('Cellule 1').Value celle-ci fonctionne pour une chaine de caractère simple, mais par contre lorsque le contenu de la cellule a un saut de ligne j'ai l' exception suivante :  Evarianttypecasterror avec le message 'Impossible de convertir le variant de type (Null) en (Olestr).


je ne sais pas si il y a possiblité au composant adotable d'ignorer le saut de ligne.

Merci d'avance pour vos futures réponses.

cs_cantador · Answer

adotable1.findfield('Cellule 1').Text;

ça donne quoi ?


cantador

spadus · Answer

cantador.


même soucis, il me retourne un string vide.

cs_cantador · Answer

et sans retour chariot

adotable1.findfield('Cellule 1').Text;

te renvoie une valeur ?

cantador

cs_cantador · Answer

utilises-tu une liaison OLE pour accéder
à la feuille de calcul EXCEL ?


cantador

spadus · Answer

Merci tout d'abord cantador de t'interessé a mon problème 

J'utilise le jeux de composant suivant

ADOconnection
ADOtable
Datasource

voici les paramètres de connection de mon ADOconnection

[i]with ADOConnection do
    begin
    Provider:='MSDASQL.1;';                           //
    ConnectionObject.Properties['Data Source'].Value:='Fichiers Excel';
    // ConnectionObject.Properties['Extended Properties'].Value:='"DSN=Fichiers Excel"';
    // ConnectionObject.Properties['Mode'].Value:='Mode=Read';                                                                       // ;Mode=Read ;Mode=Read   ...  ;Readonly=0;    adModeReadWrite
    s1 := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=Fichiers Excel;Extended Properties="DSN=Fichiers Excel";DBQ=';
    s2 := ';DefaultDir=D:\Projets_2007\Cellule de gestion;DriverId=790;FIL=excel 8.0;MaxBufferSize=2048;PageTimeout=5;"';
    s  := s1 + chemin_fichier_excel + s2 ;
    ADOConnection.ConnectionString  := s;
    end;/i

WhiteHippo · Answer

Bonsoir

J'ai testé avec excel 2003 (classeur avec une seule feuille dont la première cellule contient la valeur "Cellule 1" et celle en dessous une chaine quelconque avec un saut de ligne), et les mêmes composants que toi plus un DBGrid histoire de... 

Voici le mini code, vite fait mal fait , utilisé pour le test :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOConnection1.ConnectionString := 'Provider=MSDASQL.1;'
                                  +  'Persist Security Info=False;'
                                  +  'Data Source=Fichiers Excel;'
                                  +  'Initial Catalog=c:	emp\classeur1.xls'
                                  ;
  ADOConnection1.LoginPrompt := False ;
  ADOConnection1.Connected := TRUE ;  

  ADOTable1.Connection := ADOConnection1 ;
  ADOTable1.TableName := '[Feuil1$A1:B100]' ;
  ADOTable1.Active := TRUE ;

  DataSource1.DataSet := ADOTable1 ;

  DBGrid1.DataSource := DataSource1 ;

  caption := ADOTable1.findfield('Cellule 1').Asstring ;
end;

Je n'ai pas rencontré de problèmes pour récupérer le saut de ligne. 
Celui-ci apparait comme un #$A en utilisant "adotable1.findfield('Cellule 1').Asstring". 

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

WhiteHippo · Answer

Bonjour

Spadus, as-tu trouvé d'où vient ton problème ?

Cordialement.[hr]"L'imagination est plus importante que le savoir." Albert Einstein

Problème lecture Cellule Excel (Saut de ligne) ADO composant

10 réponses

Votre réponse

Discussions similaires