如何在VB中打开记事本，并且写上一些文字，但是并不保存？

Question

一个偷懒的办法：    Open "c:\temp.txt" For Output As #1
    Print #1, "abcdefg"'这个临时文件存放的是要显示在Notepad中的文本
    Close #1
    Shell "notepad c:\temp.txt", vbMaximizedFocus

Answer 1

更恶的方法Private Sub Command1_Click()
Shell "notepad.exe", vbNormalFocus
SendKeys "aafskjahkfhskdahfksahdfhas"
End Sub

Answer 2

sunxl(じ小呆☆`~o) 的这个方法好！有点象M$的做法，我曾经下过一个他们写的小例子，其中的复制粘贴就是:    VBA.SendKeys "^{C}"
    VBA.SendKeys "^{V}"

Answer 3

SendKeys "^{V}"倒是不错，那我如何把一段文字拷到剪贴板上呢？

Answer 4

Private Sub OpenAndAppendText(byval txt as string)
Shell "notepad.exe", vbNormalFocus
sendkeys "^{END}"
clipboard.clear
clipboard.settext txt
sendkeys "^V"
End Sub

Answer 5

最简单的方法就是
   用 SHELL 调用记事薄程序