Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Ho trovato:
Sub FilesExcelAperti()
Dim i As Integer, wTab() As String
i = Application.Workbooks.Count: ReDim wTab(i - 1)
For i = 0 To UBound(wTab())
wTab(i) = Application.Workbooks(i + 1).Name
Next
End Sub
Grazie e buona giornata
Ivo