使用Excel VBA遍历文件夹中的docx文件

Question

我需要的是一个可以将文件夹内docx文件的内容复制到Excel中的代码。 我坚持第一点。 我找不到使docx文件循环的方法。 我尝试使用的代码仅适用于其他excel文件。

预先感谢

Sub loopT()
    Dim MyFolder As String, MyFile As String

    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        .Show
        MyFolder = .SelectedItems(1)
        Err.Clear
    End With

    Application.ScreenUpdating = False
    MyFile = Dir(MyFolder & "\", vbReadOnly)
    Do While MyFile <> ""
        Workbooks.Open Filename:=MyFolder & "\" & MyFile, UpdateLinks:=False
        Workbooks(MyFile).Close savechanges:=False
        MyFile = Dir
    Loop

    Application.ScreenUpdating = True
End Sub