[Solved] _Excel_RangeWrite Problem

[SkysLastChance]

Why is my code not writing X in cell D1? 

#include <Excel.au3>

Global $r = 1,$oExcel

Excel ()

Func Excel()
    While ProcessExists("EXCEL.EXE")
        $ms = MsgBox(5,"","Process error.  You have an Excel sheet open.  You must close it in order to let this program work.  Please close it now.")
            If $ms=2 Then Exit
    WEnd

    Local $sExcelFile = FileOpenDialog("Choose/Create Excel File", @ScriptDir, "(*.xlsx)")

    If FileExists($sExcelFile) Then
        $oExcel = _Excel_Open ()
        $oWorkbook = _Excel_BookOpen($oExcel,$sExcelFile) ;this will open the chosen xls file.
    Else
        $oExcel = _Excel_Open()
        $oWorkbook = _Excel_BookNew($oExcel, 2);this is here to create the xls file if it does not exist.
   EndIf
EndFunc

Sleep (2000)

_Excel_RangeWrite($oExcel,Default, "X", "D" & $r)

Exit

 

Edited February 20, 2017 by SkysLastChance

[water]

What is the value of @error after calling _EXcel_RangeWrite?

[Subz]

Add:

Global $r = 1,$oExcel, $oWorkbook

Modify:

_Excel_RangeWrite($oWorkbook,Default, "X", "D" & $r)