Andrea69-1969
00giovedì 17 febbraio 2022 17:28
Ciao a tutti,
Mi trovo in difficoltà con la proprietà .Count di Workbooks. Vi sarei grato se riuscite a darmi qualche suggerimento.
Ho fatto una routine che fa delle operazioni su dei file aperti contemporaneamente.
Vi copio per semplicità uno spezzone del codice:
numcart = Workbooks.Count
For i = 2 To numcart
Workbooks(i).Activate
Worksheets(1).Select
.....
next i
Il problema sta nel fatto che le cartelle che la routine deve analizzare sono del tipo "Excel 97-2003" ( e sono di numero 236)....
La funzione Workbooks.Count non conteggia questo tipo di file., infatti mi restituisce Numcart=1 (cioè la cartella che contiene la routine)
Esiste qualche parametro per far funzionare correttamente Workbooks.Count ?
Grazie anticipatamente
Andrea
alfrimpa
00giovedì 17 febbraio 2022 18:12
Non mi è chiaro quello che vuoi fare.
L'istruzione Workbooks.Count restituisce il numero delle cartelle di lavoro aperte in quel momento.
Tu hai 236 file di Excel 97-2003 tutti aperti contemporaneamente?
Tu devi aprire i file (che sono probabilmente in una directory) uno alla volta fare quello che devi e richiuderli.
Secondo me il Workbooks.Count che fa tutt'altra cosa non serve.
Questo sempre he abbia capito.
rollis13
00giovedì 17 febbraio 2022 19:15
Un saluto a tutti.
Usa la macro con il riferimento al workbook che contiene il sheet che ti serve:
Option Explicit
Sub test()
Dim numcart As Long
Dim i As Long
numcart = Workbooks.Count
For i = 1 To numcart
Workbooks(i).Activate
Workbooks(i).Sheets(1).Select '<- modificata
'.....
Next i
End Sub