Ayuda! Macro Para Guardar Libros en Carpetas
Hola, tengo el siguiente caso, tengo un formulario que contiene un checkbox y un combobox, el checkbox habilita el combobox y simultáneamente, crea una carpeta con la fecha del dia que la creo y en una ruta en especifico, el combobox crea diferentes libros con el value del combobox, quisiera saber como puedo hacer para que los libros que genere el combobox, se guarden en la carpeta que creo el checkbox. Adjunto códigos que uso:
Checkbox:
Dim Path As String, NombreCarpeta As String
Path = "B:\Prenominas\"
NombreCarpeta = "Archivos"
Fecha = Format(Now, "dd-mm-yy")
MkDir Path & NombreCarpeta & " " & Fecha
Combobox:
Nombre = Prenominas.ComboBox1.Value
ruta = "B:\Prenominas\"
Tipo = "Prenomina"
'Workbooks.Add
ActiveWorkbook.SaveAs ruta & Nombre
De antemano gracias por la ayuda.
1 Respuesta
Prueba con lo siguiente, hay que declarar una variable como publica al inicio de las macros
Public rutafinal As String
Private Sub CheckBox1_Click()
Dim Path As String, NombreCarpeta As String
Path = "B:\Prenominas\"
NombreCarpeta = "Archivos"
Fecha = Format(Now, "dd-mm-yy")
MkDir Path & NombreCarpeta & " " & Fecha
rutafinal = Path & NombreCarpeta & " " & Fecha & "\"
End Sub
Private Sub ComboBox1_Change()
Nombre = ComboBox1.Value
'ruta = "B:\Prenominas\"
'Tipo = "Prenomina"
'Workbooks.Add
ActiveWorkbook.SaveAs rutafinal & Nombre
End Sub
Saludos. Dam
Si es lo que necesitas.
