Working with an Attachment from an Email in Access

I got this code snipet from BlueDevilfan (thank you very much it works great)
Sub GetExcelAttachment()
    Dim olkApp, olkSession, olkFolder, olkItem, olkAttachment
    Set olkApp = GetObject(, "Outlook.Application")
    If TypeName(olkApp) = "Nothing" Then
        Set olkApp = CreateObject("Outlook.Application")
        Set olkSession = olkApp.GetNamespace("MAPI")
        'Change Outlook to the name of your profile
        olkSession.Logon "Outlook"
    End If
    'Change the folder path as needed
    Set olkFolder = OpenMAPIFolder("\Public Folders\All Public Folders\My Public Folder")
    If olkFolder.Items.Count = 1 Then
        Set olkItem = olkFolder.Items.Item(1)
        If olkItem.Attachments.Count = 1 Then
            Set olkAttachment = olkItem.Attachments.Item(1)
            'Insert code here for whatever you want to do with the Excel attachment
        End If
        olkItem.Delete
    End If
    Set olkAttachment = Nothing
    Set olkItem = Nothing
    Set olkFolder = Nothing
    Set olkSession = Nothing
    Set olkApp = Nothing
End Sub

The part I am having trouble with is how to access the attachment I find in that email.  It is a spreadsheet and I have been unable to import it into a table or save it to a file so I can then import it.  Any help on how to actually access the data that is stored in "olkattachment" would be appreciatedStart Free Trial