Hoja de calculo
Como puedo extraer los datos de un libro de excel desde un from de visual basic 6.0
para que ala hora de presionar el botón del from el contenido de una celda por se visualice en un label del from...
Te agradecería que me pusieras un ejemplo gracias...
para que ala hora de presionar el botón del from el contenido de una celda por se visualice en un label del from...
Te agradecería que me pusieras un ejemplo gracias...
1 respuesta
Respuesta de Raul Hernandez
1
Primero que nada debes usar una rutina que te permita abrir o tomar el control de una instancia abierta de excel, esta es la que yo uso:
Sub Connect()
On Error Resume Next
Set App = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set App = CreateObject("Excel.Application")
App.Visible = True
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
End Sub
Luego de que tienes abierto Excel toda la codificación que hagas propia de Excel pero en VB deberá llevar la variable App de la rutina anterior, ya que a través de esta VB controla a Excel, por ejemplo, para desplazarte entre las celdas de Excel desde VB usas la siguiente instrucción:
App.ActiveCell.offset(1,0).select
Entonces para tomar la información de una celda y colocarla en el label, primero te desplazas hasta ella y luego:
Label = App.ActiveCell.value
Esto debería servirte
Sub Connect()
On Error Resume Next
Set App = GetObject(, "Excel.Application")
If Err Then
Err.Clear
Set App = CreateObject("Excel.Application")
App.Visible = True
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
End Sub
Luego de que tienes abierto Excel toda la codificación que hagas propia de Excel pero en VB deberá llevar la variable App de la rutina anterior, ya que a través de esta VB controla a Excel, por ejemplo, para desplazarte entre las celdas de Excel desde VB usas la siguiente instrucción:
App.ActiveCell.offset(1,0).select
Entonces para tomar la información de una celda y colocarla en el label, primero te desplazas hasta ella y luego:
Label = App.ActiveCell.value
Esto debería servirte
