break on

$file = @scriptdir + '\test.xls'
if exist($file) del $file endif

global $Array[19] ;20 elements !!

for $i = 0 to ubound($Array)
    $Array[$i] = "Item " + $i
next

$xl = createobject("Excel.Application")
$_ = $xl.WorkBooks.Add
$xl.Range("A2:A"+(ubound($Array)+2)).Value = $Array ;Range should translate to A2:A21 = 20 cells
$_ = $xl.ActiveWorkbook.SaveAs("$file")
$xl.UserControl = 1
$_ = $xl.quit


exit 1

Quote:

---

$file = @scriptdir + '\test.xls'
if exist($file) del $file endif

global $Array[0,19] ;20 elements !!

for $i = 0 to ubound($Array,1)
$Array[0,$i] = "Item " + $i
next

$xl = createobject("Excel.Application")
$_ = $xl.WorkBooks.Add
$xl.Range("A2:A"+(ubound($Array,1)+2)).Value = $Array ;Range should translate to A2:A21 = 20 cells
$_ = $xl.ActiveWorkbook.SaveAs("$file")
$xl.UserControl = 1
$_ = $xl.quit

---

Quote:

---

瑉浥〠

---

Quote:

---

for me it showed pure cryptic chars...
to you too it seems.
I hate this board screwing things up.

---

-> Yep, for me too, there were 3 squares in that cell

Quote:

---

hmm... need a ciggy.
think this is little harder one.
I already got excel screaming with:
$xl.sheets(1).Columns(1).Value = $Array

it seems that Excel does not support this.
like, the programmers never though someone would like to do it this way

---

-> Me too needs a cig ... I too never thought I would need to do it this way round but the amount of data forces me to do so.

Think we have to wait for Shawn (again) on this one