Next, let me tell you that I am NOT a programmer. I have taken some
programming classes and I do enjoy fooling around with programming but
only to the extent that it can solve a practical problem that I or a
co-worker may have that will increase productivity.
I am actually an accountant. The link you provided appears to be a
programmatic solution related to the C language. I will need a
solution that is composed an executed through VB as it would be the
only way I know to implement it in the manner that I need it.
I found the following code which works for text and zip objects only.
Private Sub CommandButton1_Click()
Dim EmbedObj As OLEObject
For Each EmbedObj In ActiveSheet.OLEObjects
With EmbedObj
'See if it is Embedded
If .OLEType = xlOLEEmbed Then
Select Case .progID
'Check the type
Case "Package"
'.Verb xlVerbOpen
.Verb xlVerbPrimary
Case Else
'Not dealt with
End Select
Else
'Linked. Get the filename ?
End If
End With
Next
End Sub
I found another one which I can't find now to post that seemed
promising but I kept getting a "Filename" error and couldn't fix it. I
created my own that will automatically open and save an excel file and
then close the excel file but it only works for excel files and you
have to actually click on the file and I used an input box for the
user to enter the filename.
What I want to happen is:
1. The user opens a sheet with various forms of embedded files.
2. The user runs the macro.
3. macro finds all embedded files and stores them in their native
format with the filename listed in the container in a predefined location.
I've seen versions of this question asked all over the place. Quite
frankly, I'm stunned that it's seems to be such a hard problem to
solve. It would seem to me, this would be something that would be
simple to do, but I guess not.