Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Aggiornare files con riferiementi esterni

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

Re: Aggiornare files con riferiementi esterni

Postdi Flash30005 » 19/05/15 22:38

Il link per il download file non è più valido

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Sponsor
 

Re: Aggiornare files con riferiementi esterni

Postdi Tantocattivo » 20/05/15 08:16

Questo è il link aggiornato

http://www.filedropper.com/xlsxinglobati

Sono un padre e un figlio. Per mia comodità ho riportato tutti i dati del padre nel figlio invece di puntare direttamente.
Office 2007-2010-2013, Autocad, Solidworks, 3ds Max, Sony Segas
Tantocattivo
Utente Junior
 
Post: 20
Iscritto il: 25/03/15 19:39

Re: Aggiornare files con riferiementi esterni

Postdi Tantocattivo » 26/05/15 19:09

io ci provo.... UP
Office 2007-2010-2013, Autocad, Solidworks, 3ds Max, Sony Segas
Tantocattivo
Utente Junior
 
Post: 20
Iscritto il: 25/03/15 19:39

Re: Aggiornare files con riferiementi esterni

Postdi Anthony47 » 26/05/15 22:58

Ci (ri)provo anche io:
"potresti fare il riepilogo di che cosa viene richiesto, cosi' non siamo costretti a riprendere dal primo messaggio e dalla prima risposta?"
Qualcosa pero' di piu' descrittivo di "ho tanti files figlio che pescano i dati da un file padre. Quello che voglio è un sistema automatico che dopo che ho compilato il padre, apre i figli e li salvi"

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: Aggiornare files con riferiementi esterni

Postdi Tantocattivo » 04/06/15 14:31

Ciao grazie per il tuo tempo,
riassumo, spero meglio.
Ho un file (chiamiamolo padre) che compilo con i dati che mi servono, visivamente è una specie di form, dove si rispondono ad alcune domande del tipo: larghezza, altezza, profondità, accessori etc etc.
Poi ho tanti altri file (figli), ognuno legge il dato che gli interessa nel file padre e se lo copia usando per esempio la formula ='C:\Users\Nuova cabina\[Configuratore cabina.xlsx]Foglio1'!B33 .
Il programma che uso per disegnare in 3d, usa questi 40 fogli per creare le parti in funzione di quello che trova scritto.
Il problema è che se io compilo il padre e i figli sono chiusi, questi non si aggiornano e quando il mio programma di disegno li prende non li trova aggiornati e mi disegna la soluzione vecchia.
(per un motivo che non ti spiego per non complicare le cose, quando il mio programma di disegno apre il file excell non lo fa aggiornare, quindi i files devono essere aggiornati prima che lui li apra.)
Quindi, attualmente che faccio:
1- compilo il padre e lo lascio aperto
2- apro i quaranta file, li salvo e li chiudo.
3- Apro il mio programma di disegno e funziona tutto.

Quello che voglio io è cercare di fare automaticamente il passaggio 2
Office 2007-2010-2013, Autocad, Solidworks, 3ds Max, Sony Segas
Tantocattivo
Utente Junior
 
Post: 20
Iscritto il: 25/03/15 19:39

Re: Aggiornare files con riferiementi esterni

Postdi Anthony47 » 05/06/15 00:32

Allora si tratta di aprire uno dopo l'altro i figli e salvarli...
Per questo scopo potrai usare questa macro:
Codice: Seleziona tutto
Sub AllOpen()
Dim myPath As String, myCommon As String, myFile As String
'
myPath = "C:\Users\Utente1\Downloads\"         '<<< La directory che contiene i figli (con \ finale)
myCommon = "byPEPPE*.xls"                        '<<<** Vedi testo
'
myFile = Dir(myPath & myCommon)
Application.EnableEvents = False
Do
    If myFile = "" Then Exit Do
    Workbooks.Open myPath & myFile, UpdateLinks:=3
    ActiveWorkbook.Close savechanges:=True
    myFile = Dir
Loop
Application.EnableEvents = True
End Sub

Da excel: Alt-F11 per aprire l' editor delle macro; Menu /Inserisci /Modulo; copia il codice e incollalo nel frame di dx

Le righe marcate <<< vanno adattate alla tua situazione, i valori indicati sono quelli che ho usato io per il test.
In particolare con la riga marcata <<<** potrai filtrare i file da cercare indicando la parte iniziale del file, se comune a tutti i figli; questo ha senso se nella stessa directory ci sono altri file che invece vanno ignorati.
Se invece in quella directory ci sono solo i "figli" allora bastera' indicare "*.xls".

Quando serve manderai in esecuzione la Sub AllOpen: da Excel premi Alt-F8, scegli AllOpen dall' elenco che ti propone, premi Esegui.

Prova e fai sapere.
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

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "Aggiornare files con riferiementi esterni":


Chi c’è in linea

Visitano il forum: rogermo e 8 ospiti