en el msgbox quiero mostrar la cantidad de filas en las cuales hay información, con esto despues quiero hacer un for de 1 hasta este dato para traspasar la info a una base de datos access....
alguien que mke ayude.
Private Sub boton_Click()
Dim XLS As String
XLS = App.Path & "\libro1.xls"
Dim aEXCEL As excel.Application
Set aEXCEL = CreateObject("EXCEL.APPLICATION")
aEXCEL.Visible = False ' no muestra el excel
aEXCEL.Workbooks.Open FileName:=XLS, ReadOnly:=True, ignoreReadOnlyRecommended:=True
MsgBox aEXCEL.(no se que opcion me da el total de filas ocupadas)
aEXCEL.Quit
Set aEXCEL = Nothing
End Sub
