Extracting Data

[dramey1]

Hey everyone, I'm having some trouble getting started with a code for extracting data from different workbooks. I want to be prompted what file i want to take the data from. At my company we save copies of the same workbook into individual clients files. Each file is in the same drive. Each piece of data is in the same cell in each file. Ideally, I would like to click a button, select my desired file, data appears in sheet, print specific sheet to pdf. Thanks in advance for any help.

 

[igold]

Hi dramey1,

This code should get you started. Place this code in a workbook that is saved in the same location as your client files. Unfortunately your post is too vague for me to do anything else with it.

Sub GetFile()


    Dim wb As Workbook
    Dim selectedFile As String, strPath As String
    
    strPath = ThisWorkbook.Path
    With Application.FileDialog(msoFileDialogOpen)
        .InitialFileName = strPath & "\"
        .Title = "Select A File To Open"
        .Show
        If .SelectedItems.Count > 0 Then
            selectedFile = .SelectedItems(1)
        Else
            Exit Sub
        End If
    End With
    Set wb = Workbooks.Open(selectedFile)


End Sub

I hope this helps.

 

[dramey1]

igold,

Thanks for getting me started. I think i can take it from here. If I need anymore help ill get back to you, and i will let you know what i figure out.

 

[igold]

Happy to help. Thanks for the feedback. Good luck.