¿VBA guarda el contenido de la celda como ruta para guardar el archivo?

Este código guardará la hoja de trabajo actual como un archivo nuevo basado en el contenido de la celda D3 y lo guardará en la carpeta apropiada.

Sub SaveWorkbookByCellContent()

Atenuar ws como hoja de trabajo

Atenuar ruta de carpeta como cadena

Atenuar nombre de archivo como cadena

Atenuar extensión de archivo como cadena

Atenuar contenido de celda como cadena

Establecer ws = ThisWorkbook.Worksheets("Sheet1") ' Cambiar al nombre de la hoja de trabajo que debe guardarse

cellContent = ws.Range("D3").Value

folderPath = "D. D3"：\Daily Newspaper\2023 Daily Sheet\" amp; cellContent amp; "\"

Si Len(Dir(folderPath, vbDirectory)) = 0 Entonces

MkDir carpetaPath

End If

fileName = "Statement_" &Format( Ahora( ), "yyyyMMdd") 'Cambie el nombre del archivo y el formato de fecha según sea necesario

' Obtenga la extensión de archivo predeterminada del libro actual

fileExtension = Mid(ThisWorkbook.Name, InStrRev(ThisWorkbook. Name, "."))

' Guarde el archivo en la ruta especificada

ws.Copy

Con ActiveWorkbook

.SaveAs carpetaPath amp; fileName amp; fileExtension

.Close False

Finalizar con

End Sub

Antes de usar este código, asegúrese de cambiar el nombre de la hoja de trabajo en la variable ws por el nombre de la hoja de trabajo que desea guardar. Este código creará una carpeta basada en el contenido de la celda D3 (si la carpeta no existe), y luego guarde la hoja de trabajo en ese archivo. Un nuevo archivo en la carpeta. El nombre del archivo contendrá el informe y la fecha actual.