Excel VBA Open a Folder

Question

Using 2010 Excel VBA - I m just trying to open a folder through a sub  What am I doing wrong here   VBA  Sub openFolder       Dim preFolder As String  theFolder As String  fullPath as String      theFolder   Left Range  T12   Value  8      preFolder   Left Range  T12   Value  5   amp   xxx      fullPath    P  Engineering 031 Electronic Job Folders    amp  preFolder  amp       amp  theFolder      Shell theFolder   P  Engineering 031 Electronic Job Folders    amp  preFolder  vbNormalFocus   End Sub

User · Answer

I use this to open a workbook and then copy that workbook's data to the template.

Private Sub CommandButton24_Click()
Set Template = ActiveWorkbook
 With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "I:\Group - Finance" ' Yu can select any folder you want
    .Filters.Clear
    .Title = "Your Title"
    If Not .Show Then
        MsgBox "No file selected.": Exit Sub
    End If
    Workbooks.OpenText .SelectedItems(1)

'The below is to copy the file into a new sheet in the workbook and paste those values in sheet 1

    Set myfile = ActiveWorkbook
    ActiveWorkbook.Sheets(1).Copy after:=ThisWorkbook.Sheets(1)
    myfile.Close
    Template.Activate
    ActiveSheet.Cells.Select
    Selection.Copy
    Sheets("Sheet1").Select
    Cells.Select
    ActiveSheet.Paste

End With

User · Answer

If you want to open a windows file explorer  you should call explorer exe  Call Shell  explorer exe   amp       amp   P  Engineering   vbNormalFocus    Equivalent syxntax  Shell  explorer exe   amp       amp   P  Engineering   vbNormalFocus

[vba] Excel VBA Open a Folder

Examples related to vba

Examples related to excel

Examples related to directory

Examples related to excel-2010