How to retain focus on Notepad when hidden

Dude

Why are you using Notepad and SendKeys for this?

Can't you just use VBA file input/output methods?

SendKeys is notoriously flaky and Notepad is just one of many applications that you can use to display/open a text file.

By the way With NtPad doesn't really mean/do anything.

All the Shell function does is return the task ID of the application, not an object reference to it.

This will save to a TXT file or the other to a WORD DOC in the background, if you comment out the MsgBox's.


Sub myTSave()
'Standard Module code, like: Module1!
Dim myFolder As String
'Save Range as Text File.

ActiveSheet.Activate

'Ask user to select range for text file.
Set myRange = Application.InputBox(prompt:="Please select a range!", _
Title:="Text File Range!", Type:=8)

'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")

'Save selected data as text file in users selected folder.
ActiveWorkbook.SaveAs Filename:=myFolder, FileFormat:=xlText, CreateBackup:=False

'Indicate save action.
MsgBox "Text File: " & myFolder & "Saved!"

'Go to top of sheet.
Range("A1").Select
End Sub


Sub myToWordFile()
'Standard Module code, like: Module1!
Dim myFolder As String, myRange As Range
Dim dataRng As Range
'Save Range as Text File.

ActiveSheet.Activate

'Ask user to select range for text file.
Set myRange = Application.InputBox(prompt:="Please select a range!", _
Title:="Text File Range!", Type:=8)

Set dataRng = ActiveSheet.Range(myRange.Address)

'Ask user for folder to save text file to.
myFolder = Application.GetSaveAsFilename(fileFilter:="Word Document (*.doc), *.doc")

'Save selected data as text file in users selected folder.
dataRng.SaveAs Filename:=myFolder, FileFormat:=xlCurrentPlatformText, CreateBackup:=False

'Indicate save action.
MsgBox "Text File: " & myFolder & "Saved!"

'Go to top of sheet.
Range("A1").Select
End Sub

From what I can find Output writes a new file and append only adds to the end. Either way I just want to add one line and I have tested it and it works even if I add it to the top/as first line in the file. How can I append to the beginning of a file.

Joe
Thanks for the reply but I am just trying to add one line of text to the top of an existing text file. Not trying to write a new file.
The text I eant to write doesn't exist in a range, it is just a small html tag.

Dude

Yes it creates a new file, but I think that's what you actually need to do.

You can easily read in from an existing file and output to a new file with any required changes.

Then delete the existing file and rename the new file.

Sub OpenTextFile()
'Standard Module Code, Like: Module1.
'Will append file if needed!

'ForReading 1 Open a file for reading only. You can't write to this file.
'ForAppending 8 Open a file and write to the end of the file.

'TristateUseDefault –2 Opens the file using the system default.
'TristateTrue –1 Opens the file as Unicode.
'TristateFalse 0 Opens the file as ASCII.

Const ForReading = 1, ForWriting = 2, ForAppending = 3
'Dim fs, f
Dim myFile As String
Dim NPOPFile As String
Dim myText As String
Dim MessageT, TitleT, DefaultT
Dim Msg, Style, Title, Help, Ctxt, Response

Msg = "You will append your new text to any in the file you select if you continue!" _
& vbCr & vbCr & "Do you want to continue?" ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2 ' Define buttons.
Title = "Caution!" ' Define title.
Help = "DEMO.HLP" ' Define Help file.
Ctxt = 1000 ' Define topic context.
' Display message.
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' User chose Yes.
GoTo myContinue
Else ' User chose No.
GoTo myEnd
End If

'Get text to write to file!
myContinue:
MessageT = "Enter your text here:" ' Set prompt.
TitleT = "Append Text File with Data!" ' Set title.
DefaultT = "Add Data Here!" ' Set default.
' Display message, title, and default value.
myText = InputBox(MessageT, TitleT, DefaultT)

On Error GoTo Err_OpenTextFile
'Use this Text file!
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
End If

myFile = fileToOpen
NPOFile = "NotePad.exe " & myFile

'Work with file [Append Text to File].
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(myFile, 8, TristateUseDefault)
f.Write Chr(9) & myText
f.Close

'Open NotePad with a data file!
ActiveSheet.Select
Call Shell(NPOFile, 1)

Exit_OpenTextFile:
Exit Sub

Err_OpenTextFile:
MsgBox Err.Description
Resume Exit_OpenTextFile
myEnd:
End Sub

Norie,
Can the Input text be held in a variable or does it have to be written to a range? If variable How do you incorporate the new text into the variable?

If I Open file for Output as #1
how do I add text to it without harming the existing text? And how do I define where in the file the new text should go?

Sorry but I am just not seeing it

Norie,

Here is what I have so far.

It seems close, but it is putting quotation marks around each line of text.
Needless to say this doesn't work well when viewed with a browser.

Any thoughts?

Norie,

I changed the line from "Write #1" to "Print #1" and what do you know ?

It works

Thanks for being persistent and making me just do it (Nike).

Thanks Joe