Нарисовать границы ячеек в Excel

#Region Includes
#EndRegion Includes
#NoTrayIcon

; Excel Object Model Reference
; http://msdn.microsoft.com/en-us/library/bb149081.aspx

HotKeySet("{ESC}", "_Close")

; Text Alligment
$iCenter = -4108

; Стили линий
$iContinuous    = 1     ; Continuous line.
$iDashDot       = 4     ; Alternating dashes and dots.
$iDashDotDot    = 5     ; Dash followed by two dots.
$iSlantDashDot  = 13    ; Slanted dashes.
$iDash          = -4115 ; Dashed line.
$iDot           = -4118 ; Dotted line.
$iDouble        = -4119 ; Double line.
$iLineStyleNone = -4142 ; No line.

; Границы
$iDiagonalDown     = 5  ; Border running from the upper left-hand corner to the lower right of each cell in the range.
$iDiagonalUp       = 6  ; Border running from the lower left-hand corner to the upper right of each cell in the range.
$iEdgeLeft         = 7  ; Border at the left-hand edge of the range.
$iEdgeTop          = 8  ; Border at the top of the range.
$iEdgeBottom       = 9  ; Border at the bottom of the range.
$iEdgeRight        = 10 ; Border at the right-hand edge of the range.
$iInsideHorizontal = 12 ; Horizontal borders for all cells in the range except borders on the outside of the range.
$iInsideVertical   = 11 ; Vertical borders for all the cells in the range except borders on the outside of the range

Dim $iFontStyleBold = 1, $iFontStyleItalic = 1

$fAlerts = 0

$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = True

$oWorkSheet = $oExcel.WorkBooks.Add.Worksheets(1)
$oRange = $oWorkSheet.Range("B2:F2")
$oRange.Select
$oExcel.Selection.Merge
With $oRange
	.Borders.LineStyle   = $iDouble
EndWith

While 1
	Sleep(500)
WEnd

Func _Close()
	$oExcel.Application.DisplayAlerts = $fAlerts
	$oExcel.Application.ScreenUpdating = $fAlerts
	$oExcel.Quit

	Exit
EndFunc