Excel VBA 读取当前文件夹下的txt文件名

Sub read_txt_file_name()
'读取当前文件夹下txt文件的文件名,写入sheet1的第一列

Dim r As Long
Dim Fso As Object
Dim myfile As Object
Dim mySheet As Worksheet
Dim txtFolder As Object


r = 1

Set txtFolder