apri cartella di file

[matzap]

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è?

[Flash30005]

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

[matzap]

Grazie lfash ora, ora va

[matzap]

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

[Anthony47]

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

[matzap]

errore da prinicipiante!
grazie