Es posible que tenga la necesidad de copiar rutinariamente un libro de trabajo en varias ubicaciones de su sistema. Por ejemplo, es posible que sea necesario copiar el libro de trabajo abierto en un disco duro local y en varias unidades asignadas que se encuentran realmente en la red de su oficina.

Excel no tiene una capacidad incorporada para hacer esto, pero si las distintas ubicaciones están bien definidas, puede crear una macro que hará el ahorro por usted. La siguiente macro es un ejemplo de una herramienta de este tipo:

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

El ejemplo particular de la macro guarda el libro activo en cinco ubicaciones diferentes, todas con el mismo nombre de libro. La macro determina la ubicación actual del libro de trabajo para que se pueda guardar en la ubicación actual por último. La razón por la que se hace esto es para que pueda seguir utilizando la herramienta Guardar normal y obtener los resultados esperados.

Si desea utilizar esta macro en su propio sistema, todo lo que necesita hacer es asegurarse de cambiar las letras de unidad de donde se guardará cada libro. Si una de las unidades que especifica es para una ubicación que utiliza medios extraíbles y no hay ningún medio en la unidad, la macro generará un error y se detendrá. Luego, tendrá que averiguar dónde se guardó originalmente el libro de trabajo para poder volver a guardarlo manualmente (usando Guardar como).

Otra peculiaridad de la macro es que, dado que usa el método SaveAs, si ya hay un libro de trabajo en cada uno de los destinos con el mismo nombre que el libro de trabajo actual, Excel le preguntará si desea que se sobrescriba la versión existente del libro de trabajo. Este será siempre el caso con el último guardado, en la ubicación original.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2774) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Saving_in_Multiple_Locations [Guardar en múltiples ubicaciones].