LotusScript - Excel Range

Hi,

Error:"Object not found ..."
Reasons:When excel column reach "AB" chr(i) no longer working
Question:Any workaround/fix ?

i=97
For x = Lbound(ArrName) To Ubound(ArrName)
i = i + 1
ctr = ctr + 1
xlSheet.Range(Trim(Chr(i)) & Cstr(ctr)).Value = ArrName(x)
..

Lotus IBM

Last Comment

olaraak

8/22/2022 - Mon

olaraak

4/14/2008

Alphabet:
A=Chr(65)...Z=Chr(90)

How you want to fill your sheet?
Usually it is filled by column like this:

rem  if we use only column A, 
rem  then i=65
rem  file = excel file object
 
rownumber = 1
 
For x = Lbound(ArrName) To Ubound(ArrName) 
  
   cellname$ = chr(i) & cstr(rownumber)
   file.range( cellname$ ).Select
   file.Activecell.FormulaR1C1 = ArrName(x)
   rownumber = rownumber + 1
 
End For
 
rem If you need to change column, then substitute needed number for i