Non riesco a rendere sempre "attiva" una matrice di dati.
La sequenza delle operazione:
a) apro il mio file di lavoro
b) automaticamente apre il file MAGAZZINO
c) legge tutte le celle e le trasferire in una matrice MAG(). (DOMANDA: C'E' UN METODO + VELOCE x LEGGERE TUTTI I DATI?)
d) chiudo il file MAGAZZINO
e) ***** VORREI CONTINUARE SEMPRE A LEGGERE NELLA MATRICE MAG(), CARICANDO LE INFORMAZIONI DESIDERATE ANCHE SU PIU' FOGLI PERO' CON PUBLIC NON FUNZIONA.
- Codice: Seleziona tutto
Public MAG(20000, 10) As String
Private Sub Workbook_Open()
Dim MAG(20000, 10) As String
Workbooks.Open FileName:="C:\MAGAZZINOI.xls"
For J = 1 To 10
For I = 1 To 20000
MAG(I, J) = Cells(I + 3, J)
Next I
Next J
Workbooks("MAGAZZINO.XLS").Close SaveChanges:=False
End Sub
Grazie infinitamente.