Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Работа с двумя открытыми книгами на сетевом ресурсе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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 Правил в части тегов. Исправил и отзамечовывал.


Сообщение отредактировал _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)
[/vba]

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

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

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

Автор - andrey-p
Дата добавления - 18.03.2016 в 05:09
mathiax90 Дата: Пятница, 18.03.2016, 06:31 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 155
Репутация: 20 ±
Замечаний: 60% ±

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

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

При запуске макроса в итоговом файла создайте объект
[vba]
Код
dim awb as Excel.Workbook
[/vba]
и присвойте ему значение activeWorkbook.
[vba]
Код
set awb = ActiveWorkbook
[/vba]
И потом обращайтесь конкретно к ней


webmoney: R242692021885
ЯД:410013877261817


Сообщение отредактировал mathiax90 - Пятница, 18.03.2016, 06:31
 
Ответить
Сообщение
Теперь возник вопрос как обратиться к книге, из которой запустил макрос?
Ведь если я использую ActiveWorkbook, то обращаюсь к книге, которую открыл предыдущей командой.

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

При запуске макроса в итоговом файла создайте объект
[vba]
Код
dim awb as Excel.Workbook
[/vba]
и присвойте ему значение activeWorkbook.
[vba]
Код
set awb = ActiveWorkbook
[/vba]
И потом обращайтесь конкретно к ней

Автор - mathiax90
Дата добавления - 18.03.2016 в 06:31
Gustav Дата: Пятница, 18.03.2016, 07:06 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1211
Репутация: 484 ±
Замечаний: 0% ±

начинал с Excel 4.0...
как обратиться к книге, из которой запустил макрос?

[vba]
Код
ThisWorkbook
[/vba]


Мой tip box - яд 41001663842605
 
Ответить
Сообщение
как обратиться к книге, из которой запустил макрос?

[vba]
Код
ThisWorkbook
[/vba]

Автор - Gustav
Дата добавления - 18.03.2016 в 07:06
andrey-p Дата: Воскресенье, 20.03.2016, 22:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 40% ±

Все получилось. Большое спасибо.
 
Ответить
СообщениеВсе получилось. Большое спасибо.

Автор - andrey-p
Дата добавления - 20.03.2016 в 22:48
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Работа с двумя открытыми книгами на сетевом ресурсе (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!