Открытие нескольких документов через структуру «Для каждой». VBA

Question

Я хочу кусок кода, который позволит мне открыть 3 документа, которые находятся в папке, - и каждый раз, когда документы открываются, я хочу, чтобы там было окно сообщения, в котором отображается имя файла. Я хотел сделать этот цикл через структуру «Для каждого следующего».

Я знаю, что application.documents.open filename: = "ссылка на документы" - это код, который мне нужно использовать, но у меня возникают проблемы с его объединением.

Option Explicit 

Sub openthrice() 

    Application.Documents.Open FileName:="C:\Users\John\Desktop\New folder\Doc1.docx" 
End Sub 

Answer 1

Попробуйте это как стартер для 10, он будет открыть файл и отобразить путь к файлу в окне сообщения, вернусь к вам с дальнейшим упрощением ...

Dim StrFile As String 

StrFile = Application.GetOpenFilename 
Workbooks.Open (StrFile), UpdateLinks:=False 
MsgBox StrFile 

Answer 2

Этот метод требует ссылки на Модель объекта хоста Windows Script. Чтобы добавить выбор Инструменты, а затем Ссылки из меню VBA. Ссылки указаны в алфавитном порядке.

' Requires reference: Windows Script Host Object Model. 
Sub FindFile() 
    Const ROOT_DIR As String = "C:\MI\Example" ' Update with your folder. 
    Dim fso As FileSystemObject     ' Used to read from file system. 
    Dim fle As File        ' Used to loop over files. 

    ' Ready object variable for use. 
    Set fso = New FileSystemObject 

    ' Loop over files. 
    For Each fle In fso.GetFolder(ROOT_DIR).Files 

     If fle.Name Like "*.docx" Then Application.Documents.Open fle.Name 
    Next 


    ' Release object vars before they leave scope. 
    Set fso = Nothing 
End Sub 

FileSystemObject мощный класс, предоставленный корпорацией Майкрософт. Он позволяет вашему коду взаимодействовать с файловой системой Windows.

EDIT

Ошибка определяемый пользователем тип не определен означает, что компилятор не распознает один ваши типы данных. В этом случае он не знает, что такое FileSystemObject, поэтому он не может создать переменную fso этого типа. Для его исправления требуется ссылка, упомянутая выше. В нем содержится определение, указывающее VBA, что такое fso, и как оно работает.

Из полосы меню вы можете нажать Инструменты >>рекомендации и двойная проверка для Windows Script Host Object Model проверяется (выбранные ссылки должны быть на вершине, остальные перечислены в алфавитном порядке).