Question

我一直在处理几个用户表单，并且有一个命令将结果字符串写入文本文件。但是我遇到的问题是我需要在任何计算机上运行的硬编码shell命令。

myFile = "C:\Reformatted.txt"
Open myFile For Output As #1

Print #1, UserEntry 'Write string to the file.
Close #1

Shell "C:\Windows\Notepad.exe C:\Reformatted.txt", 1 'Opens up the text file.

这里的问题可以看出，虽然每台计算机（所有窗口）都有记事本，但它们不会在同一个文件路径中。此外，不同的计算机和用户希望将其保存在不同的文件夹中。

我想用这个：

Application.GetSaveAsFilename

如何将其写入txt文件？

任何提示？

Answer 1

Sub Tester()

    Dim myFile

    myFile = "C:\_Stuff\temp.txt"

    Open myFile For Output As #1
    Print #1, "Hello" 'Write string to the file.
    Close #1

    CreateObject("Shell.Application").Open myFile

End Sub

Shell命令：在任何计算机上查找应用程序和打开文件？

1 个答案: