¿Se puede declarar un objeto de hoja de cálculo globalmente en Excel VBA?

Question

Estoy refactorizando una cantidad de módulos en un libro de Excel 2003 y el mismo conjunto de hojas de trabajo se declara en cada procedimiento en cada módulo; Me gustaría simplemente declararlos una vez en todo el mundo. Puedo establecer el nombre de hoja de cálculo como un literal, por ejemplo:

Public Const xlwkGSModel = "gs_model" As String 

Y luego, en el uso procedimiento:

...ActiveWorkbook.Worksheets(xlwkGSModel).Cells(1,1) 

Pero hay una manera de declarar el objeto de hoja de modo que el código en el procedimiento podría ser:

...xlwkGSModel.Cells(1,1) 

Answer 1

'1. Inserte un módulo

'2. Declara la variable pública hoja de cálculo del módulo de la siguiente manera

Public xlwkGSModel As Worksheet 

'3. Crear instancias de esta variable pública en caso de carga de aplicaciones

Sub Workbook_Open() 

    Set xlwkGSModel = ActiveWorkbook.Worksheets("gs_model") 

End Sub 

'ya se puede consultar la hoja de trabajo gs_model con la variable xlwkGSModel

' Por ejemplo

dim x as string 

x = xlwkGSModel.Cells(1,1) 

Answer 2

Editar: el comentario de Alistair de Knock es correcto, debería haber leído la cuestión a fondo - por supuesto, mi respuesta es no t válido para objetos, solo para tipos como cadena o entero. Para objetos necesitas una función o sub que crea una instancia.

---

Sí, puedes, recientemente lo hice. Si define sus definiciones como Public, puede usarlas directamente en sus otros módulos (dentro del mismo libro de trabajo, por supuesto).

Tal vez el mejor enfoque es tener un módulo separado Globals y ponerlos allí.

Answer 3

Podría, pero ¿realmente desea más variables globales? Por qué no crear (dentro de un módulo estándar) una propiedad pública ModelWorksheet, así:

Public Property Get ModelWorksheet As Worksheet 
    Const ModelWorksheetName As String = "gs_model" 
    Set ModelWorksheet = ActiveWorkbook.Worksheets(ModelWorksheetName) 
End Property 

... entonces su código puede hacer:

With ModelWorksheet 
    .Cells(1,1).Value = "foo" 
    .Font.Bold = True 
End With 

Tenga en cuenta también que se puede hacer referencia a cualquiera de las hojas de trabajo en el libro actual directamente, por lo que si hay una hoja llamada Hoja1 que puede hacer:

With Sheet1 
    .Cells(1,1).Value = "foo" 
    .Font.Bold = True 
End With 

Answer 4

Es hace mucho tiempo, pero mejor tarde que nunca ;-) No sé si eso funciona en Excel 2003 (probado con 2007):

Ni siquiera necesita declinar son hojas de trabajo en el código, porque ya están declaradas. Estoy trabajando con una versión alemana de Excel y puedo acceder a una hoja de trabajo escribiendo "Tabelle1.Cells (...) ...". Supongo que en la versión en inglés es algo así como "Tabla1" o "Hoja1".

También puede cambiar estos nombres. En el Editor de Visual Basic, eche un vistazo a los objetos de Microsoft Excel de su VBA-Project. (Están justo encima de sus Módulos y UserForms en la vista Proyecto VBA). Están los Objetos Hoja de Trabajo de su libro de trabajo. Seleccione una hoja y active la Ventana de herramientas Propiedades. Allí puede editar el nombre de la hoja y acceder a ella con ese nombre en su código.

Answer 5

O si no desea utilizar el Evento de Excel, también puede declarar públicamente su hoja de trabajo y luego crear un sub para establecer el valor para ella. Llame a ese sub al principio de cada sub para inicializar el valor. (Lo hice de la respuesta de Orwell.)

---

Public WSRawData As Worksheet 

---

Public Sub RawDataWSInit() 

Set WSRawData = Worksheets(RawData) 

End Sub 

---

Sub Main() 

Call RawDataWSInit 

End Sub 

---

Answer 6

las hojas de cálculo son "Objetos de Microsoft Excel" definidos en su VBA-Project-Explorer :

en la pantalla anterior he llamado mi hoja de cálculo hoja de datos, por lo que ahora puedo acceder a ella directamente desde el código:

Set SomeRange = DataSheet.Range("A3:B6") 

Por defecto sus hojas de trabajo serán nombrados "Sheet1", "Hoja2", aso ... dependiendo de tu idioma.