Здравствуйте! Необходимо реализовать макрос, который позволит поочередно открывать файлы и копировать из них информацию в общий файл. Прикрепил фрагмент кода, который отвечает за данную операцию. Проблема в том, что после выбора файла в появляющемся диалоговом окне данный файл не открывается. Очень прошу помочь в решении данного вопроса.
12 MsgBox "Выберите файл замера формата .VXLOG" 'Вывод диалогового окна для указания пути к файлам замеров формата .VXLOG
With Application.FileDialog(msoFileDialogFilePicker) 'Выбор пути к файлам замеров
If .Show = False Then GoTo 3 'переход к следующей операции
FileItem1 = .SelectedItems(1)
End With
FileItem1.Open
Windows(FileItem1).Activate
ActiveCell.SpecialCells(xlLastCell).Select 'Переход на последнюю ячейку таблицы в открытом файле замеров
x2 = ActiveCell.Row 'Вывод номера активной последней строки в открытом файле замеров
Rows("15:" & x2).Select 'Копирование строк с 15 (первая строка с информацией о замерах) по последнюю
Selection.Copy
Windows(NameFileObj).Activate 'Переход в "Общий файл"
Rows(r).Select
Selection.Insert Shift:=xlDown
r = Range("A65536").End(xlUp).Row + 1 'Определение новой после вставки первой пустой строки в "Общем файле"
' FileItem1.Close 0
GoTo 12