SQL Server - DTS txt separado por comas a Excel??

Saludos a todos:
Tengo un DTS que toma los datos de una tabla por medio de un query, los plasma en un archivo de texto separado por comas y luego abre ese archivo y su contenido lo plasma en un archivo de excel (xls), el problema es que en el paso de la información al excel todos los campos numéricos me los redondea y no es lo que quiero. El código que utilizo para la clase se detalla más abajo. En la sentencia del Array definí el valor Array(columna,tipodato), yo tengo entendido de que el tipo de dato texto es el número 2 pero aún asi no me funciona, si alguien sabe como solucionar esto agradecería la ayuda, ya que es urgente.
Gracias de antemano.


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

Function Main()

Dim objExcel

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.OpenText DTSGlobalVariables("Archivo").Value, 2, 1, 1, 1, _
False, False, False, True, False, False, _
Array( _
Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), _
Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), _
Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2))

objExcel.Columns("A:AF").EntireColumn.AutoFit

nombrearch = replace(lcase( DTSGlobalVariables("Archivo").Value ),".txt",".xls")

objExcel.Application.DisplayAlerts = False
objExcel.Workbooks(1).SaveAs nombrearch

objExcel.Workbooks.Close
Set objExcel = Nothing

Main = DTSTaskExecResult_Success

End Function

Perdona, ¿Que tiene que ver esto con SQL SERVER?

Hola que tal jfrank1485, que pena salirme un poco del tema que propones pero me gustaria saber donde pued encontrar documentacion sobre este tema de las DTS, gracias men!!!