Note: The other languages of the website are Google-translated. Back to English

¿Cómo guardar un archivo de Excel con valor de celda?

Cuando usa un libro de trabajo, ¿alguna vez pensó en guardar el archivo de Excel basándose en el contenido de una celda? Por ejemplo, tiene "Precio de venta" en la celda A1 y le gustaría guardar el libro como el nombre Precio de venta. Por supuesto, puede escribir el nombre en el cuadro de diálogo Guardar como y luego guardarlo. Pero este será un método ineficaz en su cantidad de trabajo. Hoy os hablaré de un truco rápido para solucionarlo.

Guarde el archivo de Excel con un valor de celda específico usando el código VBA

Pestaña de Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil
Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%
  • Reutiliza cualquier cosa: Agregue las fórmulas, gráficos y cualquier otra cosa más utilizados o complejos a sus favoritos y reutilícelos rápidamente en el futuro.
  • Más de 20 funciones de texto: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convierta números y monedas a palabras en inglés.
  • Combinar herramientas: Varios libros de trabajo y hojas en uno; Fusionar varias celdas / filas / columnas sin perder datos; Fusionar filas duplicadas y suma.
  • Herramientas divididas: Divida los datos en varias hojas según el valor; Un libro de trabajo para varios archivos Excel, PDF o CSV; Una columna a varias columnas.
  • Pegar saltando Filas ocultas / filtradas; Cuenta y suma por color de fondo; Envíe correos electrónicos personalizados a varios destinatarios de forma masiva.
  • Súper filtro: Cree esquemas de filtros avanzados y aplíquelos a cualquier hoja; Ordenar por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de 300 potentes funciones; Funciona con Office 2007-2021 y 365; Admite todos los idiomas; Fácil implementación en su empresa u organización.

flecha azul burbuja derecha Guarde el archivo de Excel con un valor de celda específico usando el código VBA

El siguiente código VBA puede ayudarlo a guardar su libro de trabajo con un valor de celda específico, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.

Código de VBA: guarde el archivo de Excel con un valor de celda específico

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Y luego presione F5 para ejecutar el código, y su libro de trabajo ha sido nombrado como el contenido de celda de la celda A1. Ver captura de pantalla:

doc-guardar-con-valor-de-celda-1

Notas

1. Puede especificar cualquier valor de celda como nombre de archivo simplemente modificando el A1 a otra referencia de celda en el código anterior.

2. Su libro de trabajo activo se guardará en la carpeta de C: \ Users \ dt \ Desktop \ mi información \ (la última barra debe permanecer cuando pegue su ubicación en lugar de ella) ubicación, puede cambiar la ruta según sus necesidades.


Artículos relacionados:

¿Cómo guardar un archivo con fecha y hora en Excel?

¿Cómo mostrar la ruta del archivo en la barra de título o la barra de herramientas en Excel?


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
officetab parte inferior
Comentarios (33)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
el módulo no guarda en .XlsX; creo que tiene algo que ver con la linea 7;; ".xls", formato de archivo:=xlNormal; Además, ¿cómo puedo modificar para tomar el valor de 3 celdas diferentes concatenadas? por ejemplo: nombre, apellido, fecha; en la línea 6 del código?
Este comentario fue minimizado por el moderador en el sitio
Dim nombre de archivo como cadena
Dim filename1 como cadena
Dim filename2 como cadena

