Problem with Excel

[Santana]

Hi all,

i have the following script and am willing to open several excel spreadsheets, delete the first two rows, save the canges and close.

For some reason, it open the files but do not delete the rows. Can anyone tell me what am I doing wrong?

Thanks in advance.

#Include <Excel.au3>
$path = @ScriptDir & "\input\"
$file = FileFindFirstFile($path & "\*.*")
if $file = -1 then msgbox(496, "File not found")
while 1
$ExcelFile = FileFindNextFile($file)
if $ExcelFile ="" then exitloop
ExcelRowDelete($path, $excelfile)
WEnd

func ExcelRowDelete($loc, $oExcel)
$workbook = $loc & $oExcel
_ExcelBookOpen($workbook)
processwait("EXCEL.EXE")
_ExcelColumnDelete($oExcel, 1, 2)
Sleep(50)
_ExcelBookClose($oExcel, 1, 0)
ProcessWaitClose("EXCEL.EXE")
EndFunc

[PsaltyDS]

By convention, the "o" in $oExcel means it's an Obj type (COM Object). You are passing a string file name in it and then trying to use that string in place of the object reference returned by _ExcelBookOpen(). Try this:

Func ExcelRowDelete($loc, $sExcel)
    Local $workbook = $loc & $sExcel
    Local $oExcel = _ExcelBookOpen($workbook)
    ProcessWait("EXCEL.EXE")
    _ExcelColumnDelete($oExcel, 1, 2)
    Sleep(50)
    _ExcelBookClose($oExcel, 1, 0)
    ProcessWaitClose("EXCEL.EXE")
EndFunc   ;==>ExcelRowDelete

[Santana]

Thanks a million.