通过 VBA 用记事本打开文件

Question

我正在尝试用记事本打开一个文件。

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

使用文件类型的默认程序打开任何文件：（_{^{用一行代码）}}

CreateObject("Shell.Application").Open("c:\Users\Desktop\abc.txt")

如果要将此方法用于尚未与应用程序关联的文件类型：

• 点击（Windows键）
• 开始打字 default
• 单击“默认应用程序”（Windows 10）或“默认程序”（Windows 7）