You'd think copying would be easy. 1

[kwill]

I'm trying to open a notepad file, select all, copy all, then paste all back to excel.

I'm using:

AppActivate ("stuff&quot
SendKeys ("^a&quot
SendKeys ("^c&quot
AppActivate ("book1&quot
Range("A1&quot.Select
SendKeys ("^v&quot

What am I doing wrong???

 

[JohnYingling]

SendKeys "^a", True ' SendKeys and wait??

http://www.VBCompare.com

http://www.VBSortGen.com

 

[Databaseguy]

Notepad doesn't use the conventional copy, & paste commands.

You'll have to figure out the send keys for Edit/Copy & Edit/Paste Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[MichaelRed]

On the other hand, 'notepad' only really addresses "text" files, so opening it to get the content seems a bit of the long way 'round the barn'. Just open the text file which you would have in notepad and read it according to the format. Or, if it is a CSV format Excel can probably 'read' it directly, so Ms. Access is un-necessary?

MichaelRed
m.red@att.net

There is never time to do it right but there is always time to do it over

 

[ratman]

Consider this.....very easy......simply record a macro and open the file delimeted to your needs.

It will look something like this.

Sub autpen()

Application.ScreenUpdating = False

ChDir "C:\My Excel Files\Inventory Files"
Workbooks.OpenText FileName:= _
"C:\My Excel Files\Inventory Files\REPORT_SF_DISPATCH.txt", Origin:=xlWindows _
, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
14, 1), Array(30, 1), Array(34, 9), Array(84, 1), Array(92, 9))

[C1].Select
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs FileName:= _
"C:\My Excel Files\Inventory Files\REPORT_SF_DISPATCH.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False

Workbooks("REPORT_SF_DISPATCH.xls&quot.Activate