Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » GUARDAR LIBRO EXCEL COMO XLSM

Excel - GUARDAR LIBRO EXCEL COMO XLSM

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil
Val: 1
Ha aumentado su posición en 13 puestos en Excel (en relación al último mes)
Gráfica de Excel

GUARDAR LIBRO EXCEL COMO XLSM

Publicado por PEDRO (1 intervención) el 20/10/2019 19:16:19
El siguiente codigo me funciona perfecto en otro libro que cree, pero al tratar de utilizarlo en un nuevo libro me arroja Error 1004 "Error en el metodo SaveAs de objeto Workbooks

NOTA: Se debe guardar como xlsm

1
2
3
4
5
6
7
8
9
Private Sub CommandButton4_Click()
ActiveSheet.Unprotect "123"
cadena = "C:\BALANCES\" & Range("I5") & ".xls"
ActiveWorkbook.SaveAs cadena, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Range("IE5").Value = Range("E5").Value + 1
Range("E9").Value = ActiveSheet.Range("E9").Value + 1
Range("B11:B13,B26:C27,B34:C42,B49:C51,B58:C60").ClearContents
Range("B9").Select
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

GUARDAR LIBRO EXCEL COMO XLSM

Publicado por Antoni Masana (2540 intervenciones) el 21/10/2019 20:13:27
Quizás es que te has comido un trozo de código:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton4_Click()
    ActiveSheet.Unprotect "123"
    cadena = "C:\BALANCES\" & Range("I5") & ".xls"
    ActiveWorkbook.SaveAs Filename:=cadena, _
        FileFormat:=xlNormal, _
        Password:="", _
        WriteResPassword:="", _
        ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
    Range("IE5").Value = Range("E5").Value + 1
    Range("E9").Value = ActiveSheet.Range("E9").Value + 1
    Range("B11:B13,B26:C27,B34:C42,B49:C51,B58:C60").ClearContents
    Range("B9").Select


De todas formas el GRABAR MACROS crea esto al hacer un Guardar como y hacerlo como xlsm, o al menos la versión de Excel 2010

1
2
3
ActiveWorkbook.SaveAs Filename:=Cadena, _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, _
    CreateBackup:=False


Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar