Прекращена работа Microsoft Excel при попытке ActiveWorkbook.SaveAs

@hameleon_2000 · Регистрация: 26.06.2018

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

Прошу помощи!
Задача следующая - необходимо сохранить текущий файл с новым именем, данные для имени берутся из ячеек.
Процедура отрабатывает, файл сохраняется, но Excel вылетает, из-за чего это может быть?

@Burk · 26.06.2018, 13:02

hameleon_2000, файл не раззиповывается

@unick12345 · 26.06.2018, 13:10

ты проверь какие символы используешь в названии файла. добавь еще там знаки: *, %, №, $.
знак ! запрещен в названии файла, и после этого еще спрашиваешь в чем ошибка? да и еще кучу точек ставишь

@hameleon_2000 · 26.06.2018, 13:20 **[ТС]**

наличие или отсутствие знаков . или ! не убирает ошибку

@hameleon_2000 · 26.06.2018, 13:22 **[ТС]**

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

файл не раззиповывается

А теперь? Сделал архив штатными средствами Windows

@Burk · 26.06.2018, 14:52

hameleon_2000, теперь Ок. Запустил, сохранился как Файл.!вка.!вка.xlsm А если вы не хотите чтобы закрывался эксель, то вставьте ещё в Эта книга

Visual Basic

1
2
3

    Private Sub Workbook_BeforeClose (Cancel As Boolean)  
      Cancel = True
    End Sub

Добавлено через 8 минут
hameleon_2000, но ведь когда-то её надо закрыть, поэтому лучше описать Public TF as boolean и Cancel=TF в BeforeClose а TF где надо ставите сами False или True

@hameleon_2000 · 26.06.2018, 15:19 **[ТС]**

Burk, а у меня после сохранения выдает следующее:

@Burk · 26.06.2018, 16:36

hameleon_2000, ага, и у меня тоже. Возился с вашей ситуацией и интуитивно могу пока сказать следующее: при SaveAs из основного файла в новом файле тоже начинает работать такой же макрос и, наверно, получается что-то типа зацикливания. То есть BeforeSave, в этом случае, неудачный вариант. Но на сегодня мой интеллект испаряется, подумаю завтра и вы тоже. А, вообще, в чем идея, что хотим-то?

@hameleon_2000 · 27.06.2018, 05:46 **[ТС]**

Burk, задача следующая:
- есть файл-шаблон, который заполняют сотрудники
- при первом сохранении создается структура папок на основании введенных данных, и файл сохраняется под новым именем в одну из папок

@Burk · 27.06.2018, 06:45

hameleon_2000, но дело то в том, что эти файлы с новыми именами тоже при запуске будут работать как шаблон и тоже будут пытаться записать в файл с новым именем.

@hameleon_2000 · 27.06.2018, 07:52 **[ТС]**

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

Сам файл-шаблон понимает кто из сотрудников его открыл, проверяет имя файла и принимает решение сохранять или нет, менять имя файла или нет, все работает четко и без сбоев, за исключением этого куска кода ...

@Burk · 27.06.2018, 09:20

hameleon_2000, попробовал ещё, похоже как я и предполагал типа зацикливания. Поэтому пока такой совет - обойтись без BeforeSave, просто создать в модуле макрос с этим кодом и запускать его либо создав кнопку, либо вручную

Добавлено через 58 минут
hameleon_2000, вылет происходит, когда вы нажимаете на сохранение (Save), если нажать на Сохранить как (Save as), то не вылетает, но запрос на новый файл дважды - из вашего макроса, а потом из экселя. Я поставил первым оператором в макросе

Visual Basic

1	If Not SaveAsUI Then Exit Sub

чтобы при простом сохранении не работало SaveAs и будет сохранение в основной файл

@hameleon_2000 0 / 0 / 0 Регистрация: 26.06.2018 Сообщений: 6
	27.06.2018, 07:52 [ТС]	11
	Burk, это лишь кусок кода, максимально упрощенный чтобы локализовать ошибку. Понять почему он так себя ведет я не могу, все вроде элементарно, ошибка не зависит от названия файла, компьютера на котором выполняется, пути, куда сохраняется и т.п., поэтому я и обратился к более опытным людям. Сам файл-шаблон понимает кто из сотрудников его открыл, проверяет имя файла и принимает решение сохранять или нет, менять имя файла или нет, все работает четко и без сбоев, за исключением этого куска кода ... 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	26.06.2018, 13:02	2
	hameleon_2000, файл не раззиповывается 0

@unick12345 1856 / 1178 / 190 Регистрация: 27.03.2009 Сообщений: 4,558
	26.06.2018, 13:10	3
	ты проверь какие символы используешь в названии файла. добавь еще там знаки: *, %, №, $. знак ! запрещен в названии файла, и после этого еще спрашиваешь в чем ошибка? да и еще кучу точек ставишь 0

@hameleon_2000 0 / 0 / 0 Регистрация: 26.06.2018 Сообщений: 6
	26.06.2018, 13:20 [ТС]	4
	наличие или отсутствие знаков . или ! не убирает ошибку 0

@hameleon_2000 0 / 0 / 0 Регистрация: 26.06.2018 Сообщений: 6
	26.06.2018, 15:19 [ТС]	7
	Burk, а у меня после сохранения выдает следующее: Миниатюры 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	26.06.2018, 16:36	8
	hameleon_2000, ага, и у меня тоже. Возился с вашей ситуацией и интуитивно могу пока сказать следующее: при SaveAs из основного файла в новом файле тоже начинает работать такой же макрос и, наверно, получается что-то типа зацикливания. То есть BeforeSave, в этом случае, неудачный вариант. Но на сегодня мой интеллект испаряется, подумаю завтра и вы тоже. А, вообще, в чем идея, что хотим-то? 0

@hameleon_2000 0 / 0 / 0 Регистрация: 26.06.2018 Сообщений: 6
	27.06.2018, 05:46 [ТС]	9
	Burk, задача следующая: - есть файл-шаблон, который заполняют сотрудники - при первом сохранении создается структура папок на основании введенных данных, и файл сохраняется под новым именем в одну из папок 0

@Burk 1846 / 1161 / 354 Регистрация: 11.07.2014 Сообщений: 4,102
	27.06.2018, 06:45	10
	hameleon_2000, но дело то в том, что эти файлы с новыми именами тоже при запуске будут работать как шаблон и тоже будут пытаться записать в файл с новым именем. 0

	27.06.2018, 09:20

Прекращена работа Microsoft Excel при попытке ActiveWorkbook.SaveAs

Решение