MATRICE DI DATI SEMPRE OPERATIVA

[cd7019]

ciao,

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.

[ricky53]

Ciao,
la definizione della matrice come Public va fatta in un Modulo.

La definizione della matrice è errata, va fatta in questo modo
Public MAG(20000, 10)

Devi cancellare la definizione della matrice nella macro "Workbook_Open"

[Anthony47]

Guarda il messaggio di Ricky, sopra, a proposito della corretta dichiarazione di una variabile Public.
Per caricare la matrice in un sol colpo:

Codice: Seleziona tutto

'. . . .
MAG = Range("A1:J20000").Value
'. . . .

In questo caso, pero', la variabile va dichiarata senza dimensioni, cioe' come

Codice: Seleziona tutto

Public MAG()


Ciao

[cd7019]

ciao,

Ho provato in due modi ma non mi funziona:

1) ho copiato tutto in un "MODULO1" , non mi riconosce la matrice MAG:

Codice: Seleziona tutto

Public MAG()
Private Sub Workbook_Open()
MYDIR = ThisWorkbook.Path & "\"
DIRMAG = MYDIR & "MAGAZZINO\"
FILE_LAV = ActiveWorkbook.Name
myFile = Dir(DIRMAG & "MAGAZZINO.xls?")
Workbooks.Open (DIRMAG & myFile)
MAG = Range("A5:M20000").Value
Workbooks(DIRMAG & myFile).Close savechanges = False

End Sub

Sub PROVA()
For I = 1 To 20
    For J = 1 To 12
        Cells(13 + I, 23 + J) = MAG(I, J)
    Next J
Next I
End Sub


2) ho copiato il seguente listato in THISWORKBOOK:

Codice: Seleziona tutto

Private Sub Workbook_Open()
MYDIR = ThisWorkbook.Path & "\"
DIRMAG = MYDIR & "MAGAZZINO\"
FILE_LAV = ActiveWorkbook.Name
myFile = Dir(DIRMAG & "MAGAZZINO.xls?")
Workbooks.Open (DIRMAG & myFile)
MAG = Range("A5:M20000").Value
Workbooks(DIRMAG & myFile).Close savechanges = False
End Sub


e ho definito la matrice MAG in "MODULO1"

Codice: Seleziona tutto

Public MAG()

>> ERRORE DI COMPILAZIONE: IMPOSSIBILE ASSEGNARE ALLA MATRICE

GRAZIE

[ricky53]

Ciao,
l'impostazione corretta è la "2".
Io, provando il tuo codice, non ho errori nel caricare la matrice "MAG"

L'istruzione

Codice: Seleziona tutto

Workbooks(DIRMAG & myFile).Close savechanges = False

è errata
va scritta così

Codice: Seleziona tutto

Workbooks(myFile).Close savechanges = False

Invia un tuo file di esempio, senza dati riservati, così lo possiamo provare.

[Anthony47]

Il fatto e' che nella firma l' utente da l' impressione di usare XL2003, in realta' usa XL97, una cosa vecchia di 15 anni...
Prova a dichiarare MAG come variant:

Codice: Seleziona tutto

Public MAG


Ciao

[ricky53]

Ciao,
VERO. Un un'altra discussione era stato affrontato il discorso della versione ...

[cd7019]

ciao,
avete ragione, con excel 2003 funziona perfettamente.

grazie ancora.

[ricky53]

Ciao,
BENE.

Buon proseguimento ed alla prossima.