Aiutamici Forum
Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

[Excel 2007]-codice per "tutti Workbooks (e WorkSheets) eccetto..." Opzioni
aetio
Inviato: Monday, October 07, 2013 9:52:23 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
in una macro, supponendo

Dim wbFr As Workbook
Dim wsFr As Worksheet

l'istruzione
For Each wsFr In wbFr.Worksheets
dovrebbe significare
Per ciascun foglio delle cartelle (di TUTTE le cartelle)
includendo quindi TUTTI i Workbooks aperti.
C'è la possibilità di istruire in modo che l'impianto rimanga lo stesso, ma si escluda il primo Workbook (o meglio ancora un file specificato nell'istruzione) aperto?
Per ciascun foglio delle cartelle (di TUTTE le cartelle), eccetto Workbooks("FILE1.xlsm") [il primo Workbook aperto]

Una precisazione: ciò che ho scritto sopra è l'assunto di uno che "sta imparando", quindi prego di leggere il tutto al condizionale.
Grazie assai, buona giornata
eZio
Sponsor
Inviato: Monday, October 07, 2013 9:52:23 AM

 
a10n11
Inviato: Monday, October 07, 2013 10:59:16 AM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
aetio ha scritto:
Ciao,
in una macro, supponendo

Dim wbFr As Workbook
Dim wsFr As Worksheet

l'istruzione
For Each wsFr In wbFr.Worksheets
dovrebbe significare
Per ciascun foglio delle cartelle (di TUTTE le cartelle)
includendo quindi TUTTI i Workbooks aperti.
C'è la possibilità di istruire in modo che l'impianto rimanga lo stesso, ma si escluda il primo Workbook (o meglio ancora un file specificato nell'istruzione) aperto?
Per ciascun foglio delle cartelle (di TUTTE le cartelle), eccetto Workbooks("FILE1.xlsm") [il primo Workbook aperto]

Una precisazione: ciò che ho scritto sopra è l'assunto di uno che "sta imparando", quindi prego di leggere il tutto al condizionale.
Grazie assai, buona giornata
eZio

salve

prova così':

Dim wbFr As Workbook
Dim wsFr As Worksheet
For Each wbFr In Workbooks
If wbFr.Name <> "FILE1.xlsm" Then
For Each wsFr In wbFr.Worksheets
'quello che devi fare
Next
End If
Next

saluti
Giap



aetio
Inviato: Monday, October 07, 2013 11:56:07 AM

Rank: AiutAmico

Iscritto dal : 5/10/2010
Posts: 723
Ciao,
sei davvero u-ni-co.
Funziona perfettamente, come sempre.
Grazie infinite, buona giornata
eZio
Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.