1) ho provato a caricare dei dati in una matrice, però non riesco ad aprire i file presenti nelle sottodirectory, ma solo nella directory principale.
Come posso fare?
- Codice: Seleziona tutto
myDir = ThisWorkbook.Path & "\"
NSumm = ActiveWorkbook.Name
myFile = Dir(myDir & "*.xls?")
I1 = 0
Do While myFile <> ""
If myFile = ThisWorkbook.Name Then GoTo nextF
Workbooks.Open (myDir & myFile)
NFILE = NFILE + 1
For FF = 1 To Worksheets.Count
NRR = Evaluate("=Max(if(" & Range("A1").Resize(2000,200).Address & "<>"""",row(" & Range("A1").Resize(2000, 200).Address & "),""""))")
NCC = Evaluate("=Max(if(" & Range("A1").Resize(2000,200).Address & "<>"""",COLUMN(" & Range("A1").Resize(2000, 200).Address & "),""""))")
For J = 1 To NCC
For I = 1 To NRR
I1 = I1 + 1
COD(I1, J) = Workbooks(myFile).Sheets(FF).Cells(I, J).Value
Next I
Next J
Next FF
ActiveWorkbook.Close savechanges = False
nextF:
myFile = Dir
Loop
2) Come posso evitare l'errore nella matrice COD(I,J) <Tipo non corrispondente>
- Codice: Seleziona tutto
IF COD(1,1)= ERRORE THEN
...
"CARICA LA MATRICE"
endif
Grazie