Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

apri cartella di file

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

apri cartella di file

Postdi matzap » 02/08/13 15:57

ciao,
ho un file aperto dal quale vorrei aprire un altro file (che devo sceglilere io) contenuto nella stessa cartella. sto usando il codice:

Sub aprifile()
'
' aprifile Macro
Application.GetOpenFilename
End Sub
effettivamente mi apre la box dove scegliere sono i file, ma non mi fa aprire nulla. Perchè?
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Sponsor
 

Re: apri cartella di file

Postdi Flash30005 » 03/08/13 00:13

Perché devi aggiungere il comando di apertura file
Codice: Seleziona tutto
Sub aprifile()
fileToOpen = Application.GetOpenFilename("File Excel (*.xls), *.xls")
Application.Workbooks.Open fileToOpen
End Sub


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-

Re: apri cartella di file

Postdi matzap » 03/08/13 10:12

Grazie lfash ora, ora va
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: apri cartella di file

Postdi matzap » 30/08/13 14:46

se volessi aprire un file pscifico ma il cui nome cambia in base all'anno?

ho provato:
Sub apriturniTT()
Dim anno As Integer
Dim nomefile As integer
anno = Year(Date)
nomefile = "TURNI" & " " & anno"
Application.Workbooks.Open Filename:= _
"Y:\TURNI\nomefile.xlsx"
End Sub
ma mi dice impossibile aprire "Y:\TURNI\nomefile.xlsx" invece cheaprire il file
"Y:\TURNI\TURNI 2013.xlsx,

dove sbaglio?
ciao
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27

Re: apri cartella di file

Postdi Anthony47 » 30/08/13 17:47

Dovrebbe darti Run-time error #13 sulla riga nomefile = "TURNI" & " " & anno perche' hai definito Dim nomefile As Integer mentre dovrebbe essere "As String".
Poi, se usi come nome file la stringa "Y:\TURNI\nomefile.xlsx" ovviamente il vba cerchera' di aprire un file che si chiama appunto "nomefile.xlsx".
Suggerisco di modificare come segue:
Codice: Seleziona tutto
Dim nomefile As String      '<<*
anno = Year(Date)
nomefile = "Y:\TURNI\TURNI " & anno & ".xlsx"      '<<*
Application.Workbooks.Open Filename:=nomefile           '<<*
Le righe modificate sono marcate <<*

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

Re: apri cartella di file

Postdi matzap » 02/09/13 10:22

errore da prinicipiante!
grazie
excel 2010
matzap
Utente Senior
 
Post: 227
Iscritto il: 16/04/13 08:27


Torna a Applicazioni Office Windows


Topic correlati a "apri cartella di file":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti