comme ca par exemple ?

Accepted Answer from sandeep_patel
Date: 08/23/2006 03:21AM PDT
Grade: A
Accepted Answer

Hi

you can use following code...

Code: pb

integer result, i , j
string ls_read

OLEObject myoleobject
myoleobject = CREATE OLEObject
result = myoleobject.ConnectToObject( "c:\temp\test.xls")

IF result = 0 THEN
     For i = 1 to 2
          for j = 1 to 2 
               ls_read =  myoleobject.application.workbooks(1).worksheets(1).cells(i,j).value
               messagebox('',ls_read)               
          next
     next
//    myoleobject.application.workbooks(1).save()
END IF

DESTROY myoleobject

once you get value of each cell either you can store in array or directly copy to your datawindow row/column and save datawindow to update value in database.

let me know if you have any query.

Regards,
Sandeep

C'est bon, j'ai fait une bidouille à base de Mod, de Int et de char pour arriver à mes fins

voici la mienne
pour Avoir l'equivalent de la colonne...

long    ll_colonne, ll_result
decimal  ldc_result
long    ll_i

string  ls_colonne[26]
string  ls_nomcolonne

// je mets ici mon n° de colonne
ll_colonne = 173

for ll_i = 1 to 26
  
  ls_colonne[ll_i] = char(64 + ll_i ) 

next

do while ll_colonne > 26
  ldc_result = ((ll_colonne/26) - int(ll_colonne/26)) * 26
  ll_colonne  = int(ll_colonne/26)
  
  if ldc_result > 0 then
    ls_nomcolonne = ls_colonne[ldc_result] + ls_nomcolonne
  else
    ls_nomcolonne = ls_colonne[26] + ls_nomcolonne
  end if
  
loop

if ll_colonne < 27 then
    ls_nomcolonne = ls_colonne[ll_colonne] + ls_nomcolonne
end if


messagebox("Colonne Excel",ls_nomcolonne)