'**********************************************************************
'  Visual Basic ActiveX Script
'************************************************************************

Function Main()

	Dim FileName
	FileName = DTSGlobalVariables( "OutputFileFullName" ).Value

	Dim fso
	Set fso = CreateObject( "Scripting.FileSystemObject" )

	Main = DTSTaskExecResult_Failure
	If (fso.FileExists(FileName)) Then
		Dim objXL
		Set objXL = CreateObject( "Excel.Application" )

		objXL.Visible = FALSE
		objXL.WorkBooks.Open(FileName)

		If (objXL.WorkBooks( 1 ).Sheets.Count >  1 ) Then
			objXL.WorkBooks( 1 ).Sheets( 1 ).Delete
		End if

		For i =  1  to objXL.WorkBooks( 1 ).Sheets.Count
			objXL.WorkBooks( 1 ).Sheets(i).Activate()

			RowsCnt = objXL.ActiveCell.CurrentRegion.Rows.Count
			ColsCnt = objXL.ActiveCell.CurrentRegion.Columns.Count

			objXL.ActiveCell.CurrentRegion.Borders.LineStyle =  1 
			objXL.ActiveCell.CurrentRegion.Borders.Weight =  3 

			If RowsCnt >  2  Then
				objXL.Range(objXL.Cells( 3 ,  1 ), objXL.Cells(RowsCnt, ColsCnt)).Borders( 3 ).LineStyle =  3 
			End if
			If RowsCnt >  1  Then
				objXL.Range(objXL.Cells( 2 ,  1 ), objXL.Cells(RowsCnt- 1 , ColsCnt)).Borders( 4 ).LineStyle =  3 
			End if

			objXL.Range(objXL.Cells( 1 ,  1 ), objXL.Cells( 1 , ColsCnt)).Font.Bold = True
			objXL.Range(objXL.Cells( 1 ,  1 ), objXL.Cells( 1 , ColsCnt)).HorizontalAlignment =  3 
			objXL.Range(objXL.Cells( 1 ,  1 ), objXL.Cells( 1 , ColsCnt)).VerticalAlignment =  2 
			objXL.Range(objXL.Cells( 1 ,  1 ), objXL.Cells( 1 , ColsCnt)).Interior.Color =  12632256 

			objXL.ActiveCell.CurrentRegion.Columns.AutoFit
		Next

		objXL.WorkBooks( 1 ).Save
		objXL.Quit
		Set objXL = Nothing

		Main = DTSTaskExecResult_Success
	End If
End Function