Error en ActiveWorkbook.SaveAs
Que tal.....Me manda error en ActiveWorkbook.SaveAs Filename:=carpeta & " Tara " & fecha en el siguiente código:
fecha = Format(Now, "dd-mm-yyyy hh:mm:ss")
uno = ActiveWorkbook.Name
carpeta = "\\Servidor\Reportes Ventas\"
Workbooks.Add
dos = ActiveWorkbook.Name
Application.DisplayAlerts = False
Workbooks(uno).Activate
Range("A1:G500").Copy
Workbooks(dos).Activate
Sheets(1).Select
Range("a1").Select
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=carpeta & " Tara " & fecha
ActiveWorkbook.Close False
1 Respuesta
Respuesta de duainsulch
1
Un nombre de archivo no acepta el símbolo : que utilizas para la hora, cambia el valor de la variable fecha.
Funciono ....... Muchas Gracias
De nada!, acuérdate de puntuar y cerrar la pregunta, me alegra haberte podido ayudar.
