Macro en excel para buscar archivos
Necesito ayuda para resolver esto:
Es una macro buscador
Estoy en una excel y en la celda A1 pongo el nº 100
Luego al paretar un botón quiero que busque en "C:\" si existe el archivo .xls con ese nº 100
Luego si no existe que aparezca un cartel que diga "No existe"
Si existe ese archivo 100.xls que aparezca un cartel "Existe"
Gracias
Es una macro buscador
Estoy en una excel y en la celda A1 pongo el nº 100
Luego al paretar un botón quiero que busque en "C:\" si existe el archivo .xls con ese nº 100
Luego si no existe que aparezca un cartel que diga "No existe"
Si existe ese archivo 100.xls que aparezca un cartel "Existe"
Gracias
1 Respuesta
Respuesta
1
Una forma "bàsica" podría ser algo así
sub Existe()
On Error Goto NoExiste
Workbooks.Open(Range("A1").Value & ".xls")
If ActiveWorkbook.Name = Range("A1").Value Then
MsgBox "Existe"
ActiveWorkbook.Close False
Exit Sub
End If
NoExiste:
MsgBox "No Existe"
End Sub
La macro la hice medio de memoria por lo que puede llegar a tener algún error.
sub Existe()
On Error Goto NoExiste
Workbooks.Open(Range("A1").Value & ".xls")
If ActiveWorkbook.Name = Range("A1").Value Then
MsgBox "Existe"
ActiveWorkbook.Close False
Exit Sub
End If
NoExiste:
MsgBox "No Existe"
End Sub
La macro la hice medio de memoria por lo que puede llegar a tener algún error.
Funciona bien, salvo que lo quiero asociar a un botón, que al aplicarlo me abra el archivo.
Si podes explicarme el código para asociarlo a un botón
Muchas gracias
Sos un genio
Si podes explicarme el código para asociarlo a un botón
Muchas gracias
Sos un genio
Con botón derecho en la barra de herramientas activa la barra Formularios
Allì seleccionà el botòn e insertalo donde quieras, apenas lo inserte lo va a querer asignar a una macro, seleccionà la que acabàs de crear y listo
Allì seleccionà el botòn e insertalo donde quieras, apenas lo inserte lo va a querer asignar a una macro, seleccionà la que acabàs de crear y listo