Deleting Columns and Rows in Excel

[DigDeep]

Hi,

Looking at the Help file, if I am trying to delete entire column for A:C:D, either there is no error coming up but the columns do not get deleted OR I get error for "_Excel_RangeDelete($oWorkbook.ActiveSheet, $sRange)"
 

$Final_XLS = "C:\Temp\Final.xls"

Func Delete_Columns($sXLS)
    ; Create application object and open an example workbook
    Local $oExcel1 = _Excel_Open(False)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeDelete Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oExcel1, $sXLS)
    If @error Then
        _Excel_Close($oExcel1)
        Return False
    EndIf

Local $sRange = "A:C:D"
    _Excel_RangeDelete($oWorkbook.ActiveSheet, $sRange)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeDelete Example 1", "Error deleting cells." & $sRange & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $iResult1 = _Excel_BookSaveAs($oWorkbook, $sXLS)
    _Excel_Close($oExcel1)
    Return $iResult1
EndFunc   ;==>Delete_Columns

Delete_Columns($Final_XLS)

 

[DigDeep]

I was able to get this done via below way...

$Final_XLS = "C:\Temp\Final.xls"

Func Delete_Columns($sXLS)
    ; Create application object and open an example workbook
    Local $oExcel1 = _Excel_Open(False)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeDelete Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $oWorkbook = _Excel_BookOpen($oExcel1, $sXLS)
    If @error Then
        _Excel_Close($oExcel1)
        Return False
    EndIf

Local $sRange = "A:D"
    _Excel_RangeDelete($oWorkbook.ActiveSheet, $sRange, $xlShiftToLeft, 2)
    If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeDelete Example 1", "Error deleting cells." & $sRange & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    Local $iResult1 = _Excel_BookSaveAs($oWorkbook, $sXLS)
    _Excel_Close($oExcel1)
    Return $iResult1
EndFunc   ;==>Delete_Columns

Delete_Columns($Final_XLS)

 

Edited July 19, 2016 by DigDeep

[water]

How to handle ranges is described in the wiki: https://www.autoitscript.com/wiki/Excel_Range