Guardar archivo creando carpeta y archivo con valor de celda excel

Deseo que al dar click a un botón se guarde automáticamente un archivo de excel (2007) creando una carpeta en el escritorio con el nombre del valor de una celda combinada (A14) y renombrando el archivo con el valor de la misma celda a14 guardándolo en la carpeta recién creada

Escribe tu código aquí

2 respuestas

Respuesta
1

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: crearcarpeta
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Sub
crearcarpeta()
'Por.DAM
    Application.DisplayAlerts = False
    Set objWSHShell = CreateObject("WScript.Shell")
    escritorio = objWSHShell.SpecialFolders("Desktop")
    If Dir(escritorio & "\" & Range("A14"), vbDirectory) = "" Then
        MkDir escritorio & "\" & Range("A14")
        ActiveWorkbook.SaveAs escritorio & "\" & Range("A14") & "\" & Range("A14")
    End If
End Sub

Saludos. Dante Amor
No olvides finalizar la pregunta.

Buenas tardes Dante, gracias por tu respuesta. Te comento que la rutina que me indicaste si crea la carpeta adecuadamente, y crea un archivo con el nombre dentro de la carpeta, pero el archivo que crea no tiene extensión. También aprovecho para comentarte que los archivos que quiero guardar son *.xlsm o *.xlsx

Ya lo revisé y te crea el archivo con extensión xlsx

Revisa nuevamente o dime si le cambiaste algo a la macro

Sub crearcarpeta()
'Por.DAM
    Application.DisplayAlerts = False
    Set objWSHShell = CreateObject("WScript.Shell")
    escritorio = objWSHShell.SpecialFolders("Desktop")
    If Dir(escritorio & "\" & Range("A14"), vbDirectory) = "" Then
        MkDir escritorio & "\" & Range("A14")
        ActiveWorkbook.SaveAs escritorio & "\" & Range("A14") & "\" & Range("A14")
    End If
End Sub

Si quieres que se guarde como xlsm cambia esta línea

ActiveWorkbook.SaveAs escritorio & "\" & Range("A14") & "\" & Range("A14")

Por esta

ActiveWorkbook.SaveAs Filename:=escritorio & "\" & Range("A14") & "\" & Range("A14"), _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Respuesta

Que tal buena tarde tengo un problema

Quiero crear un botón donde al dar clic me permita seleccionar un archivo de escritorio (.xls) y pueda guardarlo sin abrirlo en una carpeta determinada, con el nombre que yo quiera.

Tengo este código pero solo me permite abrirlo y no guardarlo sin abrirlo

Private Sub CommandButton23_Click()
ruta = ThisWorkbook.Path
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione archivo de excel"
.Filters.Clear
.Filters.Add "All Files", "*.*"
.Filters.Add "xls.*", "*.xls*"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = ruta
'.Show
If .Show Then
arch = .SelectedItems.Item(1) & SaveAs
End If
End With

End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Crear carpeta en el escritorio y guardar archivos dentro

Tengo el siguiente código el cual me colaboraron en crear muy amablemente, tengo un botón que al oprimir activa la macro, pero necesito que al oprimir el botón se cree una nueva carpeta nombrada con el valor de la celda j9, y queden dentro de ella un...
1 respuesta

Macro para poner el valor de una celda a una carpeta

Mi nombre es Manuel, soy totalmente inexperto en la programación de macros, como mucho he llegado a grabar alguna y a copiar mas de una. Antes de nada quiero agradecer a todos aquellos que han puesto su sabiduría en el interés general. Tengo la...
1 respuesta

Crear respaldo de libro con nombre de fecha y en escritorio.

Tengo este código: Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim Resp As BooleanResp = FalseResp = IIf(MsgBox("Desea Guardar una Copia?", _vbQuestion + vbYesNo, "Atención") = vbYes, True, False)If Resp...
1 respuesta

¿Crear carpeta según valor de celda y guardar una copia de mi libro en esa carpeta creada?

Quisiera saber si puedo generar una carpeta con valor de la celda a2 hasta f50 pero que se crea la carpeta con valor de la celda a2 y mi libro me lo guarde en esa carpeta.
2 respuestas

Creación de carpetas con macro

Necesito crear dos carpetas cuyos nombres están en las celdas A1 y A2 en la carpeta con el nombre A1 deberían crearse dos subcarpetas con nombres siempre iguales (ejemplo. "Principal" y "Secundario") La carpeta con el nombre en A2 puede repetirse el...
1 respuesta

Copiar una hoja en una carpeta creada automáticamente

Estoy haciendo una macro que me copie una hoja llamada código en una carpeta en el directorio donde se encuentra el libro, esta carpeta debe crearse automáticamente sino existe, y debe guardarse por mes, ejemplo si estamos en el año 2015 en el mes de...
1 respuesta

Como crear una macro que guarde un archivo con el nombre de una celda, la fecha en la que se creo

Quisiera que me ayuden a crear una macro que me permita guardar una hoja de excel tomando como nombre el dato de una celda, que al mismo tiempo le de la fecha en la que se creo y que me permita guardar el archivo en una carpeta
1 respuesta

Contar Hojas y mover a libro especifico Vba

Solicito en la medida de lo posible ayuda para una ampliación de macro que estoy realizando, tengo un libro con 40 hojas fijas y a partir de la 40 me va generando hojas con diferentes números, la macro consiste en contar hasta la hoja 40 y mover...
1 respuesta

Guardar Hoja(hoja3) En Una Carpeta Especifica(C:\Excel\) Con Botón Macro Ubicado en Una Hoja Diferente A La Que Se Va A Guardar

Mi amigo necesito de tu ayuda! Primero quiero darte las gracias por responder el post y luego quiero preguntarte algo: Primero quiero decirte que este código me sirve a la perfección: Sub crearcarpeta2() 'Por.DAM ruta = "C:\Excel\" arch = Range("A2")...
2 respuestas

Macro para crear carpeta con nombre de celdas

Estimado muy buenas tardes! Tengo un problema con una macro que no logro resolver... Cree un botón el cual al oprimirlo guarda una hoja de excel en PDF con el nombre de dos celdas (valor de celda1+valor de celda2). Ahora bien quiero hacer lo mismo...
2 respuestas