10/07/2005, 12:41
|
| | | Fecha de Ingreso: julio-2005
Mensajes: 3
Antigüedad: 18 años, 10 meses Puntos: 0 | |
| vean este códigoque se enlaza co excel
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 |