Question

我想编写一个Excel宏，以使用FSO对象在记事本中使用通配符将文本文件打开为“ * .txt”。我需要避免使用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

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

1 个答案: