Visual Basic para Aplicaciones - AYUDA: VB Y EXCEL

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA: VB Y EXCEL

Publicado por Westmad (9 intervenciones) el 26/08/2002 18:27:45
Estoy realizando una aplicación en VB que trabaja con Excel. De Excel importa unas celdas que en las que a veces pone #¡NUM! o #¡DIV/0!
y cuando toca pasar uno de estos campos a una celda de mi FlexGrid de Vb me da un error de "No coinciden los tipos", que puedo hacer para que en mi celda de Vb aparezca en vació. Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:AYUDA: VB Y EXCEL

Publicado por Mauricio Baeza (262 intervenciones) el 26/08/2002 20:27:07
Si mostraras como importas esos datos seria más facil ayudarte, supongo que pones el valor de la celda o celdas en variables, solo te resta garantizar que no sean errores, por ejemplo

If Valor="#¡NUM!" Or Valor="#¡DIV/0!" Then
Aqui no haces nada o muestras un mensaje...
Else
Aqui pasas el valor correcto...
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA: VB Y EXCEL

Publicado por Westmad (9 intervenciones) el 26/08/2002 20:39:12
Grid1.Text = WbLibro.Worksheets("Niveles de inmisión").Cells(c, b)

esto me genera un error de "No coinciden los tipos"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA: VB Y EXCEL

Publicado por Mauricio Baeza (262 intervenciones) el 27/08/2002 20:16:43
Usa una variable intermedia

Dim Valor As Variant

Valor =WbLibro.Worksheets("Niveles de inmisión").Cells(c, b)

'Si esperas que sea un numero
If IsNumeric(Valor) Then
Grid1.Text = Valor
End If

'Si esperas que sea una fecha
If IsDate(Valor) Then
Grid1.Text = Valor
End If

'Si esperas texto, que no sea error
If Valor<>"#¡NUM!" And Valor<>"#¡DIV/0!" Then
Grid1.Text = Valor
End If
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar