waldesro
29 de Septiembre del 2005

Tengo un algoitmo que lee de una hoja de claculo de excel. pero cuando en la celda el valor es numerico el algoritmo se trae un valor nulo.

Set rs = New ADODB.Recordset
rs.Open "Select * from [" & NombHoja & "$]", conn, adOpenDynamic, adLockBatchOptimistic
While Not rs.EOF
If (rs.Fields(ColCodigo) <> "") Then
Set ObjLstItm = frmDatos.lstArticulos.ListItems.Add
With ObjLstItm
.Text = rs.Fields(ColCodigo)
If rs.Fields(ColDescripcion) <> "" Then
.SubItems(1) = rs.Fields(ColDescripcion)
Else
.SubItems(1) = "Articulo Sin Descripcion"
End If
.SubItems(2) = Saca_Num(rs.Fields(ColCantidad))
If rs.Fields(ColBarra) <> "" Then
.SubItems(3) = rs.Fields(ColBarra)
Else
.SubItems(3) = "Sin Código"
End If
.SubItems(4) = rs.Fields(ColPrecio)
.SubItems(5) = rs.Fields(ColIV)
.SubItems(6) = rs.Fields(ColPVenta)
End With
End If
rs.MoveNext
Wend