如何使用宏打开并保存记事本程序

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

任何帮助将高度赞赏

我能够将文本从Excel中复制并粘贴到记事本，不知道如何将它保存在一个新的位置

sub Macro2() 

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

End Sub

来源

2013-10-15 narayanan

保存比使用sendkeys进行复制要好。将其保存到临时位置并再次打开。我还建议你阅读关于剪贴板类。 –

你真的需要记事本？

你为什么不保存文本文件并打开它？ 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

来源

2013-10-15 09:21:58

谢谢大家，它现在正在工作！ – narayanan

如何使用宏打开并保存记事本程序

回答

相关问题