Visual Basic - consulta sobre una hoja de excel

Life is soft - evento anual de software empresarial
 
Vista:

consulta sobre una hoja de excel

Publicado por jpablogus (23 intervenciones) el 20/01/2005 11:24:45
Hola!

Se puede realizar consultas sobre una columna de excel desde VB?

Necesito distribuir un CD con la tarifa de precios de mi compañia y quiero crear un buscador dentro de este con Interfaz VB, sin tener el cliente que realizar una instalación de ninguna aplicación.

Se puede hacer lo que tengo en mente?

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:consulta sobre una hoja de excel

Publicado por miguel (1042 intervenciones) el 20/01/2005 17:40:31
Si se puede dentro de visula basic, das de alta la Referencia en Menu Proyectos-->Referencias y "Microsoft Excel 9.0 Object Library", entonces,
debes de tener en cuenta que columna se encuentra tus Precios para asi hacer un ciclo y hacer la busqueda:
Dim xlApp As Excel.Application
Dim mySheet As Excel.Worksheet
Private Sub cmdExcel_Click()
On Error GoTo Errores
Dim vlRuta As String
Dim ValorBus As Single
Dim I As Integer
Set xlApp = CreateObject("Excel.Application")
vlRuta = App.Path & "\Prueba.xls" 'Ruta de Tu Archivo
xlApp.Workbooks.Open vlRuta
Set mySheet = xlApp.Worksheets(1)
ValorBus = 205
With mySheet
I = I + 1
Do While .Cells(I, 1) <> "" 'Empieza el Ciclo de la Columna A hacia abajo
If .Cells(I, 1) = ValorBus Then
MsgBox "Encontrado", vbInformation
Exit Do
End If
I = I + 1
Loop
End With
xlApp.Quit
Set xlApp = Nothing
Errores:
If Err.Number <> 0 Then
xlApp.Quit
Set xlApp = Nothing
MsgBox Err.Description, vbCritical, CStr(Err.Number)
Err.Clear
End If
End Sub
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:consulta sobre una hoja de excel

Publicado por jpablogus (23 intervenciones) el 21/01/2005 12:07:31
Muchas Gracias,
es lo que queria hacer..
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