Leer celdas Excel de VB2008
Publicado por apacheco (98 intervenciones) el 25/09/2012 16:51:41
Estoy tratando de validar las referencias de los productos recibidos en un pedido introducidos contra la relacion de los mismos en Excel .
Lo estoy haciendo con el siguiente desarrollo:
Imports System.Runtime.InteropServices.Marshal
Imports Microsoft.Office.Interop
Dim maxifila As Long
objExcel = New Excel.Application
objLibro = objExcel.Workbooks.Open(pathsiebel & "logistica.xls")
objHoja = objLibro.ActiveSheet(1)
objExcel.Visible = False
objLibro.Activate()
maxifila = 49 ' objLibro.ActiveSheet
Los problemas que tengo son:
1 - ¿Como puedo obtener la ultima fila utilizada, ya que cada fichero excel tiene un numero de filas distinto? ya los proceso con un bucle de la fila 2(en la fila 1 van la descripcion de la columna) hasta la maxifila.
2 -¿Como puedo obtener el valor de la celda B de cada fila?
Muchas gracias por vuestra ayuda.
P.D. Lo tengo hecho en VB6, pero lo he copiado y no funciona
Lo estoy haciendo con el siguiente desarrollo:
Imports System.Runtime.InteropServices.Marshal
Imports Microsoft.Office.Interop
Dim maxifila As Long
objExcel = New Excel.Application
objLibro = objExcel.Workbooks.Open(pathsiebel & "logistica.xls")
objHoja = objLibro.ActiveSheet(1)
objExcel.Visible = False
objLibro.Activate()
maxifila = 49 ' objLibro.ActiveSheet
Los problemas que tengo son:
1 - ¿Como puedo obtener la ultima fila utilizada, ya que cada fichero excel tiene un numero de filas distinto? ya los proceso con un bucle de la fila 2(en la fila 1 van la descripcion de la columna) hasta la maxifila.
2 -¿Como puedo obtener el valor de la celda B de cada fila?
Muchas gracias por vuestra ayuda.
P.D. Lo tengo hecho en VB6, pero lo he copiado y no funciona
Valora esta pregunta
0