Macro para guardar archivo con nombre específico y abrir carpeta

Soy nuevo en el foro y en el manejo de los macros.

Necesito crear un macro que guarde el archivo con un nombre específico (se encuentra en la celda "U7") y como destino el escritorio. El problema es que según la PC, no siempre el disco es "C:\".

¿Hay alguna forma de hacerlo?

1 Respuesta

Respuesta
1

Ahora te mando la solución un momento

Te mando mi solución con esta macro:

Sub ejemplo()
'por luismondelo
On Error GoTo salida
unidad = InputBox("introduzca la unidad de disco que contiene su escritorio" & Chr(13) & "solo tiene que poner la letra sin los dos puntos", Default:="c")
If unidad = "" Then Exit Sub
nombre = ActiveSheet.Range("u7").Value
ActiveWorkbook.SaveAs unidad & ":\Users\Luis\Desktop\" & nombre, FileFormat:=xlOpenXMLWorkbookMacroEnabled
MsgBox "El archivo se ha guardado en el Desktop de la unidad " & unidad
Exit Sub
salida:
MsgBox "ha ocurrido algún error, revise los datos y empiece de nuevo"
End Sub

recuerda finalizar la consulta

Luis muchas gracias! Sabés que me da error. Inclusive ante la duda puse la ruta de mi escritorio.

Gracias,

Tengo que enviar esta planilla a varias PC. La verdad es que no todos saben cuál es la ruta de su escritorio y necesito hacerla casi automatizada....

El cuadro que pide la unidad de disco es muy práctica!! El problema es que si debo pedirle a cada uno que introduzca la ruta de su escritorio, no muchos lo sabrán hacer (y son 120 usuarios, a muchos kms de distancia!!)

Disculpa pero en la pregunta que aparece no hay que introducir la ruta, solo hay que introducir la unidad, es decir, una letra: C, D... E...

Además hay que tener en cuenta el al ruta del escritorio puede cambiar en los distintos ordenadores, eso lo hace un poco más dificil

Si, entendí. Pero mi unidad es C (y lo introduje sin puntos ni \), de todas maneras aparece el error. Pensé que al estar la ruta de tu escritorio en el macro podía ser eso lo que me daba error, pero al poner mi ruta tampoco dejó de darme error. No sé si me expliqué....

ActiveWorkbook.SaveAs unidad & ":\Users\Luis\Desktop\" & NOMBRE,

Gracias

Correcto ese es el problema. Esa es mi ruta.

Estoy pensando un poco..

Muchas gracias por tu tiempo Luis!

Te propongo esta solución:

Sub ejemplyo()
'por luismondelo
On Error GoTo salida
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, "SELECCIONE SU CARPETA DE ESCRITORIO POR FAVOR" & Chr(13) & "Debe empezar la búsqueda desde equipo en adelante", 0, "equipo").items.Item.Path
nombre = ActiveSheet.Range("u7").Value
ActiveWorkbook.SaveAs carpeta & "\" & nombre, FileFormat:=xlOpenXMLWorkbookMacroEnabled
MsgBox "El archivo se ha guardado en el Desktop de la unidad " & unidad
Exit Sub
salida:
MsgBox "ha ocurrido algún error, revise los datos y empiece de nuevo"
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro guardar archivo con parte del nombre variable

De antemano les agradezco a todos los que gentilmente nos ayudan en esta pagina, y muy sinceramente a elsamatilde, luismondelo, nefese, csarxex, calvuch, quienes me hay ayudado mucho a simplificar mis tareas laborales con macros que muy gentilmente...
1 respuesta

Guardar libro de excel con macro pero con el nombre de alguna celda de dentro del archivo de excel

Ya hice una macro en excel que me guarda un archivo automáticamente, pero me lo guarda con el mismo nombre, sobrescribiendo el mismo archivo, lo que quiero es que el nombre se cambien en automático cuando cambien una celda dentro del libro,, como...
2 respuestas

Como poner una foto en un formulario excel

Tengo un formulario donde necesito que aparezca la foto, escribiendo el nombre del archivo de la foto en un textbox del mismo formulario. La idea es que por medio de vba la macro llame la imagen desde una capeta donde estarán ubicadas todas las fotos.
1 respuesta

Macro que busque un archivo y lo abra desde cualquier ruta

Quisiera que me ayudaran con mi problema, resulta que tengo una macro que funciona muy bien en mi ordenador, pero resulta que si intento ejecutarlo en otro ordenador me causa error ya que la ruta del archivo del cual extraigo los datos no es la...
2 respuestas

¿Cómo guardar sólo una hoja de excel con un nombre predefinido mas la fecha?

Quisiera saber como lo puedo hacer para guardar una hoja de excel en el escritorio con un nombre predefinido mas la fecha correspondiente al mes en que se guardo mas el año ej: hoja de cuenta noviembre 2012 o hoja de cuenta diciembre 2012... Etc.
1 respuesta

Macro guardar hoja excel

Ayer hice una pregunta a cerca de como hacer una macro para guardar una hoja en la que estoy con cuadro de dialogo y de un rango de celdas determinado. Luismondelo me respondió satisfactoriamente. Pero quiero modificar y que me la guarde directamente...
1 respuesta

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 en Excel para que me abra el cuadro "Guardar Como" pudiendo elegir destino y nombre

Necesito una macro para que al ejecutarla me abra el diálogo o como se llame "Guardar Como", que me deje elegir el nombre, que me deje elegir la ubicación y que por default lo guarde con extensión xlsm. ¿Será posible?
1 respuesta

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...
2 respuestas

Se elimina mi macro al haber ejecutado un código!

Tengo un libro el cual su nombre cambia. Entonces cree una macro el cual guarda los mismos datos pero en otro libro al igual que le puedo cambiar el nombre... El código es este: Sub NUEVO_LIBRO_CON_RUTA() ' ' NUEVO_LIBRO Macro ' c_Nombre =...
1 respuesta