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

---