DigDeep

Deleting Columns and Rows in Excel

3 posts in this topic

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)

 

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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 by DigDeep

Share this post


Link to post
Share on other sites

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


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now