Come chiamare la macro specifica del foglio da una cartella di lavoro di Excel in un'altra?

Question

Sto provando a chiamare una macro di Excel che si trova in un'altra cartella di lavoro. È una macro specifica per il foglio, ma la sintassi fornita dalla documentazione di Microsoft e la ricerca sul Web forniscono solo un modo per accedere a una macro solo dalla cartella di lavoro. Che la sintassi è:

Application.Run ("testworkbook.xls!macroname") 

Che cosa devo fare è avere un riferimento foglio c'è anche, qualcosa di simile:

Application.Run ("testworkbook.xls!Sheet1.macroname") 

Ho provato questo e molte altre varianti, tra cui dover singola o doppia citazioni in là, ma ottengo sempre il messaggio che la macro non può essere trovata.

Edit: Con tutti gli indizi e le molte prove ho trovato la risposta. È possibile accedere ai sottotitoli specifici del foglio, ma è necessario utilizzare il nome canonico come "Foglio1", non è possibile utilizzare il nome del foglio effettivo. Apparentemente altre cartelle di lavoro non accedono a tali informazioni.

Così il formato di cui sopra funziona fino a quando non si tenta di utilizzare lo sheetname (e potrebbe essere necessario apostrofo il nome della cartella di lavoro (concatenando CHR(39) alle estremità).

Answer 1

So che hai capito questo, probabilmente dopo molti capelli-strappo e caffè, ma ho voluto:

• dare più dettagli sul perché questo è
• forniscono un modo in cui si Potresti usare il nome del tuo foglio per ottenere ciò che desideri .

Prima di tutto, il nome del foglio di lavoro che si desidera non è la stessa cosa del nome del modulo di codice. Quindi nel tuo VBE, vedi che il nome del modulo di codice è "Foglio1", ma se può avere una diversa proprietà di Name diversa, ad esempio "MySheet1" (o potrebbe anche essere lo stesso).

Per ottenere il nome, è necessario eseguire alcuni loop, modificare le impostazioni di sicurezza, ecc. Se questo è ciò che si cerca (questo funziona bene in ambienti più piccoli a causa del problema delle impostazioni di sicurezza), qui si va come un esempio:

1. modificare le impostazioni di sicurezza per fiducia l'accesso programmatico ai VBA progetti. In Excel 2007, vai su Orb | Opzioni di Excel | Centro di fiducia | Impostazioni del centro di fiducia | Macro Impostazioni e abilitare "Trust accesso al modello di progetto VBA"

2. Creare una cartella di lavoro con un foglio di lavoro .Rinominarlo "MySheet1". Aprire il VBE (Alt + F11) e in "Foglio1 (MySheet1)" creare un sub di routine, lo chiamano TimesTen e il codice appena messo Debug.Print 10 * 10. Come questo:

   Sub TimesTen() 
       Debug.Print 10 * 10 
   End Sub 
   

3. salvare il file come un documento di macro-enabled e lo chiamano "MacroXSLX.xlsm". Lascialo aperto.

4. Aprire un nuovo documento di Excel, navigare alla sua VBE e in una nuova macro ovunque, creare un sub chiamato Test. Nel corpo di questo codice, inserisci: .

   Sub test() 
   Dim SheetName As String 
   SheetName = "MySheet1" 
   Dim wb As Workbook 
   Set wb = Workbooks("MacroXSLX.xlsm") 
   For Each VBComp In wb.VBProject.VBComponents 
       If VBComp.Properties.Item("Name").Value = SheetName Then 
        Application.Run (wb.Name & "!" & VBComp.Name & ".TimesTen") 
       End If 
   Next 
   End Sub 
   

5. Premere F5 per eseguire test e si dovrebbe vedere nella finestra immediata.

Si può vedere a 4 # che sto scorrendo tutti i componenti (moduli, classi, ecc) alla ricerca di quello che ha una proprietà Name che ha un valore di MySheet1. Una volta ottenuto ciò, posso ottenere il nome di quel componente, che in questo caso è Foglio1 e usarlo per costruire la mia stringa che eseguirà la macro del foglio in MacroXSLX.xlsm. Il codice può essere ripulito ulteriormente per uscire dall'istruzione For quando hai trovato quello che vuoi, ecc.

Come accennato in precedenza, l'unico vero inconveniente è il pezzo delle impostazioni di sicurezza e la garanzia di accesso programmatico al VBAProject - bene su uno a dieci computer, ma potrebbe essere una seccatura se devi assicurarti che più di quello sia sempre impostato correttamente.

Answer 2

si può regolare la macro accettare un foglio come parametro? Quindi quando lo chiami nel foglio della tua cartella di lavoro originale potresti chiamarlo semplicemente MyMacro (me.name)? Quindi quando lo chiami dall'altra cartella di lavoro, potresti chiamarlo semplicemente come application.run ("testworkbook.xls! MyMacro", "sheetname") dove "sheetname" è il parametro.

non sono sicuro se c'è qualche altro modo per farlo.

Answer 3

Il progetto VBA è protetto da password? Inoltre, il sub è un sub privato? Se è così, allora non credo che la macro verrà trovata.