Откройте текстовый файл в блокноте, используя подстановочный знак расширения, используя FSO

Question

Я хотел бы написать макрос Excel, чтобы открыть текстовый файл в блокноте с подстановочным знаком «* .txt», используя объект FSO. Мне нужно избегать команды оболочки, так как она будет заблокирована на моем рабочем месте.

Я попробовал приведенный ниже код, но он имеет определенное имя файла и также использует команду оболочки.

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