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

umapshimoga

New Member
Joined
Feb 22, 2016
Messages
1
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!
 

Some videos you may like

Excel Facts

Who is Mr Spreadsheet?
Author John Walkenbach was Mr Spreadsheet until his retirement in June 2019.

Watch MrExcel Video

Forum statistics

Threads
1,099,122
Messages
5,466,818
Members
406,500
Latest member
Tknotmaxx

This Week's Hot Topics

Top