#include <Excel.au3>
Global $hDate = "9/4/2015"
Global $hInvoiceNum = "1000"
Global $hBillName = "Joe Shmoe"
Global $hBillAddress = ""
Global $hBillCity = ""
Global $BillDates[3] = [ 2, "9/4/2015", "9/4/2015"]
Global $BillDescriptions[3] = [ 2, "description", "description"]
Global $BillTotals[3] = [ 2, 4000, 5000]
Global $ItemCount = 0
$oExcel = _Excel_Open(False)
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&": _Excel_Open(False)"&@CRLF)
$oWorkBook = _Excel_BookOpen($oExcel, @ScriptDir&"\Data\Invoice Template.xls", False, False)
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_BookOpen($oExcel, @ScriptDir&"\Data\Invoice Template.xls", False, False)'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $hDate, "F2")
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $hDate, "F2")'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $hInvoiceNum, "F3")
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $hInvoiceNum, "F3")'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $hBillName, "A11")
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillName, "A11")'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $hBillAddress, "A12")
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillAddress, "A12")'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $hBillCity, "A13")
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillCity, "A13")'&@CRLF)
For $i = $BillDates[0] to 1 Step -1
_Excel_RangeWrite($oWorkBook, DEFAULT, "[ "&$BillDates[$i]&" ] "&$BillDescriptions[$i], "A"&(16+$ItemCount))
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, "[ "&$BillDates[$i]&" ] "&$BillDescriptions[$i], "A"&(16+$ItemCount))'&@CRLF)
_Excel_RangeWrite($oWorkBook, DEFAULT, $BillTotals[$i], "F"&(16+$ItemCount))
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_RangeWrite($oWorkBook, DEFAULT, $BillTotals[$i], "F"&(16+$ItemCount))'&@CRLF)
$ItemCount += 1
Next
$hInvoiceNum += 1
$oSave = _Excel_BookSaveAs($oWorkBook, @ScriptDir&"\Compiled Invoices\#"&$hInvoiceNum&" - "&StringReplace($hBillName, ".", "")&".xls", $xlExcel8, True)
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_BookSaveAs($oWorkBook, @ScriptDir&"\Compiled Invoices\#"&$hInvoiceNum&" - "&StringReplace($hBillName, ".", "")&".xls", $xlExcel8, True)'&@CRLF)
_Excel_BookClose($oWorkBook, False)
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_BookClose($oWorkBook, False)'&@CRLF)
_Excel_Close($oExcel)
ConsoleWrite("Err: "&@Error&"; Ext: "&@extended&': _Excel_Close($oExcel)'&@CRLF)My Return: Err: 0; Ext: 1: _Excel_Open(False) Err: 0; Ext: 0: _Excel_BookOpen($oExcel, @ScriptDir&"\Data\Invoice Template.xls", False, False) Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $hDate, "F2") Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $hInvoiceNum, "F3") Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillName, "A11") Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillAddress, "A12") Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $hBillCity, "A13") Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, "[ "&$BillDates[$i]&" ] "&$BillDescriptions[$i], "A"&(16+$ItemCount)) Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $BillTotals[$i], "F"&(16+$ItemCount)) Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, "[ "&$BillDates[$i]&" ] "&$BillDescriptions[$i], "A"&(16+$ItemCount)) Err: 0; Ext: 0: _Excel_RangeWrite($oWorkBook, DEFAULT, $BillTotals[$i], "F"&(16+$ItemCount)) Err: 0; Ext: 0: _Excel_BookSaveAs($oWorkBook, @ScriptDir&"\Compiled Invoices\#"&$hInvoiceNum&" - "&StringReplace($hBillName, ".", "")&".xls", $xlExcel8, True) Err: 0; Ext: 0: _Excel_BookClose($oWorkBook, False) Err: 0; Ext: 0: _Excel_Close($oExcel)