Search Forum Home   Visual FoxPro  Office Automation  Cautare in Exce...  Cautare in Excel..    5/19/2011 4:58:07 PM aranox 272 posts Cautare in Excel..  (Romania) Cum pot face urmatoarea cautare ... Mai multe fisiere XLS Sa caute in fiecare un anumit text si sa imi afiseze din fiecare XLS gasit, randul si denumire XLS'ului... avand in vedere ca coloanele in fisere sunt diferite...si ca numar si ca continut.. Orosz Lorand  5/20/2011 9:32:30 AM Romeo 527 posts Re: Cautare in Excel..  (N/A) Incearca pe forumul: http://www.itlearning.ro/forum/viewforum.php?f=78&sid=a507709cc45d287960ce531f1779f3a0 Slava Tatalui si Fiului si Sfantului Duh si acum si pururea si-n vecii vecilor. Amin.  5/20/2011 12:27:45 PM Daniel Buduru 2334 posts Re: Cautare in Excel..  (N/A) Ai aici un exemplu de cod care cauta un sir intr-un fisier excel CREATE CURSOR crsresult (filename c(250), sheetName c(100), address c(10), row i, col i) oxl=CREATEOBJECT('excel.application') lcfile=GETFILE('xl*') lcFind='text de cautat' oxl.workbooks.open(lcfile) owb=oxl.ActiveWorkbook FOR EACH osht IN oxl.ActiveWorkbook.sheets    ofoundcell=osht.cells.find(lcfind,osht.range('a1'),-4163,2,1,1,.f.,.f.,.f.)    IF ISNULL(ofoundcell)       LOOP    ENDIF    firstaddress=ofoundcell.address    DO WHILE !ISNULL(ofoundcell)     INSERT INTO crsresult VALUES (owb.name,osht.name,ofoundcell.address, ofoundcell.row,ofoundcell.column)     ofoundcell=osht.cells.find(lcfind,ofoundcell)     IF !ISNULL(ofoundcell) AND ofoundcell.address=firstaddress        EXIT     ENDIF    ENDDO  NEXT owb.close Daca nu vrei sa folosesti automation, exista si o varianta cu deschiderea fisierului printr-o conexiune odbc sau ado. Daniel Buduru  Page 1 of 1   Visual FoxPro  Office Automation  Cautare in Exce... Flat View Tree View Oldest To Newest Newest To Oldest