Un oggetto foglio di lavoro può essere dichiarato globalmente in Excel VBA?

Question

Sto rifattorizzando un numero di moduli in una cartella di lavoro di Excel 2003 e lo stesso set di fogli di lavoro viene dichiarato in ogni procedura in ciascun modulo; Mi piacerebbe solo dichiararli una volta a livello globale. Posso impostare il nome del foglio di lavoro come un letterale, ad esempio:

Public Const xlwkGSModel = "gs_model" As String 

E poi nell'uso procedimento:

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

Ma c'è un modo per dichiarare l'oggetto foglio di lavoro in modo che il codice nella routine potrebbe essere:

...xlwkGSModel.Cells(1,1) 

Answer 1

'1. Inserire un modulo

'2. Dichiarare la variabile pubblica del foglio di lavoro nel modulo come segue

Public xlwkGSModel As Worksheet 

'3. Un'istanza di questa variabile pubblico in caso di carico dell'applicazione

Sub Workbook_Open() 

    Set xlwkGSModel = ActiveWorkbook.Worksheets("gs_model") 

End Sub 

'ora che è possibile fare riferimento al foglio di lavoro gs_model con la variabile xlwkGSModel

' Per esempio

dim x as string 

x = xlwkGSModel.Cells(1,1) 

Answer 2

Edit: il commento di Alistair di Knock è corretto, ho dovuto leggere attentamente la questione - naturalmente la mia risposta è no t valido per oggetti, solo per tipi come stringa o intero. Per gli oggetti hai bisogno di una funzione o sub che crea un'istanza.

---

Sì, è possibile, di recente ho fatto. Se definisci le tue definizioni come Public puoi usarle direttamente negli altri moduli (all'interno della stessa cartella di lavoro, ovviamente).

Forse l'approccio migliore è quello di avere un modulo separato Globali e inserirli lì.

Answer 3

Si potrebbe, ma vuoi davvero più variabili globali? Perché non creare (all'interno di un modulo standard) una proprietà pubblica ModelWorksheet, in questo modo:

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

... allora il tuo codice può fare:

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

Si noti inoltre che è possibile fare riferimento ad uno qualsiasi degli fogli di lavoro nella cartella di lavoro corrente direttamente, quindi se c'è un foglio chiamato Foglio1 si può fare:

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

Answer 4

E 'molto tempo fa, ma meglio tardi che mai ;-) Non so se funziona in Excel 2003 (testato con il 2007):

Non hai nemmeno bisogno di decl sono fogli di lavoro nel codice, perché sono già dichiarati. Sto lavorando con una versione tedesca di Excel e posso accedere a un foglio di lavoro digitando "Tabelle1.Cells (...) ...". Presumo nella versione inglese è qualcosa come "Table1" o "Sheet1".

È inoltre possibile modificare questi nomi. Nel Visual Basic Editor dare un'occhiata agli oggetti di Microsoft Excel del progetto VBA. (Si trovano proprio sopra i moduli e i UserForm nella vista VBA-Project). Ci sono gli oggetti del foglio di lavoro della tua cartella di lavoro. Seleziona un foglio e attiva la finestra delle proprietà. Qui puoi modificare il nome del foglio e accedervi con quel nome nel tuo codice.

Answer 5

Oppure, se non si desidera utilizzare l'Evento di Excel, è possibile dichiarare il proprio foglio di lavoro anche pubblicamente, quindi creare un sottotitolo per impostarne il valore. Chiama quel sub all'inizio di ogni sub per inizializzare il valore. (Ho fatto questo dalla risposta di Orwell.)

---

Public WSRawData As Worksheet 

---

Public Sub RawDataWSInit() 

Set WSRawData = Worksheets(RawData) 

End Sub 

---

Sub Main() 

Call RawDataWSInit 

End Sub 

---

Answer 6

i fogli di lavoro sono "oggetti di Microsoft Excel" definite nel VBA-Project-Explorer :

nella schermata sopra ho chiamato il mio foglio di lavoro Foglio dati, così ora posso accedervi direttamente all'interno del codice:

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

è preimpostato Fogli di lavoro si chiamerà "Sheet1", "Foglio2", così ... dipende dalla tua lingua.