Друзья, добрый день.
Создаю генератор отчетов.
Есть 2 файла:
1) Генератор (с одной связью)
2) Исходные данные (связанный файл)
В файл генератор - подтягиваются данные из файла Исходные данные. Т.к. файл Исходные данные может называться как угодно и лежать где угодно, при запуске добавляю выбор пути. Сейчас при запуске выдает ошибку "Type mismatch", а вот где несоответствие типа понять не могу. Нужен свежий взгляд.
Так же вопрос, что и в какой момент стоит дописать что бы файл Исходные данные:
1) Копировался в папку с файлом Генератор
2) Переиминовывался в файл из связи
3) Потом уже подтягивал, обновлял пути
4) После подтягивания данных закрывался + Удалялся.
Есть кто может объяснить в чем ошибка, верно ли я понял алгоритм действий, как должны выглядеть действия?
Заранее спасибо
Создаю генератор отчетов.
Есть 2 файла:
1) Генератор (с одной связью)
2) Исходные данные (связанный файл)
В файл генератор - подтягиваются данные из файла Исходные данные. Т.к. файл Исходные данные может называться как угодно и лежать где угодно, при запуске добавляю выбор пути. Сейчас при запуске выдает ошибку "Type mismatch", а вот где несоответствие типа понять не могу. Нужен свежий взгляд.
Код |
---|
Private Sub Workbook_Open() MsgBox "Укажите файл - источник данных" _ & vbNewLine, vbInformation, "Путь к источнику данных" ' Запрос пользователю на новый источник данных With Application.FileDialog(msoFileDialogFilePicker) .Show strwPath = .SelectedItems(1) 'сохраняем путь в переменную End With 'Тут копируем выбранный файл в папку с файлом из которого запущен макрос 'Переиминовывам скопированный файл 'Обновления пути связи With ActiveWorkbook .ChangeLink Name:=.LinkSources(xlExcelLinks), NewName:=strwPath, Type:=xlExcelLinks .UpdateLinks = xlUpdateLinksUserSetting End With 'Открытие файла для подтягивания данных Workbooks.Open Filename:=strwPath 'Закрытие файла связи ClsBK = ActiveWorkbook.ExpressData Workbooks(ClsBK).Close 'Тут удаляем скопированный файл End Sub |
1) Копировался в папку с файлом Генератор
2) Переиминовывался в файл из связи
3) Потом уже подтягивал, обновлял пути
4) После подтягивания данных закрывался + Удалялся.
Есть кто может объяснить в чем ошибка, верно ли я понял алгоритм действий, как должны выглядеть действия?
Заранее спасибо
невозможное делаем сразу, чудо - требует небольшой подготовки.