¿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
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:
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
Potencia tus habilidades de Excel con Kutools for Excely experimente la eficiencia como nunca antes. Kutools for Excel Ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab Trae 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!











