Crear y Guardar
Hola:
Y como se puede evitar que salga error al ejecutar la macro que crea un directorio; es decir que cuando exista el directorio no lo creo sino que guarde el archivo en esa ubicación.
Gracias
Y como se puede evitar que salga error al ejecutar la macro que crea un directorio; es decir que cuando exista el directorio no lo creo sino que guarde el archivo en esa ubicación.
Gracias
1 Respuesta
Respuesta de javigo
1
Prueba poniendo lo siguiente:
On Local Error Resume Next
MkDir "C:\Plantillas"
ActiveWorkbook.SaveAs FileName:="C:\Plantillas\libro.xls"
De esta forma si detecta error en la creación del directorio (porque ya existe), seguirá ejecutando la macro.
On Local Error Resume Next
MkDir "C:\Plantillas"
ActiveWorkbook.SaveAs FileName:="C:\Plantillas\libro.xls"
De esta forma si detecta error en la creación del directorio (porque ya existe), seguirá ejecutando la macro.
Hola de nuevo:
Me sale error cuando adiciono esas instrucciones, te muestro la macro original:
Sub GuardaArchivo()
Dim NombreArch As String
NombreArch = Range("c8") & Range("o8") & ".Xls"
MkDir "C:\Usuario"
ActiveWorkbook.SaveAs ("C:\Usuario\" & NombreArch)
End Sub
Hasta allí funciona, pero creo que estoy adicionando mal las sentencias que me hiciste llegar, te agradeceré me indiques cual seria la macro final.
Gracias
Saludos
Me sale error cuando adiciono esas instrucciones, te muestro la macro original:
Sub GuardaArchivo()
Dim NombreArch As String
NombreArch = Range("c8") & Range("o8") & ".Xls"
MkDir "C:\Usuario"
ActiveWorkbook.SaveAs ("C:\Usuario\" & NombreArch)
End Sub
Hasta allí funciona, pero creo que estoy adicionando mal las sentencias que me hiciste llegar, te agradeceré me indiques cual seria la macro final.
Gracias
Saludos
No estoy seguro de lo que pueda fallar, te mando la macro completa, a mí me funciona.
Sub GuardaArchivo()
Dim NombreArch As String
NombreArch = Range("c8") & Range("o8") & ".Xls"
On Local Error Resume Next
MkDir "C:\Usuario"
ActiveWorkbook.SaveAs ("C:\Usuario\" & NombreArch)
End Sub
Si esto no sirve, buscamos otro sistema.
Sub GuardaArchivo()
Dim NombreArch As String
NombreArch = Range("c8") & Range("o8") & ".Xls"
On Local Error Resume Next
MkDir "C:\Usuario"
ActiveWorkbook.SaveAs ("C:\Usuario\" & NombreArch)
End Sub
Si esto no sirve, buscamos otro sistema.
