Function Main()

          Dim appExcel
          Dim newBook
          Dim oSheet

          dim oPackage 
          dim oConn 

          Set appExcel = CreateObject("Excel.Application")
          Set newBook = appExcel.Workbooks.Add
          Set oSheet = newBook.Worksheets(1)

          'Specify the name of the new Excel file to be created

          DTSGlobalVariables("fileName").Value = "C:\Redemption_" & Year(Date) & Right("0" & Month(Date), 2) & Right("0" & Day(Date), 2) &".xls"

          With newBook
               .SaveAs DTSGlobalVariables("fileName").Value
               .save
          End With

          appExcel.quit

          'dynamically specify the destination Excel file

          set oPackage = DTSGlobalVariables.parent
	set oConn = oPackage.connections(2) 
          oConn.datasource = DTSGlobalVariables("fileName").Value 

         set oPackage = nothing 
          set oConn = nothing 

          Main = DTSTaskExecResult_Success 

End Function