vba code to copy the embedded text file from excel and to paste in a floder

[umapshimoga]

Hi... need help sooon!

I am trying to copy the text file which is embedded in my excel, and trying to paste it in a folder using the below code.

ActiveSheet.OLEObjects(1).Copy
CreateObject("Shell.Application") _
.Namespace(ActiveWorkbook.Path & "\") _
.Self.InvokeVerb "Paste"

It is working, but the complete file contents are not getting copied, last 4 lines are missing. Please help me with this!