小编use*_*102的帖子

任何人都可以帮我写单元格值到记事本的新实例吗？

这是我试过的代码:

Sub a()
    Dim nt As String
    nt = Shell("notepad.exe", vbNormalFocus)
    Print #1, ActiveSheet.Cells(1, 1).Value
    Close #1
End Sub