Question

我是编程的新手，所以我来这里寻求帮助。

我需要从excel复制文本字段并将其粘贴到记事本中，然后将具有特定名称的记事本保存到特定位置。这些事情应该在Macro的帮助下完成。

任何帮助都将受到高度赞赏

我能够从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

如何使用宏打开并保存notepad.exe

1 个答案: