Macro Abrir nuevo libro y grabarlo
Saludos. Mi consulta es el siguiente:
Como puedo crear una macro que me abra un nuevo libro, y se grabe con un nombre que yo le indique en la macro, y luego cada vez que ejecute la macro abra el Libro con el nombre que se le indico en la macro y grabe su contenido
Att. Hugo
Como puedo crear una macro que me abra un nuevo libro, y se grabe con un nombre que yo le indique en la macro, y luego cada vez que ejecute la macro abra el Libro con el nombre que se le indico en la macro y grabe su contenido
Att. Hugo
1 respuesta
Respuesta de Enrique Bernal
1
Lo que estas pidiendo son dos macros, una que cree y guarde el libro y otra que abra y aguarde. La primera es la siguiente:
Sub Crea_Guarda()
a = inputvox("Indicque el nombre del archivo")
Workbooks.Add
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & a & ".xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
La segunda:
Sub Abre_Guarda()
a = inputvox("Indicque el nombre del archivo")
Workbooks.Open Filename:="C:\" & a & ".xls"
ActiveWorkbook.Save
Emd sub
Sub Crea_Guarda()
a = inputvox("Indicque el nombre del archivo")
Workbooks.Add
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:="C:\" & a & ".xls", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
End Sub
La segunda:
Sub Abre_Guarda()
a = inputvox("Indicque el nombre del archivo")
Workbooks.Open Filename:="C:\" & a & ".xls"
ActiveWorkbook.Save
Emd sub
