VBA EXCEL To Prompt User Response to Select Folder and Return the Path as String Variable [duplicate]

by

Consider:

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a Folder"
        .AllowMultiSelect = False
        .InitialFileName = Application.DefaultFilePath
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
NextCode:
    GetFolder = sItem
    Set fldr = Nothing
End Function

and as jkf points out, from Mr Excel

More Related Contents:

  1. How do I get values from a hidden worksheet using VBA [closed]
  2. How to copy cells that contain certain text to another worksheet [closed]
  3. VBA Macro for copying and pasting columns on same excel sheet
  4. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  5. Levenshtein Distance in VBA [closed]
  6. VBA Runtime Error 1004 “Application-defined or Object-defined error” when Selecting Range
  7. How do I base64 encode a string efficiently using Excel VBA?
  8. Assign event handlers to controls on user form created dynamically in VBA
  9. Programmatic Access To Visual Basic Project Is Not Trusted
  10. Conditional Formatting using Excel VBA code
  11. Controlling IE11 “Do you want to Open/Save” dialogue window buttons in VBA
  12. How to “flatten” or “collapse” a 2D Excel table into 1D?
  13. How to use Events with Option Button Controls on Userform [duplicate]
  14. How do I use variables to set properties in VBA (Excel)
  15. VBA: Else without If Error
  16. Workbooks.Open Method in VBA
  17. Windows().Activate works on every computer except one
  18. Convert RTF (Rich Text Format) code into plain text in Excel
  19. lastrow and excel table.
  20. Open a workbook from VBA and disable Workbook_Open() code?
  21. Creating form programmatically in the module using vba
  22. How to filter listbox values based on a Textbox value
  23. Find and FindNext for Excel VBA
  24. Calling regasm without administrative rights for COM interop in Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment