Selecting File Path & inputting to cell

WingSystems

New Member
Joined
Aug 24, 2016
Messages
15
Office Version
  1. 365
Platform
  1. Windows
All -

Beginning coder attempting to write macro to attach to a CommandButton to store a selected file path (folder or file from MS File Explorer) into a specific cell "B2".

Currently having issues with the code below:

Code:
Sub GetFilePath2()
Dim filename As String
filename = Application.GetOpenFilename

Dim cell As Range
cell = Application.Range("B2")
cell.Value = filename
End Sub

Issues:
  • The Open File Explorer pops up but does not allow you to select a folder, rather must "open" a file. Is there a different application than ".GetOpenFilename" I should be using?
  • Getting run-time error "'91': Object variable or With block variable not set"


Thank you!
 
Last edited:

Excel Facts

What is the fastest way to copy a formula?
If A2:A50000 contain data. Enter a formula in B2. Select B2. Double-click the Fill Handle and Excel will shoot the formula down to B50000.
How about
Code:
Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
End Sub
 
Upvote 0
How about
Code:
Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
End Sub

Thank you Fluff, was looking for the .fileDialog application!

How would you be able to then input the ".SelectedItems" into a Cell (B2)?

Code below is giving me the variable not set error.

Code:
Sub GetFilePath2()
   Dim Fldr As String
   
   With Application.FileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   MsgBox Fldr
   
   Dim cell As Range
   cell = Application.Range("B2")
   cell.Value = Fldr
   
End Sub
 
Last edited:
Upvote 0
Like
Code:
Sub WingSystems()
   Dim Fldr As String
   
   With Application.fileDialog(4)
      .AllowMultiSelect = False
      If .Show = -1 Then Fldr = .SelectedItems(1)
   End With
   Range("B2").Value = Fldr
End Sub
 
Upvote 0

Forum statistics

Threads
1,213,546
Messages
6,114,255
Members
448,556
Latest member
peterhess2002

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top