VBA userform code to browse file and attach

[Jcjepot]

Hi! Apologies for asking but i am blocked looking for a vba code to. I am making a userform with the usual name/employee number / contact number and to attach 2 files (either jpeg, doc, pdf) and placing it in a database sheet.

 

[Domenic]

Here's an example that I hope you can adopt for your use. It prompts the user to select a file, and then embeds the file onto the worksheet. Note that you may need to change the FileFilter. For example, you may need to replace *.doc with *.docx, or whatever is appropriate. Or you may want to include *.docx along with *.doc. Also, note that I've assume that the database sheet is called Database.. So change the sheet name accordingly.

    'prompt user to select a file to embed (change the filter accordingly)
    Dim openFilename As Variant
    openFilename = Application.GetOpenFilename( _
        FileFilter:="Files (*.jpeg;*.doc;*.pdf), *.jpeg;*.doc;*.pdf", _
        Title:="Select File", _
        ButtonText:="Select")
    
    'if user cancels, exit the sub
    If openFilename = False Then Exit Sub
    
    'get the database sheet (change the name accordingly)
    Dim databaseSheet As Worksheet
    Set databaseSheet = ThisWorkbook.Worksheets("Database")
    
    'embed the selected file on the database sheet and position it at cell B2
    databaseSheet.OLEObjects.Add _
        filename:=openFilename, _
        Left:=databaseSheet.Range("B2").Left, _
        Top:=databaseSheet.Range("B2").Top

Hope this helps!