Capturar celda en Excel
Publicado por josealh (4 intervenciones) el 12/09/2006 13:07:08
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
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
Valora esta pregunta
0