Программно открыть книгу и форму в ней

@Ufo_log · Регистрация: 03.10.2011

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

здравствуйте, токая проблема: Есть книга открываю книгу, вылезает форма типа "начать новый рабочий день?" и 2 кнопки "да" и "нет", при нажатие "да" книга сохраняется в определенную папку и открывается другая форма! Здесь всё понятно!
проблема в другом при нажатие кнопки "Нет" открывается другая книга(уже созданная в этом рабочем дне и с именем текущая дата) так вот! Потом в этой книге запускается форма а самая первая книга закрывается! И работать надо с книгой которая открылась!
У меня это не получается! Т.е. если я закрываю книгу форма на другой не запускается и наоборот Если я сначала запускаю форму не закрывается первая книга! Как быть? Подскажите?

@Fedogor · 23.04.2012, 13:39

а у тебя есть в файле с текущей датой Модуль1, а в нём код Pokaz?
Возьми через F8 запусти код и построчно выполни и посмотри переходит ли макрос из книги Штрих на выполнение кода в pokaz

@Ufo_log · 23.04.2012, 13:48 **[ТС]**

После закуска формы

Visual Basic
1
Application.Run (Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls!Module1.Pokaz")

дальше код не выполнятся!

Visual Basic
1
2
k = "Øòðèõ (version 2.1.10)"
Workbooks("k" & ".xls").Close

Форма открывается а Книга Шрих не закрывается

@Fedogor · 23.04.2012, 13:54

к - это же переменная - она без кавычек

Сообщение от Ufo_log

Workbooks("k" & ".xls").Close

Добавлено через 2 минуты
тебе нужно код

Сообщение от Ufo_log

Код Visual Basic
1
2
3
4
k = "Штрих (version 2.1.10)"
Workbooks("k" & ".xls").Close

записать в макрос pokaz перед открытием формы

@Ufo_log · 23.04.2012, 14:02 **[ТС]**

я поставил рядом с

Visual Basic
1
2
3
4
Workbooks.Open ("C:\temp\" & "Êâèòàíöèè_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "\" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls")
Application.Run (Day(Now) & "_" & Month(Now) & "_" & Year(Now) & ".xls!Module1.Pokaz")
k = "Øòðèõ (version 2.1.10)"
Workbooks(k & ".xls").Close

остановки
и получилось что, после открытие формы код дальше не выполняется
не спускается на шаг

Visual Basic
1
2
k = "Øòðèõ (version 2.1.10)"
Workbooks(k & ".xls").Close

@Fedogor · 23.04.2012, 14:27

запиши в макрос pokaz:

Visual Basic
1
2
3
4
5
Sub pokaz()
k = "Штрих (version 2.1.10)"
Workbooks(k & ".xls").Close
UserForm1.Show
End Sub

@Ufo_log · 23.04.2012, 14:39 **[ТС]**

Теперь книга Штрих закрылась а Форма не открылась!!!
Вот у меня как раз такая проблема
или закрывает штрих но не открывает форму
или открывает форму но не закрывает штрих!

@Fedogor · 23.04.2012, 14:46

Есть такое событие у формы Activate запиши в него:

Visual Basic
1
2
3
4
Private Sub UserForm1_Activate()
k = "Штрих (version 2.1.10)"
Workbooks(k & ".xls").Close
End Sub

@Ufo_log · 23.04.2012, 15:07 **[ТС]**

Ошибка!
Проходится ставить

Visual Basic
1
2
3
Sub pokaz()
UserForm1.Show 1
End Sub

И не получается! Штрих закрылся а форма не открылась(

@Fedogor · 23.04.2012, 15:38

Разобрался. При закрытии книги все макросы вызванные на выполнение этой книгой останавливаются. Поэтому предлагаю следующий вариант:
1. Брось Книгу 1 и 2 в "C:\".
2. Открой Книгу2 и нажми на кружок.
А дальше, как вариант...

@Ufo_log · 23.04.2012, 16:17 **[ТС]**

Не врубился! че то как то ни как(
Есть файл Штрих при первом запуске(если нажать да) он пере сохраняется в папку с:\temp
при последующих он просто открывает из этой папки

@Fedogor · 23.04.2012, 16:27

Я тебе сбросил пример: В файле штрих ты можешь добавить макрос, который ничем не будет вызываться, пока файл не будет сохранён под другим именем.
Человек приходит с обеда и запускает Штрих. После нажатия Нет, происходит следующее:
Открывается файл с текущей датой. При открытии проверяется имя файла, если не Штрих, то рисуется прямоугольник на весь лист и ему назначается ранее не используемый макрос. Штрих закрывается, а на столе остается файл с большим прямоугольником и надписью Вход. По нажатию на прямоугольник, он удаляется, а нужная форма открывается. Всё.

@Ufo_log · 24.04.2012, 13:40 **[ТС]**

ок!
Пробую ещё раз!)))

