Buscar libro en carpeta
HOla Elsa necesito tu ayuda
Tengo un libro que los guardo según el rango de unas celdas
ActiveWorkbook.SaveAs Filename:=Range("H1").Value & Range("N78").Value & ".xls"
"P1" "K14" "B28"
3500 (espacio) juan García santos
CONCATENAR "N78"
3500 JUAN GARCÍA SANTOS '(nombre libro)
Necesito saber si en la carpeta destino existe algún libro con
el valor de la celda "P1" ( 3500 ) y si existe lance un mensaje
en caso contrario no haga nada, la idea es si por error guardo
otro libro con el mismo nombre (("P1") 3500 TOMAS LOPEZ GARRUCHO) me avise
Saludos y gracias anticipadas
Tengo un libro que los guardo según el rango de unas celdas
ActiveWorkbook.SaveAs Filename:=Range("H1").Value & Range("N78").Value & ".xls"
"P1" "K14" "B28"
3500 (espacio) juan García santos
CONCATENAR "N78"
3500 JUAN GARCÍA SANTOS '(nombre libro)
Necesito saber si en la carpeta destino existe algún libro con
el valor de la celda "P1" ( 3500 ) y si existe lance un mensaje
en caso contrario no haga nada, la idea es si por error guardo
otro libro con el mismo nombre (("P1") 3500 TOMAS LOPEZ GARRUCHO) me avise
Saludos y gracias anticipadas
Respuesta de Elsa Matilde
1
Si encuentra un archivo con ese nombre te aparecerá el mensaje de Excel, ahí podrías resolver si guardarlo o no.
Pero si necesitas otro mensaje dentro de la rutina para actuar según él, podes agregar esta función en un módulo:
Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function
Luego en tu rutina tendrías que adaptar esta consulta:
Sub controlaArchi()
If DirExists("C:\Documents and Settings\Yo\Mis documentos\Libro1.xls") Then
MsgBox "Existe"
Else
MsgBox "No existe"
End If
End Sub
Saludos
Elsa
Pero si necesitas otro mensaje dentro de la rutina para actuar según él, podes agregar esta función en un módulo:
Function DirExists(sSDirectory As String) As Boolean
If Dir(sSDirectory, vbDirectory) <> "" Then DirExists = True
End Function
Luego en tu rutina tendrías que adaptar esta consulta:
Sub controlaArchi()
If DirExists("C:\Documents and Settings\Yo\Mis documentos\Libro1.xls") Then
MsgBox "Existe"
Else
MsgBox "No existe"
End If
End Sub
Saludos
Elsa
Gracias por la rapidez de tu respuesta
Pero no l cojo comentarte que el archivo
3500 juan garcía de los santos
Es distinto al archivo
3500 TOMAS LOPEZ GARRUCHO
Salvo los 4 primeros caracteres, cuando voy a aguardar el archivo EXCEL no enseña el mensaje " YA EXISTE UN ARCHIVO CON ESE NOMBRE "
Salvo coincidencia en las
Pero no l cojo comentarte que el archivo
3500 juan garcía de los santos
Es distinto al archivo
3500 TOMAS LOPEZ GARRUCHO
Salvo los 4 primeros caracteres, cuando voy a aguardar el archivo EXCEL no enseña el mensaje " YA EXISTE UN ARCHIVO CON ESE NOMBRE "
Salvo coincidencia en las
Encontré la solución en la ayuda
Set fs = Application.FileSearch
With fs
.LookIn = Range("H1").Value 'ruta
.SearchSubFolders = True
.Filename = Range("N78").Value 'valor buscado
If .Execute() > 0 Then
MsgBox " EXISTE(n) " & .FoundFiles.Count & " ARCHIVO(s) CON EL MISMO NUMERO."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Gracias por tu interés
Set fs = Application.FileSearch
With fs
.LookIn = Range("H1").Value 'ruta
.SearchSubFolders = True
.Filename = Range("N78").Value 'valor buscado
If .Execute() > 0 Then
MsgBox " EXISTE(n) " & .FoundFiles.Count & " ARCHIVO(s) CON EL MISMO NUMERO."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Gracias por tu interés
