Fixed length values in Array

#include <Array.au3>
Global $FirstNumber = "ABCD001"
Global $amount = "999"
 
Local $a = StringToASCIIArray($FirstNumber, 0, 4)
 
Dim $arr[1][$amount + 1]
For $i = 0 To 0
    For $j = 0 To $amount - 1
        $arr[$i][$j] = Chr($i + $a[0]) & Chr($i + $a[1]) & Chr($i + $a[2]) & Chr($i + $a[3]) & ($j + 1)
    Next
Next
;_ArrayDisplay($arr)
 
$MyExcel = ObjCreate("Excel.Application") ; Create an Excel Object
 
If @error Then
    MsgBox(0, "", "Error creating Excel object. Error code: " & @error)
    Exit
EndIf
 
If Not IsObj($MyExcel) Then
    MsgBox(0, "ExcelTest", "I'm sorry, but creation of an Excel object failed.")
    Exit
EndIf
$MyExcel.Visible = 1
$MyExcel.workbooks.add
 
; Set all values
$MyExcel.activesheet.range("A1:A" & $amount).value = $arr
MsgBox(0, "", "Click 'ok' to clear the cells")
$MyExcel.activeworkbook.saved = 1 ; To prevent 'yes/no' questions from Excel
$MyExcel.quit ; Get rid of him.
$MyExcel = 0 ; Loose this object.
Exit