Не работает Workbooks.Open в Excel

24.04.2011, 12:37. Показов 3234. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Столкнулся с задачей в которой данный в одной книге(остатки)
используются в другой.
Есть файлы Книга1.xls,Книга2.xls,Книга3.xls ...
создал событие Workbook_BeforeSave в каждой из книг:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
dim i,fl
fl = ActiveWorkbook.FullName
'следующая книга
fl = Left(fl, Len(fl) - 5) + Trim(Str(Int(Val(Left(Right(fl, 5), 1)) + 1))) + '.xls'
If Len(Dir(fl)) > 0 Then
i=Application.Range('dan_tek').Value
Workbooks.Open Filename:=fl
Workbooks(Workbooks.Count).Application.Range('dan_tek').Value=i+1
Workbooks(Workbooks.Count).Save
Workbooks(Workbooks.Count).Close False
End If

Если открыта Книга1.xls и сохраняешь то вызывается событие Workbook_BeforeSave
которое открывает следующую книгу(все пока окей) сохраняет там данные
и записыввает.Это вызывает событие из Книга2.xls которое пытается
открыть книгу Книга3.xls.Хотя Workbooks.Open отрабатывает без ошибок
хотя книга не открывается.Где собака зарыта?
И еще попутно вопрос про именованные ячейки в разных книгах.
'dan_tek' есть в двух открытых книгах.Обращаюсь я к ним через
Application.Range.Как различить разные книги ведь у Workbooks
нет сойства Range ?

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

24.04.2011, 12:37

Ответы с готовыми решениями:

Открытие файла excel Workbooks.Open
Добрый день, друзья! Подскажите пожалуйста один момент. Написал программу, которая исполняется по событию открытия книги: 1....

Не работает Workbooks.Open внутри процедуры Workbook_BeforeSave
Всем привет. Помогите, пожалуйста, разобраться. В общем есть такой код: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean,...

Открытие книги excel Workbooks.Open ("Путь к файлу")
Добрый день! Пишу процедуру, которая должна запускаться условно из файла книга1.xlsm, открывать файл книга2.xlsx, делать выборку и...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

24.04.2011, 12:37

Помогаю со студенческими работами здесь

Workbooks.Open не открывает файл
Добрый вечер! Подскажите, что делаю не так. Задача: скопировать значение ячейки из одного .xlsm файла в другой. Вот код: ...

Ошибка с открытием книги большого размера в Workbooks.Open
Добрый день! Выявилась проблема с открытием книги большого размера: Книга-источник имеет большой размер (15 Мб) и открывается вручную...

Как подавить скачки экрана при выполнении операции Workbooks.Open(.)?
Всем добрый день. В цикле открывается множество файлов командой Set book=Workbooks.Open(addr). Из-за этого экран скачет туда-обратно....

Excel, поиск по всему workbooks
Добрай день. помогите оганизовать поиск определенного значени во всем workbooks и вернуть координаты значения (sheet, cells). те имеется...

Excel. Открытие двух книг одновременно. Workbooks
У меня 2 книги, нужно из одной ячейки первой книги перенести содержимое во вторую книгу в опр. ячейки. Как я себе это представляю....

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Наверх