Работа с двумя открытыми книгами на сетевом ресурсе

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с двумя открытыми книгами на сетевом ресурсе (Макросы/Sub)

andrey-p

Дата: Пятница, 18.03.2016, 05:09 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 40% ±

Добрый день, помогите пожалуйста решить проблему.

В сетевой папке находится группа файлов. В другой сетевой папке находится один итоговый файл. В нем запускается обработка, задача которой открыть каждый файл (перечень файлов и пути к ним указаны в справочнике этого итогового файла) и добавить из него недостающие данные в итоговый файл.

В общем проблема возникла как обратиться к книге. Вернее к книге, которую нужно открыть я обратился так:

Создал переменную, скопировал в нее значение из справочника (это путь с названием файла, он большой - \\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]

Код

Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value

[/vba], где b - путь к файлу и само название файла - не помогает.

Прошу помощи.
[moder]Нарушение п.3 Правил в части тегов. Исправил и отзамечовывал.

Код

Dim a As String
a = Worksheets("Справочник").Cells(i, 55).Value

Dim objWorkbook As Excel.Workbook
Set objWorkbook = Workbooks.Open(Filename:=a)

Код

Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value

[/vba], где b - путь к файлу и само название файла - не помогает.

Прошу помощи.
[moder]Нарушение п.3 Правил в части тегов. Исправил и отзамечовывал.andrey-p

Сообщение отредактировал _Boroda_ - Пятница, 18.03.2016, 10:10

Ответить

СообщениеДобрый день, помогите пожалуйста решить проблему.

В сетевой папке находится группа файлов. В другой сетевой папке находится один итоговый файл. В нем запускается обработка, задача которой открыть каждый файл (перечень файлов и пути к ним указаны в справочнике этого итогового файла) и добавить из него недостающие данные в итоговый файл.

В общем проблема возникла как обратиться к книге. Вернее к книге, которую нужно открыть я обратился так:

Создал переменную, скопировал в нее значение из справочника (это путь с названием файла, он большой - \\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)

Код

Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value

Автор - andrey-p
Дата добавления - 18.03.2016 в 05:09

mathiax90

Дата: Пятница, 18.03.2016, 06:31 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 199

Репутация: 24 ±

Замечаний: 0% ±

Excel 2007

Цитата andrey-p, 18.03.2016 в 05:09, в сообщении № 1

Теперь возник вопрос как обратиться к книге, из которой запустил макрос?
Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.

Команда Workbooks(b).Sheets("Аналитика").Cells(c, 3).Value, где b - путь к файлу и само название файла - не помогает.

При запуске макроса в итоговом файла создайте объект
[vba]

Код

dim awb as Excel.Workbook

[/vba]
и присвойте ему значение activeWorkbook.
[vba]

Код

set awb = ActiveWorkbook

[/vba]
И потом обращайтесь конкретно к ней