“Excel VBA FileLialog” Ответ

Excel VBA FileLialog

sub xFilePicker()
  Dim fDialog As FileDialog
  Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

  'Show the dialog. -1 means success!
  If fDialog.Show = -1 Then
     Debug.Print fDialog.SelectedItems(1) 'The full path to the file selected by the user
  End If
end sub