
Shell "explorer C:UserspippoDesktop" |
Sub Opendialog()
Dim strFile As String, strPath As String
With Application.FileDialog(msoFileDialogOpen)
.InitialFileName = ThisWorkbook.Path & "*.xls*"
.Title = "Please Select a File"
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then Exit Sub
strFile = .SelectedItems(1)
End With
Set mybook = Workbooks.Open(strFile)
' ---------- tuo codice
End Sub |
