total filas i columnas de un excel desde VB 6.3

[kamumaki]

buenos dias!!!!

tengo estas sentencias k si no stoy ekivocado me crean un objeto y en este objeto se carga la hoja de excel k le especifico.
lo k me falta es la propiedad??? k me diga el total de filas con datos y el total de columnas.

gracias forofos!!!

Set Obj_Excel = CreateObject("Excel.Application")

' Abre el libro pasandole el path
Obj_Excel.Workbooks.Open FileName:=Path_XLS

' si es la versión de Excel 97, asigna la hoja activa ( ActiveSheet )
If Val(Obj_Excel.Application.Version) >= 8 Then
Set Obj_Hoja = Obj_Excel.ActiveSheet
Else
Set Obj_Hoja = Obj_Excel
End If

[Avellaneda]

Hola, mira si te vale este ejemplo

Código:

Dim oExcel As Excel.Application
Dim xLibro As Excel.Workbook
Dim xHoja As Excel.Worksheet
Dim Columnas As Integer, Filas As Integer
    
Set oExcel = CreateObject("Excel.Application")
Set xLibro = oExcel.Workbooks.Open(App.Path & "\Libro1.xls")
Set xHoja = xLibro.Sheets(1)

Columnas = xHoja.Rows(1).Find("").Column
Filas = xHoja.Columns(1).Find("").Row

[kamumaki]

gracias avellaneda!!!
xo no me funciona me peta en la primera linea!!!
puede ser k me falte alguna libreria????

vale asta luego!!!

[kamumaki]

Dim oExcel As Excel.Application

error = "no se ha definido el tipo definido por el usuario"

[Avellaneda]

Iniciado por kamumaki

Dim oExcel As Excel.Application

error = "no se ha definido el tipo definido por el usuario"

Marca la referencia "Microsoft Excel 11.0 Object Library" o la que tengas.

[kamumaki]

gracias avellaneda va correctisimo!!!

me faltava la libreria y listo!!!