Local $oExcel = _Excel_Open();
Local $oWorkbook1 = _Excel_BookOpen($oExcel, "N:\ITMG\ITU3_share\CDS\10. Production Support\Health check\HealthCheck Result\CDS Application Health Check (202310).xlsx");
; Copy a range with 3 rows and 2 columns on the active worksheet.
; Pass the source range as object.
Local $length=11;
Local $coscell=6+(@MDAY-2)*$length;
Local $coecell=$coscell+10;
Local $scell=6+(@MDAY-1)*$length;
Local $ecell=$scell+10;
Local $oRange = $oWorkbook1.ActiveSheet.Range("A" & $coscell & ":S" & $coecell)
_Excel_RangeCopyPaste($oWorkbook1.ActiveSheet, $oRange, "A" & $scell)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeCopy Example 1", "Error copying cells." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_RangeReplace($oWorkbook1, Default, "A" & $scell & ":S" & $ecell, @YEAR&"."&@MON&"."&StringFormat("%02d", @MDAY-1), @YEAR&"."&@MON&"."&@MDAY)