通过vba打开记事本

Question

我是第一次尝试这样做，最近开始研究vba。所以请帮我弄明白我哪里错了。我试图通过宏打开记事本，但它显示错误。请在下面找到我正在使用的代码：

const strfilename = "C:\Users\Desktop\abc.txt"

尝试过

 set OFS = myOFSO.OpenTextFile(strfilename) 

它显示了

错误代码424

请提供您的意见。在此先感谢您的帮助。

Answer 1

可以调用shell命令来执行带有文件路径的notepad.exe。

returnvalue = Shell("notepad.exe " & strfilename, vbNormalFocus)

Answer 2

试试这种方法

Sub Test()
Dim strCont     As String

strCont = LoadFileStr$(ThisWorkbook.Path & "\Sample.txt")
Range("A1").Value = strCont
End Sub

Function LoadFileStr$(FN$)
With CreateObject("Scripting.FileSystemObject")
    LoadFileStr = .OpenTextFile(FN, 1).readall
End With
End Function

Answer 3

下面的代码将帮助您从excel打开记事本。

Dim fso As Object
Dim sfile As String
Set fso = CreateObject("shell.application")
sfile = "C:\Users\Universal\Desktop\test.txt"
fso.Open (sfile)