RESOLVED: ExcelCOM_UDF.au3 and Merged Cells

[Syl21]

Hello everybody...

I'have a problem about merged cells

i'm using this "#include <ExcelCOM_UDF.au3>"

I can merge or unmerge cells but i don't want that

I just want know how many collums my merged cell take???

can you help me please???

do you know how to create a include fonction???

thanks in advance...

Edited August 19, 2009 by Syl21

[Syl21]

I have create a function...

If someone want to better it and had it to ExcelCOM_UDF.au3, it's a pleasure for me...

Func _ExcelIsThisCellMerged($oExcel, $RowStart, $ColStart)

If NOT IsObj($oExcel) Then Return SetError(1)

If NOT StringRegExp($RowStart, "[A-Z,a-z]", 0) Then

If $ColStart < 1 Then Return SetError(2)

$Merged = $oExcel.Cells($RowStart, $ColStart).MergeCells

EndIf

if $Merged < 0 then

$Merged = 1

EndIf

Return $Merged

EndFunc ;==>_ExcelCellMerge

Enjoy

[zfisherdrums]

Dim $oXl = ObjGet( "", "Excel.Application" )

Func _ExcelIsCellMerged( $oExcel, $sAddress )
    ; beware: sending only rc coordinates assumes the Activesheet context.
    ; To ensure that the correct sheet is assumed, pass in the sheet name:
    ;
    ;    example: $sAddress = "Sheet1!A1"
    
    Return $oExcel.Application.Range($sAddress).MergeArea.Columns.Count > 1
EndFunc

Dim $result = _ExcelIsCellMerged( $oXl, "Sheet1!A1" ) 
ConsoleWrite( $result & @CRLF)