Сводная таблица, источник данных в другом файле

[amadeus017]

Доброго времени суток!

Уважаемые пользователи форума, обращаюсь к вам за помощью в макросе, который формирует сводную таблицу, причем это надо сделать, находясь в другом файле.
Например:
Я работаю в файле "Проверка" в котором есть несколько листов, в которые нужно импортировать (сформировать) сводные таблицы. Т.е., сделать кнопку (макрос), нажав на которую, открылось окно для выбора файла с источником данных (файл - "ОСВ ГК_01-2016"), а сводную таблицу, занести на определенный лист (лист "ОСВ ГК").
Я уже думал, что если нет возможности импорта сводной таблице из того файла где находятся данные, так может есть возможность, сформировать тамлицу в том файле, на новый лист (к примеру, "Лист1"), а потом с этого листа копировать?


Есть код, который открывает файл, но как его применить в моем случаи, я не знаю.

Function GetFileName(Optional ByVal Title As String = "Выберите файл для обработки", _
Optional ByVal InitialPath, _
Optional ByVal MyFilter As String = "Книги Excel (*.xls*),") As String
' функция выводит диалоговое окно выбора папки с заголовком Title,
' начиная обзор диска с папки InitialPath
' возвращает полный путь к выбранной папке, или пустую строку в случае отказа от выбора
If Not IsMissing(InitialPath) Then
On Error Resume Next: ChDrive Left(InitialPath, 1)
ChDir InitialPath ' выбираем стартовую папку
End If
res = Application.GetOpenFilename(MyFilter, , Title, "Открыть") ' вывод диалогового окна
GetFileName = IIf(VarType(res) = vbBoolean, "", res) ' пустая строка при отказе от выбора
End Function

тема так же размещена на другом форуме
http://www.excelworld.ru/forum/10-21700-1