Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Cuando usa un libro de trabajo, ¿alguna vez pensó en guardar el archivo de Excel basado en un contenido de celda? Por ejemplo, tiene "Precio de venta" en la celda A1 y desea guardar el libro de trabajo como el precio de Venta conocido. Por supuesto, puede escribir el nombre en el cuadro de diálogo Guardar como y luego guardarlo. Pero este será un método ineficiente en su cantidad de trabajo. Hoy hablaré sobre un truco rápido para resolverlo.

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

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

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 de VBA puede ayudarlo a guardar su libro de trabajo con un valor de celda especificado, haga lo siguiente:

1. Mantenga presionado 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 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 clave 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-save-with-cell-value-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 activo se guardará en la carpeta de C: \ Users \ dt \ Desktop \ mi información \ (la última barra debe permanecer al pegar su ubicación en lugar de) ubicación, puede cambiar la ruta a su necesidad.


Artículos relacionados:

¿Cómo guardar el 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?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bruna · 8 days ago
    Se a célula de referencia estiver em uma outra planilha já aberta? Como faço?
  • To post as a guest, your comment is unpublished.
    Tim · 5 months ago
    Hi, I am trying to use this code but when i try to execute I get a runtime 1004 error and it highlights row 7 as invalid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
    How can I resolve this? Im using office 365
  • To post as a guest, your comment is unpublished.
    Ahmad · 7 months ago
    Hi friends,
    I have a problem and would be glad if there is someone to help me
    I have a file at drive "F" and folder "ABS" - my filename is "Listdata"
    In an Excel file on my desktop I want cells(4,4) to retieve data from "ABS" sheet(1) and cell (2,2)
    The below code
    Sub Macro1()
    activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
    End Sub
    but it does not work correctly
    Thanks Friends
  • To post as a guest, your comment is unpublished.
    radulus · 10 months ago
    hi all!

    How can save repetitive input in the same cells, in other cells, with a Macro?

    In sheet1, I input data in A1, B1, C1, for n-times in a day. In sheet2, i need save all this records, in A2, B2, C2, A3, B3, C3, etc. Tnx!
  • To post as a guest, your comment is unpublished.
    Rajiv · 11 months ago
    how to create a macro to save multiple sheets as with their cell values as file names
    Thanks,
    Rajiv
  • To post as a guest, your comment is unpublished.
    Bruce McIntyre · 1 years ago
    Ok so i got this working good using an in sheet button. Now i would like it to just save normally after the initial save as. Can this be done? Using the same save button?
    Thanks Bruce
  • To post as a guest, your comment is unpublished.
    Janice Burbage · 1 years ago
    What if you want to you just want to define the filename but have the option to pick the file path each time you save?

    Also can you specify multiple cells for the filename. The cells are merged also.

    Save to different file paths each time

    Use multiple cells for the filename
  • To post as a guest, your comment is unpublished.
    Stef · 1 years ago
    Please help... I've managed to do everything. But it saves the docs into My Documents instead of the specified server...



    Private Sub CommandButton1_Click()
    Dim Path As String
    Dim FileName1 As String
    Dim FileName2 As String
    Dim FileName3 As String
    Dim FileName4 As String
    Dim FileName5 As String
    Path = "J:\Protection Services\Documents\Booysendal security"
    FileName1 = Range("A2")
    FileName2 = Range("B2")
    FileName3 = Range("C2")
    FileName4 = Range("D2")
    FileName5 = Range("E2")
    ActiveWorkbook.SaveAs Filename:=FileName1 & "-" & FileName2 & "-" & FileName3 & "-" & FileName4 & "-" & FileName5 & ".xls", FileFormat:=xlNormal
    End Sub
  • To post as a guest, your comment is unpublished.
    Keenan · 1 years ago
    Hi,
    What should i add if I wanted to save the active worksheet but using the sheet 1 cell value?
  • To post as a guest, your comment is unpublished.
    Chris · 2 years ago
    This works great... Thank you, but I need to save as a PDF... Any thoughts?

    Thanks

    Chris
    • To post as a guest, your comment is unpublished.
      Martin S · 2 years ago
      same as above but replace ActiveWorkbook.SaveAs with: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _"C:\input filenamne.pdf", Quality:= _
      xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
  • To post as a guest, your comment is unpublished.
    Kelvin · 2 years ago
    I need to save as a .csv file.
    how would I change this to make it save as a .csv file?
    Private Sub filename_cellvalue()
    'Update 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

    Thank you in advance for your help!
    • To post as a guest, your comment is unpublished.
      George · 1 years ago
      I think i did something wrong in here ...

      It gives me an error in line Sheets("shitname").Select

      Probably i did something wrong when i named the "shitname" like the cell K10

      i want to change the sheet to another sheet that is called exactly like the cell K10


      ' gicsel Macro
      '
      ' Keyboard Shortcut: Ctrl+Shift+C
      '
      Selection.Copy
      Sheets("debagat").Select
      Rows("8:8").Select
      ActiveSheet.Paste
      Dim Path As String
      Path = "C:\cgxml\"
      Dim filename As String
      filename = Range("A8")
      Dim shitname As String
      shitname = Range("K10")
      Sheets("shitname").Select
      Application.CutCopyMode = False
      ActiveWorkbook.SaveAs filename:=Path & filename & ".xml", FileFormat:=xltxt, CreateBackup:=False
      Sheets("TOTAL").Select
      ActiveCell.Offset(1, 0).EntireRow.Select
      End Sub
  • To post as a guest, your comment is unpublished.
    Ionel D · 2 years ago
    You guys are lifesavers. Thanks!
  • To post as a guest, your comment is unpublished.
    Ken Gaines · 2 years ago
    I have a template that I don't want to be written over so that the user is required to save the file named by date entered into one of the fields.
    I don't want the user to have to open tools then select / run macro. They might just as well enter the filename.
    • To post as a guest, your comment is unpublished.
      Martin S · 2 years ago
      you can add the =NOW() as a parameter to your filename in the cell before you extract it in the Macro (and also place a standard button in the corner of the page so that the emplyee wont have to open any tools
  • To post as a guest, your comment is unpublished.
    Greg · 2 years ago
    This is pretty cool... but there seems to be a bug that I'm not sure how to correct. I'm using this in a macro-enabled template.
    I open the template,
    I make changes/updates,
    I hit F5 to run the macro... and... a "Go To" dialog box pops up expecting me to key a "reference" in.

    However, if I hit ALT F11, and THEN hit F5, the new .xls file is saved as expected.

    Do I always need to open up the Visual Basic module to run this "save" procedure?
  • To post as a guest, your comment is unpublished.
    Alana · 3 years ago
    Hi,

    Mine will only save as the path and file name. I am only wanting the file name referenced from the cell to save only. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Dan · 3 years ago
    Chris.
    You can concatinate it in a separate cell and then refernce that cell to be your file name value.
  • To post as a guest, your comment is unpublished.
    Chris · 4 years ago
    module does not save in .XlsX ;

    think it has something to do with line 7;; ".xls", FileFormat:=xlNormal;

    Also how can I modify to take the value from 3 different cells concatenated?
    for instance: first name , last name , date; in line 6 of the code?