Ruta = "C:\Usuarios\dt\Escritorio\mi información\"
nombre de archivo = rango ("A1")
nombre de archivo1 = Rango ("A2")
nombre de archivo2 = Rango ("A3")
ActiveWorkbook.SaveAs filename:=Ruta & filename & "-" & filename1 & "-" & filename2 ".xls", FileFormat:=xlNormal
Este comentario fue minimizado por el moderador en el sitio
cris Puede concatenarlo en una celda separada y luego hacer referencia a esa celda para que sea el valor de su nombre de archivo.
Este comentario fue minimizado por el moderador en el sitio
Hola, el mío solo se guardará como la ruta y el nombre del archivo. Solo quiero que el nombre del archivo al que se hace referencia desde la celda solo se guarde. ¿Podrías ayudarme?
Este comentario fue minimizado por el moderador en el sitio
Esto es genial... pero parece que hay un error que no estoy seguro de cómo corregir. Estoy usando esto en una plantilla habilitada para macros. Abro la plantilla, realizo cambios/actualizaciones, presiono F5 para ejecutar la macro... y... aparece un cuadro de diálogo "Ir a" esperando que ingrese una "referencia". Sin embargo, si presiono ALT F11, y LUEGO presione F5, el nuevo archivo .xls se guarda como se esperaba. ¿Tengo que abrir siempre el módulo de Visual Basic para ejecutar este procedimiento de "guardar"?
Este comentario fue minimizado por el moderador en el sitio
Tengo una plantilla que no quiero que se sobrescriba para que el usuario deba guardar el archivo con el nombre de la fecha ingresada en uno de los campos. No quiero que el usuario tenga que abrir herramientas y luego seleccionar/ejecutar macro. También podrían ingresar el nombre del archivo.
Este comentario fue minimizado por el moderador en el sitio
puede agregar =AHORA() como parámetro a su nombre de archivo en la celda antes de extraerlo en la Macro (y también colocar un botón estándar en la esquina de la página para que el empleado no tenga que abrir ninguna herramienta
Este comentario fue minimizado por el moderador en el sitio
Ustedes son salvavidas. ¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
Necesito guardar como un archivo .csv. ¿Cómo cambiaría esto para que se guarde como un archivo .csv? Private Sub filename_cellvalue() 'Actualizar 20141112 Dim Path As String Dim filename As String Path = "C:\Doorlister\import\DoorJob\" filename = Range("AC2") ActiveWorkbook.SaveAs filename:=Path & filename & ".xls ", FileFormat:=xlNormal End Sub ¡Gracias de antemano por su ayuda!
Este comentario fue minimizado por el moderador en el sitio
Creo que hice algo mal aquí...

Me da error en la linea Sheets("shitname").Seleccione

Probablemente hice algo mal cuando nombré el "nombre de mierda" como la celda K10

quiero cambiar la hoja a otra hoja que se llame exactamente igual que la celda K10


Macro de Gissel
'
' Atajo de teclado: Ctrl+Shift+C
'
Selection.Copy
Hojas("debaga").Seleccione
Filas("8:8").Seleccionar
ActiveSheet.Paste
Dim Path como cadena
Ruta = "C:\cgxml\"
Dim nombre de archivo como cadena
nombre de archivo = rango ("A8")
Dim nombre de mierda como cadena
nombre de mierda = rango ("K10")
Hojas("nombre de mierda").Seleccione
Application.CutCopyMode = False
ActiveWorkbook.SaveAs filename:=Ruta y nombre de archivo & ".xml", FileFormat:=xltxt, CreateBackup:=False
Hojas("TOTAL").Seleccione
ActiveCell.Offset(1, 0).EntireRow.Select
End Sub
Este comentario fue minimizado por el moderador en el sitio
Esto funciona muy bien... Gracias, pero necesito guardarlo como PDF... ¿Alguna idea?

Muchas Gracias

Chris
Este comentario fue minimizado por el moderador en el sitio
igual que arriba pero reemplace ActiveWorkbook.SaveAs con: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filename.pdf", Quality:= _
xlQualityStandard, IncluirPropiedadesDocumentos:=Verdadero, IgnorarÁreasImpresión:=Falso, _
AbrirDespuésPublicar:=Verdadero
Este comentario fue minimizado por el moderador en el sitio
Gracias por tus comentarios, me ayudaron mucho.
Este comentario fue minimizado por el moderador en el sitio
Hola,
¿Qué debo agregar si quisiera guardar la hoja de trabajo activa pero usando el valor de la celda de la hoja 1?
Este comentario fue minimizado por el moderador en el sitio
Ayuda por favor... Me las arreglé para hacer todo. Pero guarda los documentos en Mis documentos en lugar del servidor especificado...



Private Sub CommandButton1_Click ()
Dim Path como cadena
Dim FileName1 como cadena
Dim FileName2 como cadena
Dim FileName3 como cadena
Dim FileName4 como cadena
Dim FileName5 como cadena
Ruta = "J:\Servicios de protección\Documentos\Seguridad de Booysendal"
NombreArchivo1 = Rango("A2")
NombreArchivo2 = Rango("B2")
NombreArchivo3 = Rango("C2")
NombreArchivo4 = Rango("D2")
NombreArchivo5 = Rango("E2")
ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
End Sub
Este comentario fue minimizado por el moderador en el sitio
Agregue una barra invertida después de la seguridad y antes de la cita... ...seguridad\"
Este comentario fue minimizado por el moderador en el sitio
¿Qué sucede si solo desea definir el nombre del archivo pero tiene la opción de elegir la ruta del archivo cada vez que guarda?

También puede especificar varias celdas para el nombre del archivo. Las celdas también se fusionan.

Guardar en diferentes rutas de archivo cada vez

Utilice varias celdas para el nombre de archivo
Este comentario fue minimizado por el moderador en el sitio
Ok, conseguí que esto funcionara bien usando un botón en la hoja. Ahora me gustaría que solo se guarde normalmente después de guardar como inicial. Se puede hacer esto? ¿Usando el mismo botón de guardar?
Gracias Bruce
Este comentario fue minimizado por el moderador en el sitio
cómo crear una macro para guardar varias hojas con sus valores de celda como nombres de archivo
Gracias,
Rajiv
Este comentario fue minimizado por el moderador en el sitio
¡Hola a todos!

¿Cómo se pueden guardar entradas repetitivas en las mismas celdas, en otras celdas, con una macro?

En la hoja 1, ingreso datos en A1, B1, C1, para n veces en un día. En la hoja 2, necesito guardar todos estos registros, en A2, B2, C2, A3, B3, C3, etc. ¡Tnx!
Este comentario fue minimizado por el moderador en el sitio
Hola amigos,
Tengo un problema y me alegraría si hay alguien que me ayude.
Tengo un archivo en la unidad "F" y la carpeta "ABS"; mi nombre de archivo es "Listdata"
En un archivo de Excel en mi escritorio, quiero que las celdas (4,4) recuperen datos de la hoja "ABS" (1) y la celda (2,2)
El siguiente código
Sub Macro1 ()
hoja activa.Celdas(4, 4).Valor = " F:\ABS\" & listdata & ".xlsx" & Hojas(1).Celdas(2, 2).Valor
End Sub
pero no funciona correctamente
Gracias amigos
Este comentario fue minimizado por el moderador en el sitio
Hola, estoy tratando de usar este código, pero cuando intento ejecutarlo, aparece un error de tiempo de ejecución 1004 y resalta la fila 7 como no válida: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
¿Cómo puedo resolver esto? estoy usando office 365
Este comentario fue minimizado por el moderador en el sitio
Se a cell de referencia estiver em uma outra planilha já aberta? Como faço?
Este comentario fue minimizado por el moderador en el sitio
Hola. Estoy muy emocionado de que podría funcionar, pero para mí dice "Error de tiempo de ejecución BÁSICO. Procedimiento de sob o procedimiento de función no definido". y flecha que indica la línea 6. ¿Qué debo hacer?
Este comentario fue minimizado por el moderador en el sitio
Tengo un botón de control para guardar como PDF con un nombre específico en una ubicación específica que ya funciona, pero quiero modificar el código porque el nombre del archivo es el nombre de la hoja activa más el valor de una celda específica de otra hoja. ¿Cómo puedo hacer eso? Esto es lo que tengo para guardar como PDF:


Private Sub CommandButton1_Click ()
Application.ScreenUpdating = False
ActiveSheet.ExportAsFixedFormat Tipo:=xlTypePDF, _
filename:="\\U:\Documents\My_IT_Stuff\T&A\PP11", _
OpenAfterPublish: = Falso
Application.ScreenUpdating = True
End Sub

¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
¿Alguien puede ayudarme con una solución? Logré obtener el resultado correctamente si la celda no está en blanco.

Sub guardado privado como ()

Dim camino como cadena

Dim filename1 como cadena



ruta = "C:\Usuario\Compwork\"



filename1 = ruta & Rango("G4") & " " & "-" & " " & Rango("G6") & " " & "-" & " " & Rango("H7") & " " & "VTError "

Application.DisplayAlerts = False

ActiveWorkbook. Guardar como nombre de archivo 1, Formato de archivo: = 52, Crear copia de seguridad: = Falso

ThisWorkbook.Worksheets("informe").ExportAsFixedFormat Type:=x1typePDF, Filename:=filename1

Application.DisplayAlerts = True

ActiveWorkbook.Close



End Sub



Sin embargo, mi problema es que me gustaría guardar un nombre de archivo sin dejar un espacio si el valor de la celda es NULO, por ejemplo, si el valor G6 está en blanco, entonces me gusta la salida "G4-H7 VTError".
¿Hay alguna manera de abordar esto?


Gracias.
No hay comentarios publicados aquí todavía
Ver más
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL