如何从VBA中的shell命令读取所有信息并将其保存在.txt文件中

Question

I try to use this code:

Shell(nppPath & " " & fileToOpen, vbNormalFocus)

which opens txt file nppPath = "C:\\Windows\\notepad.exe" but I cannot read from it and save it as .txt file using VBA.

Looking forward to any suggestions.

Answer 1

I'm presuming you copied the nppPath over wrong as it should be

nppPath = "C:\Windows\System32\notepad.exe"

but for reading from the text file you could use free file:

Dim IntFile As Integer, StrFileName As String, StrFileContent As String

StrFileName = fileToOpen 'Your file location here
IntFile = FreeFile
Open StrFileName For Input As #IntFile
    StrFileContent = Input(LOF(IntFile), IntFile) 'This now contains the text
Close #IntFile

This will read the text file into a single variable that you can then use however you wish. If you want to write to a text file you can use the following code:

Dim StrNewLocation As String, StrFileContent As String

StrNewLocation = "" 'Put the new files name and location here
StrFileContent = "Example" 'The text to go into the new file

Open StrNewLocation For Output As #1
    Write #1, StrFileContent
Close #1

Hopefully this helps you solve your problem if not send me a message and I'll see what I can do.