Guardar hojas sólo con información y abrirlas con su base de datos

[noise56]

Buenos días, amigos.

Excel 2003 + SP3

A ver si soy capaz de explicarme con claridad.

Tengo un libro que contiene mucho VBA, muchas fórmulas y con una base de datos que me ocupa unas 40 hojas completitas de registros. Por lo tanto, es normal y lógico que el archivo pese cerca de 8 Mb.

Este libro es un proyecto (por cierto, que creía ya terminado), hecho para una tarifa de precios junto a una hoja diseñada para presupuestos. Cada vez que hacemos uno, se guarda en una ruta establecida y con el nombre según el valor de una celda, y el guardado se ejecuta con una macro con el siguiente código:

[COLOR="#0000FF"]Sub GuardarDirecto()


Dim ruta As String

On Error Resume Next


ruta = "E:\Presupuestos\Presu2012\" & Range("D7") & ".xls"

ActiveWorkbook.SaveAs Filename:= _

ruta, FileFormat:=xlNormal _

, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False


End Sub[/COLOR][/CODE]

Hasta aquí todo perfecto, pero resulta que cada vez que guardamos un presupuesto, obviamente se guarda todo, es decir: se guardan fórmulas, macros, las 40 hojas… todo. Y claro, cada presupuesto pesa esos cerca de 8 Mb.

A través de código VBA, sé que puedes guardar hojas seleccionadas, como por ejemplo con este código agenciado gracias al maestro Macro Antonio:

[CODE][COLOR="#0000FF"]Private Sub CommandButton2_Click()

Dim Nombre As String
Nombre = InputBox("Ingrese Nombre", "Ingreso")
Nombre = Replace(Nombre, ".xlsx", "")
Nombre = Replace(Nombre, ".xls", "")
If Len(Nombre) = 0 Then Exit Sub
Sheets("Hoja1").Select
Sheets("Hoja1").Copy
ActiveWorkbook.SaveAs Filename:="D:\Varios\" & Nombre & ".xls"
ActiveWorkbook.Close
End Sub[/COLOR][/CODE]

El problema que esto conlleva es que después no puedes modificarlas, retocarlas o rectificarlas, ya que sólo contienen información.

Bueno, alguien muy apreciado en y de este foro, me hizo una observación con respecto a un sistema por el cual se pueden guardar sólo las hojas que nos interesen, pero luego, puedes abrirlas conectándolas al resto de la aplicación. No estoy muy seguro de que el comentario fuera este exactamente, pero sí algo parecido, no lo recuerdo bien.

La verdad es que me interesa muchísimo este asunto. Así que, por favor, si ”alguien” pudiera ayudarme se lo agradeceré.

Saludos