如何使用VBA在特定行打开和显示文本文件？

Question

我有一个VBA用户窗体，可使用以下命令在TextPad中打开文本文件：

Call Shell("C:\Program Files\TextPad 5\TextPad.exe " & "C:\testfile.txt", vbNormalFocus)

我希望文本文件以特定的行号显示。

有没有办法将行号作为参数传递给此Shell调用？

Answer 1

您可以使用WScript.Shell.SendKeys在TextPad（ctrl-G）中触发goto行快捷方式来完成此操作

Dim wshshell
Set wshshell = CreateObject("WScript.Shell")

Call Shell("C:\Program Files\TextPad 5\TextPad.exe " & "C:\testfile.txt", vbNormalFocus)
Application.Wait (10)
wshshell.SendKeys "^g"      'ctrl-G
Application.Wait (10)
wshshell.SendKeys "15"      'desired line number
Application.Wait (10)
wshshell.SendKeys "{ENTER}" 'enter

您可能必须弄乱“等待”行才能添加或删除命令之间的延迟，但是我在Excel中的VBA模块中对此进行了测试，并且可以正常工作。

我知道可以直接从VBA调用SendKey，但是当我尝试使用它时，它似乎绑定到了vba编辑器窗口。

Answer 2

您也可以使用“ -n”参数调用notepad ++，以获得相同的效果，

如果在执行命令时切换屏幕或出现弹出窗口，则发送键（特别是延迟）可能是危险的事情，这可能会丢失数据或在其他应用程序中无意中执行危险的操作。