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

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