Добавлено через 21 час 7 минут
Получилось тока не знаю как теперь этот прямоугольник убрать!

@Fedogor · 24.04.2012, 14:05

в примере же код был

Добавлено через 2 минуты
Подвязываешь к прямоугольнику макрос En.
Текст:

Visual Basic
1
2
3
4
5
Sub En()
    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.Cut
    UserForm1.Show
End Sub

@Ufo_log · 24.04.2012, 14:32 **[ТС]**

не убирается этот прямоугольник! форма открывается но прямоугольник не убирается

Добавлено через 7 минут

Сообщение от Ufo_log

не убирается этот прямоугольник! форма открывается но прямоугольник не убирается

а теперь получилось! Извини! И огромное тебе спасибо!!!!!!!!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@Ufo_log 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 25

	Программно открыть книгу и форму в ней 19.04.2012, 14:16. Показов 9210. Ответов 33 Метки нет (Все метки) здравствуйте, токая проблема: Есть книга открываю книгу, вылезает форма типа "начать новый рабочий день?" и 2 кнопки "да" и "нет", при нажатие "да" книга сохраняется в определенную папку и открывается другая форма! Здесь всё понятно! проблема в другом при нажатие кнопки "Нет" открывается другая книга(уже созданная в этом рабочем дне и с именем текущая дата) так вот! Потом в этой книге запускается форма а самая первая книга закрывается! И работать надо с книгой которая открылась! У меня это не получается! Т.е. если я закрываю книгу форма на другой не запускается и наоборот Если я сначала запускаю форму не закрывается первая книга! Как быть? Подскажите? 0

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	23.04.2012, 13:39
	а у тебя есть в файле с текущей датой Модуль1, а в нём код Pokaz? Возьми через F8 запусти код и построчно выполни и посмотри переходит ли макрос из книги Штрих на выполнение кода в pokaz 1

@Ufo_log 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 25
	23.04.2012, 14:39 [ТС]
	Теперь книга Штрих закрылась а Форма не открылась!!! Вот у меня как раз такая проблема или закрывает штрих но не открывает форму или открывает форму но не закрывает штрих! 0

@Fedogor 210 / 96 / 6 Регистрация: 23.07.2010 Сообщений: 235
	23.04.2012, 16:27
	Я тебе сбросил пример: В файле штрих ты можешь добавить макрос, который ничем не будет вызываться, пока файл не будет сохранён под другим именем. Человек приходит с обеда и запускает Штрих. После нажатия Нет, происходит следующее: Открывается файл с текущей датой. При открытии проверяется имя файла, если не Штрих, то рисуется прямоугольник на весь лист и ему назначается ранее не используемый макрос. Штрих закрывается, а на столе остается файл с большим прямоугольником и надписью Вход. По нажатию на прямоугольник, он удаляется, а нужная форма открывается. Всё. 1

@Ufo_log 0 / 0 / 0 Регистрация: 03.10.2011 Сообщений: 25
	24.04.2012, 13:40 [ТС]
	ок! Пробую ещё раз!))) Добавлено через 21 час 7 минут Получилось тока не знаю как теперь этот прямоугольник убрать! 0