SyntaxFix

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

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

This code was adapted from Ozgrid

and as jkf points out, from Mr Excel

Examples related to vba

• Copy filtered data to another sheet using VBA • Better way to find last used row • Check if a value is in an array or not with Excel VBA • Creating an Array from a Range in VBA • Excel: macro to export worksheet as CSV file without leaving my current Excel sheet • VBA: Convert Text to Number • What's the difference between "end" and "exit sub" in VBA? • Rename Excel Sheet with VBA Macro • Extract Data from PDF and Add to Worksheet • Quicker way to get all unique values of a column in VBA?

Examples related to excel

• Python: Pandas pd.read_excel giving ImportError: Install xlrd >= 0.9.0 for Excel support • Converting unix time into date-time via excel • How to increment a letter N times per iteration and store in an array? • 'Microsoft.ACE.OLEDB.16.0' provider is not registered on the local machine. (System.Data) • How to import an Excel file into SQL Server? • Copy filtered data to another sheet using VBA • Better way to find last used row • Could pandas use column as index? • Check if a value is in an array or not with Excel VBA • How to sort dates from Oldest to Newest in Excel?