使用FSO使用扩展通配符在记事本中打开txt文件

Question

我想编写一个excel宏来打开记事本中的文本文件，使用通配符作为“* .txt”使用FSO对象。 我需要避免shell命令，因为它会在我的工作场所被阻止。

我尝试了下面的代码，但它有特定的文件名，也使用shell命令。

Sub M08_OpenTXTFiles()
Dim filename1 As String
filename1 = "C:\L2Q\L2Q-W\SOURCE\TXT\u30033.txt"
Shell ("C:\Windows\system32\notepad.exe" & " " & filename1), vbNormalFocus
End Sub

我需要一个宏来打开一个文本文件，其名称未知，但只有扩展名在特定文件夹中称为“* .txt”。

任何帮助，将不胜感激。 谢谢

Answer 1

试试这个代码

Sub txtopen()
ChDir "F:\Documenti" ' <<< change it
fopen = Application.GetOpenFilename("TXT files (*.txt), *.txt")
If fopen <> False Then
    Shell ("C:\Windows\system32\notepad.exe" & " " & fopen), vbNormalFocus
End If
End Sub