Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

estrazione campi foglio excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

estrazione campi foglio excel

Postdi gomez » 22/10/08 15:19

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
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Sponsor
 

Re: estrazione campi foglio excel

Postdi Anthony47 » 22/10/08 22:04

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: estrazione campi foglio excel

Postdi gomez » 23/10/08 17:51

grazie mille Antony47
domani lo provo e farotti sapere.

Gomez
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Re: estrazione campi foglio excel

Postdi gomez » 25/10/08 17:11

grazie mille.....
funziona benissimo. Obiettivo raggiunto....
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Re: estrazione campi foglio excel

Postdi gomez » 09/01/09 17:44

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
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Re: estrazione campi foglio excel

Postdi Anthony47 » 10/01/09 00:27

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: estrazione campi foglio excel

Postdi gomez » 12/01/09 10:17

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
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Re: estrazione campi foglio excel

Postdi Anthony47 » 12/01/09 16:01

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: estrazione campi foglio excel

Postdi gomez » 13/01/09 09:07

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
gomez
Newbie
 
Post: 8
Iscritto il: 22/10/08 15:01

Re: estrazione campi foglio excel

Postdi Anthony47 » 13/01/09 15:33

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "estrazione campi foglio excel":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti