Question

我想使用VBA在记事本（或记事本++）中打开.tbl文件。基本上，我有一些.tbl文件，我可以拖放到记事本++进行编辑，我想通过VBA做同样的事情。文件打开后，我可以处理编辑。我无法使用VBA在记事本中打开非txt文件。

在Excel中打开会破坏格式化，所以我想坚持使用文本编辑器。

谢谢！

Answer 1

您可以编写一个调用Notepad ++的简单VBA模块：

Sub Button1_Click()
    Dim res As Variant
    Dim fileToOpen As String
    Dim nppPath As String

    fileToOpen = "F:\test.tbl"
    nppPath = "F:\Program Files (x86)\Notepad++\notepad++.exe"

    res = Shell(nppPath & " " & fileToOpen, vbNormalFocus)
End Sub

Answer 2

我没有足够的声誉来评论Andrea的代码（这对我有用）。我确实想为别人的利益指出一件事。我使用Andrea的代码时遇到错误，除非我在.exe＆＃34;之后放入一个空格。除了那个小小的观察之外，我没有给安德里亚的答案增添任何东西。

Sub OpenInNotepadPP()

Dim FullFilePath       As String

FullFilePath = "C:\FilePath\FileName.txt"

Dim MyTxtFile As Variant

'Note, a single space needs to be placed after notepat++.exe "
MyTxtFile = Shell("C:\Program Files (x86)\Notepad++\notepad++.exe " & FullFilePath, vbNormalFocus)

End Sub

使用VBA在记事本中打开.tbl文件

2 个答案: