Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

importare dati da file excel da ogni pc

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

importare dati da file excel da ogni pc

Postdi deddygel » 23/05/13 08:57

Buongiorno a tutti,

ho un problema con VBA. Ho creato una macro che in base ai nomi sulle celle mi apre il file excel con il nome corrispondente in un database di x file excel, prende il dato che mi serve e me lo copia nel mio foglio di lavoro.

Quello che mi serve è che se invio il file su un altro computer, inviando anche tutti i file del database la macro funzioni lo stesso e non sia legata all'user. Come modifico la macro?e come metto nella cartella i file del database e il file principale?

Codice: Seleziona tutto
Sub raccoltadat()


For i = 1 To 123

 Workbooks.Open Filename:="C:\Users\davgel01\Documents\IDP_insurance\dea strategies\bilanci\bilanci excel\database+modello dea\" & Cells(4 + i, 2).Value & ".xlsx"
Workbooks("IDP_ASS_Raccolta Dati macro v3").Activate
Banca = Cells(4 + i, 2).Value
Cells(4 + i, 5).Formula = "=VLOOKUP(E$4,'[" & Banca & ".xlsx]ce " & Cells(4 + i, 3).Value & "'!$A$6:$B$70,2,0)"
Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks(Banca & ".xlsx").Activate
    ActiveWorkbook.Close
   

Next



End Sub




Grazie mille per l'aiuto!!

Davide
deddygel
Newbie
 
Post: 4
Iscritto il: 23/05/13 08:15

Sponsor
 

Re: importare dati da file excel da ogni pc

Postdi Anthony47 » 23/05/13 09:29

Ciao deddygel, benvenuto nel forum.
Con istruzioni come queste puoi ottenere la directory standard di myDocuments
Codice: Seleziona tutto
Set WinShell = CreateObject("WScript.Shell")
MyDocPath = WinShell.SpecialFolders("MyDocuments")

Quindi dovrebbebastare modificare la prima parte della tua macro
da Sub raccoltadat()
For i = 1 To 123
Workbooks.Open Filename:="C:\Users\davgel01\Documents\IDP_insurance\dea strategies\bilanci\bilanci excel\database+modello dea\" & Cells(4 + i, 2).Value & ".xlsx"
A
Codice: Seleziona tutto
Sub raccoltadat()
Set WinShell = CreateObject("WScript.Shell")
MyDocPath = WinShell .SpecialFolders("MyDocuments")
For i = 1 To 123
Workbooks.Open Filename:=MyDocPath & "\IDP_insurance\dea strategies\bilanci\bilanci excel\database+modello dea\" & Cells(4 + i, 2).Value & ".xlsx"


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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: importare dati da file excel da ogni pc

Postdi deddygel » 23/05/13 09:36

funziona!!

grazie mille per l'aiuto!!
deddygel
Newbie
 
Post: 4
Iscritto il: 23/05/13 08:15

Re: importare dati da file excel da ogni pc

Postdi Anthony47 » 23/05/13 09:37

Pero' per favore non postare la stessa domanda in piu' sezioni del forum.

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: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: importare dati da file excel da ogni pc

Postdi deddygel » 23/05/13 09:40

lo so, avevo sbagliato sezione, ma non riuscivo più ad eliminare l'altro post!

sorry :)
deddygel
Newbie
 
Post: 4
Iscritto il: 23/05/13 08:15


Torna a Applicazioni Office Windows


Topic correlati a "importare dati da file excel da ogni pc":


Chi c’è in linea

Visitano il forum: albval, patel e 62 ospiti