Opening Notepad a saved notepad file and copying the data on it

Hi,

I'm trying to merge edit 2 types of codes...

1. That Opens a notepad file
2. Copies the Data and automatically closes out notepad

Part 2 works if your sending data from an excel sheet to the notepad but I need it to work from oepning a notepadfile directly.

For some reason,

The File will open with no issue but the data on the notepad won't copy.
(I want it to copy (Highlight) blue so after the notepad automatically closes, I can just paste the data to it's destination.


here is the code...

Dim Shex As Object
Set Shex = CreateObject("Shell.Application")
tgtfile = "C:\Folder Location Goes Here"
Shex.Open (tgtfile)


''Start Notepad And let it recieve focus
'    Shell "notepad.exe", vbNormalFocus

'Send the keys CTRL+V To Notepad (i.e the window that has focus)
'    SendKeys "^V"
'
'Copy whats on the Clipboard
SendKeys "^a"
SendKeys "^c"

    
waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 10)
Application.Wait waitTime
    
Application.SendKeys "%{F4}", True
Application.SendKeys "{TAB}", True
Application.SendKeys "{ENTER}", True


'End Sub
        
End Sub

Please Help

Originally Posted by shg

How about instead

Sub Main()
  Dim sText         As String

  sText = File2Str("C:\somePath\someFile.txt")
End Sub

Function File2Str(sFile As String) As String
  ' Adapted from Andy Pope
  ' Returns a text file as a string
  Dim iFile         As Integer

  If Len(Dir(sFile)) Then
    iFile = FreeFile
    Open sFile For Binary Access Read As #iFile
    File2Str = Input(LOF(iFile), iFile)
    Close iFile
  End If
End Function

Absolutely Nothing Happens when I run that Code