
Dim PercorsoFile As String
Sub prova()
PercorsoFile = Application.GetOpenFilename("File Microsoft Excel (*.xls*),*.xls*", , "Ricerca documenti Excel")
MsgBox (PercorsoFile)
Application.Workbooks.Open PercorsoFile
End Sub
|
Sub prova()
PercorsoFile = Application.GetOpenFilename("File Microsoft Excel (*.xls*),*.xls*", , "Ricerca documenti Excel")
CD = Split(PercorsoFile, "")
NomeFile=CD(UBound(CD))
MsgBox (NomeFile)
Application.Workbooks.Open PercorsoFile
End Sub |
