В сетевой папке находится группа файлов. В другой сетевой папке находится один итоговый файл. В нем запускается обработка, задача которой открыть каждый файл (перечень файлов и пути к ним указаны в справочнике этого итогового файла) и добавить из него недостающие данные в итоговый файл.
В общем проблема возникла как обратиться к книге. Вернее к книге, которую нужно открыть я обратился так:
Создал переменную, скопировал в нее значение из справочника (это путь с названием файла, он большой - \\enterprise\omega\Папки отделов\Административный департамент\Отдел транспортной логистики\транспорт\Отчеты\Отчеты по прозвону водителей\ИтоговыйПрозвонВодителей.xlsm)
[vba]
Код
Dim a As String a = Worksheets("Справочник").Cells(i, 55).Value
Dim objWorkbook As Excel.Workbook Set objWorkbook = Workbooks.Open(Filename:=a)
[/vba]
Теперь возник вопрос как обратиться к книге, из которой запустил макрос? Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.
[/vba], где b - путь к файлу и само название файла - не помогает.
Прошу помощи. [moder]Нарушение п.3 Правил в части тегов. Исправил и отзамечовывал.
Добрый день, помогите пожалуйста решить проблему.
В сетевой папке находится группа файлов. В другой сетевой папке находится один итоговый файл. В нем запускается обработка, задача которой открыть каждый файл (перечень файлов и пути к ним указаны в справочнике этого итогового файла) и добавить из него недостающие данные в итоговый файл.
В общем проблема возникла как обратиться к книге. Вернее к книге, которую нужно открыть я обратился так:
Создал переменную, скопировал в нее значение из справочника (это путь с названием файла, он большой - \\enterprise\omega\Папки отделов\Административный департамент\Отдел транспортной логистики\транспорт\Отчеты\Отчеты по прозвону водителей\ИтоговыйПрозвонВодителей.xlsm)
[vba]
Код
Dim a As String a = Worksheets("Справочник").Cells(i, 55).Value
Dim objWorkbook As Excel.Workbook Set objWorkbook = Workbooks.Open(Filename:=a)
[/vba]
Теперь возник вопрос как обратиться к книге, из которой запустил макрос? Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.
Теперь возник вопрос как обратиться к книге, из которой запустил макрос? Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.
Команда Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value, где b - путь к файлу и само название файла - не помогает.
При запуске макроса в итоговом файла создайте объект [vba]
Код
dim awb as Excel.Workbook
[/vba] и присвойте ему значение activeWorkbook. [vba]
Теперь возник вопрос как обратиться к книге, из которой запустил макрос? Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.
Команда Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value, где b - путь к файлу и само название файла - не помогает.
При запуске макроса в итоговом файла создайте объект [vba]
Код
dim awb as Excel.Workbook
[/vba] и присвойте ему значение activeWorkbook. [vba]
Код
set awb = ActiveWorkbook
[/vba] И потом обращайтесь конкретно к нейmathiax90
webmoney: R242692021885 ЯД:410013877261817
Сообщение отредактировал mathiax90 - Пятница, 18.03.2016, 06:31