Attachingor Appending files to Excel

[Frank Kabel]

Hi Jennifer
though this may be possible don't do this. My virus scanner (hopefully)
would prevent just that. Maybe you can explain what you're trying to
achieve. There may be better ways

 

[Steve Garman]

Sub storeit()
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Program Files\RGBltd\exeAudit\exeAudit.exe", _
Link:=False, DisplayAsIcon:=False).Select
Selection.Name = "myProg"
End Sub

Sub runnit()
ActiveSheet.Shapes("myProg").Select
Selection.Verb Verb:=xlPrimary
End Sub

 

[Jenney_g]

Hi,

Is there a way to attach or append a small file (ie. an .exe executable
file) to an excel spreadsheet using built-in functionaility or even a
macro? I would like to attach or embed an exe file to a spreadsheet and
extract and run it later.

Thanks in advance,

Jennifer

 

[Jenney_g]

Thanks Steve,

I will try these sub-routines now. Is there an excel resource on the
web where I could find these subroutines; I have been searching all over
for such a refernce?

BTW, the executable that I want to run is a simple security program
written in C that I wrote to ensure macro virus checking is turned on
when the user opens the spreadsheet.

Thanks again,

Jennifer

 

[Steve Garman]

Jenney,

please take Frank Kabel's comment seriously. This sort of thing is
rarely a good idea.

There are lots of good reference sites on the web but I haven't seen
these particular routines there. There's probably a good rason for that.

http://www.cpearson.com/excel/topic.htm is well worth a visit, as is
http://www.contextures.com/tiptech.html

Lots of other good sites are also mentioned in this newsgroup regularly