estrazione campi foglio excel

[gomez]

Salve a tutti
mi sono appena iscritto e vorrei se possibile una soluzione da voi esperti.

Premetto che ho già utilizzato il cerca senza esito.

Il mio problema è questo.

Ho piu di 300 files .xls che corrispondono a 300 contratti. All'interno di questi contratti mi servono alcuni campi che sono l'indirizzo e_mail del cliente, il nome e cognome e la residenza.

Conosco poco visual basic e se avete qualcosa di già fatto o addirittura funzioni excell da proporre ben vengano.

Certo di un vostro aiuto

vi saluto

Gomez

[Anthony47]

Ciao gomez e benvenuto nel forum.
Il tuo quesito e' molto simile a questo: viewtopic.php?f=26&t=64713

Controlla se quanto fatto allora e' idoneo anche per te e fai sapere dove arrivi.

Ciao.

[gomez]

grazie mille Antony47
domani lo provo e farotti sapere.

Gomez

[gomez]

grazie mille.....
funziona benissimo. Obiettivo raggiunto....

[gomez]

ho un piccolo problema
perchè adesso non funziona più? faccio le stesse cose ma la macro collega mi da sempre un errore " Errore definito dall'applicazione o dall'oggetto 1004" sulla macro collega su questa riga "ActiveCell.Formula = "=" & Colleg". Mi puoi aiutare.
La macro inventario funziona benissimo
ciao e grazie

[Anthony47]

Immagino che stai lavorando con la macro suggerita a suo tempo per rabunin...
Quando va in errore, premi debug e vedrai evidenziata l' istruzione che sbaglia; vai col cursore sulla scritta Colleg (senza cliccarci), dopo qualche secondo ti dovrebbe apparire una scritta col valore corrente di Colleg: che cosa ti visualizza?

Ne approfitto per chiederti se hai implementato il meccanismo per evitare di ricalcolare tutti i collegamenti da zero quando aggiungi altri file; se SI, ti funziona? Ho visto che con rabunin la cosa non era mai stata chiarita...

Ciao.

[gomez]

In sostanza succe questo: Una volta lanciato inventa che funziona benissimo mi da l'elenco di tutti i file che trova e fin qui ci siamo. Quando lancio colleg mi da l'errore di cui sopra. Di seguito:
Sub Collega()
'
' DEFINIZIONI <<<< Variare come da situazione
StartFile = "N3" 'Prima Cella con Nome file da collegare; vedi macro INVENTARIO
NFoglio = "Contratto In" 'Foglio da cui estrarre le info
Compil = "A1:j1" 'Celle con il range da importare
'
'
FileR = Range(StartFile).Row
FileC = Range(StartFile).Column

NCols = Range(Compil).Columns.Count
Set AreaFile = Intersect(Range(StartFile, Cells(FileR + 65000, FileC)), ActiveSheet.UsedRange)
stacol = Range(Compil).Range("A1").Column

AreaFile.Select
For Each NFile In AreaFile
If NFile = "" Then GoTo Esci
CuRiga = NFile.Row
CuFILE = Mid(NFile, InStrRev(NFile, "\", -1, vbTextCompare) + 1, 99)
CuDIR = Replace(NFile, CuFILE, "")
For J = 0 To NCols - 1
Colleg = Chr(39) & CuDIR & "[" & CuFILE & "]" & NFoglio & Chr(39) & "!" & Range(Compil).Range("A1").Offset(0, J).Value
Cells(CuRiga, stacol + J).Select (QUI MI DA: C:\APPOGGIO\[E_CALICCHIA.XLS] CONTRATTO IN '!"
'MsgBox (Colleg)
ActiveCell.Formula = "=" & Colleg [u](QUI MI DA L'EVIDANZA DEBUG e mi dice: ACTIVECEL.FORMULA = '''')[/u]Next J
Next NFile

Esci:
Range(Cells(Selection.Row + 1, stacol), Cells(65000 - Selection.Row, stacol + NCols - 1)).ClearContents

End Sub


In sostanza mi trova solo la prima occorrenza di inventa e sulla prima riga mi da i dati che chiedo, poiu si plocca e da errore.

Grazie per quello che potrai fare

[Anthony47]

Cells(CuRiga, stacol + J).Select (QUI MI DA: C:\APPOGGIO\[E_CALICCHIA.XLS] CONTRATTO IN '!"

Non ho capito questa affermazione.
Comunque allargo le domande:
-quando va in debug, se metti il cursore su "Colleg" (senza cliccare), che cosa ti compare?
-idem se lo metti su J?
-quale e' la cella selezionata?
-cosa c' e' scritto nella cella di rigo 1 della colonna selezionata?
-idem su riga corrente colonna N
(le domande assumono che la macro che hai postato e' quella che usi, compreso i parametri variabili).

Ciao.

[gomez]

Ci credi che cambiando il livello di protezione macro funziona?
Non so che dire, ma non mi era mai successo, ieri sera mi sono intestardito e a forza di prove e provette una volta cambiato il livello di protezione macro, da medio a basso ha funzionato perfettamente. Mi spiace se ti ho fatto perdere tempo ma come ripeto non lo sapevo e non mi era mai successo.

ciao
Gomez

[Anthony47]

Sconsiglio vivamente di settare il livello di protezione su "Basso", perche' cosi' rischi di mandare in esecuzioni macro di cui non sei a conoscenza e che potenzialmente possono fare dei danni. "Medio" e' quello ragionevole, cosi' all' apertura del foglio decidi se vuoi abilitare le macro (se ti fidi dell' autore) o no.

Secondo me il problema non e' risolto...

Ciao.