Get File Path (ends with folder)

by

Use the Application.FileDialog object

Sub SelectFolder()
    Dim diaFolder As FileDialog
    Dim selected As Boolean

    ' Open the file dialog
    Set diaFolder = Application.FileDialog(msoFileDialogFolderPicker)
    diaFolder.AllowMultiSelect = False
    selected = diaFolder.Show

    If selected Then
        MsgBox diaFolder.SelectedItems(1)
    End If

    Set diaFolder = Nothing
End Sub

More Related Contents:

  1. Open Excel file for reading with VBA without display
  2. Test or check if sheet exists
  3. How to copy Outlook mail message into excel using VBA or Macros
  4. For Loop not fully cycling in excel VBA [duplicate]
  5. Unique Random Numbers using VBA
  6. Populate unique values into a VBA array from Excel
  7. How to add a named sheet at the end of all Excel sheets?
  8. VBA general way for pulling data out of SAP [closed]
  9. Closing Excel Application using VBA
  10. Delete Row based on Search Key VBA
  11. How to add a button programmatically in VBA next to some sheet cell data?
  12. What are the benefits of setting objects to “Nothing”
  13. Faster way to remove ‘extra’ spaces (more than 1) from a large range of cells using VBA for Excel
  14. Uncheck all checkboxes across entire workbook via CommandButton
  15. return csv file as recordset
  16. VBA workbooks.Close without being prompted to if the user wants to save?
  17. Extract Data from Word Document to an Excel SpreadSheet
  18. VBA equivalent to Excel’s mod function
  19. Copy a selected range to another worksheet
  20. Excel macro – paste only non empty cells from one sheet to another
  21. The MacScript function is not working well in Office for Mac 2016! Any ideas?
  22. Pointers needed for speeding up nested loop macro in VBA
  23. ‘1004’: “The sort reference is not valid.”
  24. Create hyperlink to another sheet
  25. Reducing WithEvent declarations and subs with VBA and ActiveX
  26. Convert Early Binding VBA to Late Binding VBA : Excel to Outlook Contacts
  27. How to check whether certain sheets exist or not in Excel-VBA? [duplicate]
  28. Excel – Using COUNTIF/COUNTIFS across multiple sheets/same column
  29. Delete all data rows from an Excel table (apart from the first)
  30. Excel VBA Run-time Error ‘32809’ – Trying to Understand it

Leave a Comment