Как открыть и сохранить файл notepad.exe с помощью макроса

Question

Я новичок в программировании, и поэтому я пришел сюда для некоторой помощи.

Мне нужно скопировать текстовое поле из Excel и вставить его в блокнот, а затем сохранить блокнот с определенным именем в определенном месте. Все это должно быть сделано с помощью макроса.

Любая помощь будет высоко оценен

я смог скопировать текст из Excel и вставить в блокнот, не знаю, как сохранить его в новом месте

sub Macro2() 

    Range("A5").Select 
    Selection.Copy 
    Shell "notepad.exe", vbMaximizedFocus 
    SendKeys "^V" 

End Sub 

Answer 1

ли вам действительно нужно блокнота ?

Почему бы вам просто не сохранить текстовый файл и не открыть его? SendKeys является несколько непредсказуемым ...

Sub Macro2() 
    Dim f As Integer 
    'get a free file handle 
    f = FreeFile 
    'open test.txt in temp dir for writing 
    Open Environ("TEMP") & "\test.txt" For Output As f 
    'write text from cell A5 
    Print #f, Range("A5").Text 
    'close file handle 
    Close #f 
    'open file with notepad 
    Shell "NOTEPAD.EXE " & Environ("TEMP") & "\test.txt" 
End Sub