Insert File Name

[michaelp1029]

Here's what I need to do. I want to click a button so that an "Open" dialog box appears. Then I need to select a file and have the folder path and file name appear in cell A60. But the thing is the file name and folder path I choose will be different each time I use it. Help?

 

[Domski]

Try:

Sub test()
Dim fn As String
fn = Application.GetOpenFilename
Range("A60") = fn
End Sub

Dom

 

[michaelp1029]

That works wonderfully

Danke

 

[Weaver]

From the view menu, choose toolbars -> control toolbox.

Insert your command button and then right click and choose 'view code' from the menu

paste the following

Private Sub CommandButton1_Click()
    With Application.FileDialog(1)
        If .Show = -1 Then
            [A60] = .SelectedItems(1)
        End If
    End With
End Sub

type alt+F11 to close the vb window then deselect the 'design' button (top left) on the control toolbox.

Before you do the above, you can edit the properties of the button to give it a suitable name

 

[schielrn]

You could also try this in case they select cancel:

Sub fileNamePath()
    Application.FileDialog(msoFileDialogOpen).Show
    If Application.FileDialog(msoFileDialogOpen).SelectedItems.Count > 0 Then Range("A60").Value = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
End Sub

Or test Domski's approach for a false to mask the false in A60.

Hope that helps.