pasar datos de VB a excel

[leophp]

Hola tengo el siguiente problema, al pasar los datos desde Visual Basic 6 a Execel, los datos que son por ejemplo de esta forma "00012558" al pasarlos a excel los cambia a "12558" y los numeros que estan formateados de esta manera "1.000" los pasa asi "1" en excel hay una manera de que todo lo ingresado se ponga en la celda tal cual se digito, mi pregunta es: como se configura eso ?, cual es la propiedad ?.


este es el codigo que utilizo para realizar el traspaso desde una Grid a una Excel

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False
objExcel.DisplayAlerts = False
Set objWorkbook = objExcel.Workbooks.Add
Set objWorksheet = objWorkbook.Worksheets(1)

For i = 0 To objgrid.Rows - 1
objgrid.Row = i
For m = 0 To objgrid.Cols - 1
objgrid.Row = i
objgrid.Col = m
objWorksheet.Cells(i + 1, m + 1) = objgrid.Text
Next m
Next

'Graba el archivo exel y lo cierra
objWorkbook.SaveAs ("c:\test.xls")
objExcel.Quit



saludos

[Venom008]

Hola has intentado formatear las celdas, dale un formato desde visual, al tipo de celda.

[leophp]

eso es justamente lo que intento hacer, pero no se como hacerlo.

[eduardo57]

solo tenes que agregar "'" +objWorksheet.Cells(i + 1, m + 1) = objgrid.Text