como pasar datos de .net a plantilla .xls

[Princesa27]

Hola tengo una pregunta y es la siguiente necesito saber como pasar mis datos por programa en visual a una plantilla de .xls

tengo el siguiente codigo y lo hace algunos campos no guardan el campo asi que necesito una mejor idea.
gracias de antemano,


Private Sub Imprime()
Dim s_SQL As String
Dim Rs_Sp As New ADODB.Recordset
Dim Moneda As String
Abredb()

Dim m_Excel As Microsoft.Office.Interop.Excel.Application
Dim strRutaExcel As String

strRutaExcel = "C:\PlantillaparaRequisicion2011.xls"

m_Excel = CreateObject("Excel.application")
m_Excel.Workbooks.Open(strRutaExcel)
m_Excel.Visible = False

s_SQL = "Select a.*, b.*, c.* from tb_Proveedor a, tb_Requerimiento b, tb_Altamaterial c where a.NoSerial = b.NoSerial and b.NoSerial = c.NoSerial order by a.NoSerial desc"
Rs_Sp = DB_cn.Execute(s_SQL)

If Not Rs_Sp.EOF Then
Rs_Sp.MoveFirst()
m_Excel.Worksheets("Paola").cells(6, 2).value = Rs_Sp.Fields("NameProveedor").Value 'Nombre del Proveedor
m_Excel.Worksheets("Paola").cells(7, 2).value = Rs_Sp.Fields("Address").Value 'Direccion
m_Excel.Worksheets("Paola").cells(8, 2).value = Rs_Sp.Fields("Ciudad").Value 'Ciudad
m_Excel.Worksheets("Paola").cells(8, 4).value = Rs_Sp.Fields("Estado").Value 'Estado
m_Excel.Worksheets("Paola").cells(8, 6).value = Rs_Sp.Fields("CP").Value 'Cp
m_Excel.Worksheets("Paola").cells(9, 2).value = Rs_Sp.Fields("Contacto").Value 'Contacto
m_Excel.Worksheets("Paola").cells(10, 2).value = Rs_Sp.Fields("Telefono").Value 'Telefono
m_Excel.Worksheets("Paola").cells(10, 5).value = Rs_Sp.Fields("Fax").Value 'Fax
m_Excel.Worksheets("Paola").cells(12, 2).value = Rs_Sp.Fields("Proposito").Value 'Proposito
m_Excel.Worksheets("Paola").cells(6, 8).value = Rs_Sp.Fields("Requeridopor").Value 'Requerido por
m_Excel.Worksheets("Paola").cells(7, 8).value = Rs_Sp.Fields("Datepreparacion").Value 'Fecha de Preparacion
m_Excel.Worksheets("Paola").cells(7, 10).value = Rs_Sp.Fields("Daterequerida").Value 'Fecha Requerida
m_Excel.Worksheets("Paola").cells(10, 8).value = Rs_Sp.Fields("NumProyecto").Value 'No. de Proyecto
m_Excel.Worksheets("Paola").cells(10, 9).value = Rs_Sp.Fields("NumCuenta").Value 'No. de Cuenta
m_Excel.Worksheets("Paola").cells(10, 11).value = Rs_Sp.Fields("Departamento").Value 'Departamento
m_Excel.Worksheets("Paola").cells(16, 2).value = Rs_Sp.Fields("Cantidad").Value 'Cantidad
m_Excel.Worksheets("Paola").cells(16, 3).value = Rs_Sp.Fields("NoParte").Value 'No de Parte
m_Excel.Worksheets("Paola").cells(16, 6).value = Rs_Sp.Fields("Descripcion").Value 'Descripcion
m_Excel.Worksheets("Paola").cells(16, 10).value = Rs_Sp.Fields("PUnitario").Value 'PU
m_Excel.Worksheets("Paola").cells(16, 11).value = Rs_Sp.Fields("Total").Value 'Total
m_Excel.Worksheets("Paola").cells(24, 11).value = Rs_Sp.Fields("Subtotal").Value 'Subtotal
m_Excel.Worksheets("Paola").cells(25, 11).value = Rs_Sp.Fields("Tax").Value 'Tax
m_Excel.Worksheets("Paola").cells(26, 11).value = Rs_Sp.Fields("Ttotal").Value 'Total
m_Excel.Worksheets("Paola").cells(26, 3).value = "Ing.Edgar Rodea"
If Rs_Sp.Fields("Pesos").Value Then 'Pesos
Moneda = "X"
m_Excel.Worksheets("Paola").cells(27, 10).value = Moneda
ElseIf Rs_Sp.Fields("Dolares").Value Then 'Dolares
Moneda = "X"
m_Excel.Worksheets("Paola").cells(27, 11).value = Moneda
End If
m_Excel.Worksheets("Paola").cells(27, 3).value = Rs_Sp.Fields("DestFinal").Value

'Guardamos los cambios del libro activo
m_Excel.Application.ActiveWorkbook.Save()
'Nota: Hay una instruccion como esta:
m_Excel.Application.ActiveWorkbook.SaveAs()

'Eliminamos la instancia de Excel de memoria
If Not m_Excel Is Nothing Then
m_Excel.Quit()
m_Excel = Nothing
End If
End If


End Sub

[SDEK]

Hola,

Antes que empieces a buscar diferentes formas de escribir datos en un excel. Te sugiero que revises el formato de las celdas en la hoja de calculo. Sucede que cuando una celda esta definida por ejemplo como: "numerico", cuando le envíes una cadena de texto, esta no se escribirá en la celda.

Saludos,

[Princesa27]

Thanks tu respuesta ha sido de gran ayuda ya que presté mas atención en como estaba declarado cada campo de mi plantilla hice unos ajustes y listo logré
pasar todos los datos desde mi sistema a .xls
ahora mi pregunta es puedo crear esa misma plantilla de .xls en crystal report
como haria la configuración?
algún ejemplo q pudiera asesorarme...
thanks de antemano.