Take info from Outlook email excel attachment to Excel

[baru]

Hi There

I am struggling to automate this process of taking info from and excel attachment on Outlook email into an Excel sheet.

I need code asking to point to a specific email having excel attachment. And the code reads the info from the attachment and copies on to columns on the spreadsheet the macro is in. Also I want to read the from email address and copy into a field on the spreadsheet.

Please help

 

[Chihiro]

Typically you don't need vba. Use Flow to create workflow that saves attachment of email to specific folder in One Drive.

You can then easily fetch data from the file (using Get & Transform or other methods).

If you must do it via VBA. Base it off of Ron's code.
https://www.rondebruin.nl/win/s1/outlook/saveatt.htm

 

[baru]

I wanted it done in vba and I want to the email manually like you browse to a file and export the info from the attachment in the email along with senders email ID. But the code in the link takes all the attachments from all the emails in an email folder and dumps into desktop folder.

 

[Chihiro]

So change a portion of code. Instead of using Subfolder.Items.Count, use something like...

    Set objApp = Outlook.Application
    On Error Resume Next
        Select Case TypeName(objApp.ActiveWindow)
            Case "Explorer"
                Set MyItem = ActiveExplorer.Selection.Item(1)
            Case "Inspector"
                Set MyItem = ActiveInspector.CurrentItem
            Case Else
        End Select
    On Error GoTo 0