Anónimo
Macro para excel
Hola, quiero hacer una macro que compruebe a través de un botón si un libro de excel determinado está ya abierto. En tal caso quiero que se active. Si no lo estuviera quiero que se abra. ¿Podéis ayudarme? No soy capaz de dar con ello. Gracias
1 Respuesta
Respuesta de jerryeagle
1
Sub AbreExcel()
Dim wb as WorkBook
For Each wb in WorkBooks
If wb.name = "Nombre de Archivo" Then
wb.Activate
Exit Sub
End If
Next
wb.Open "Ruta\Nombre De Archivo.xls"
End If
Dim wb as WorkBook
For Each wb in WorkBooks
If wb.name = "Nombre de Archivo" Then
wb.Activate
Exit Sub
End If
Next
wb.Open "Ruta\Nombre De Archivo.xls"
End If