Leer de Excel

[josealh]

Hola Amigos,

Estoy creando una aplicación que abre un fichero Excel del que he de seleccionar unas celdas para procesar el contenido. Si yo sé el rango de las celdas es fácil.

Mi programa abre la hoja Excel

Código:

Dim xlsApp As Excel.Application
Dim xlsWb  As Excel.Workbook
Dim xlsSht As Excel.Worksheet
  
  Set xlsApp = New Excel.Application
  xlsApp.Visible = True
  
  xlsApp.DisplayAlerts = False
  Set xlsWb = xlsApp.Workbooks.Open(strRutaFile)
  Set xlsSht = xlsWb.Worksheets(1)

pero no sé como capturar el rango de celdas que desea el operador para que lo procese el programa. Tendría que picar en una celda origen y otra final y yo recoger el contenido del rango para luego poder procesarlo.

Un saludo y gracias.

Jose

[ASPirin]

y si cargas los extremos del rango en un USERFORM ?
y luego te manejas con la instrucción offset a través de él...

[josealh]

Hola,

Gracias por responder. No entiendo lo que me estás diciendo.

Me comentas que cargue los extremos del rango en un USERFORM. Pero lo que no sé son esos extremos porque he de esperar a que el usuario pique sobre la celda. Y si pica y sé recoger el rango de esa celda (que es lo que pido) ya lo tendría solucionado; no me haría falta cargarlos en nada.

¿Por USERFORM te refieres a un FORM de Visual Basic?. Si lo cargo a un FORM de Visual Basic es pq sé el rango y si lo sé ya no me haría falta porque recorro ese rango de VB. Es lo mismo que te comentaba antes.

Se admite alguna sugerencia.

Gracias por todo.

José Antonio