Новые сообщения · Участники · Правила форума · Поиск · RSS
Страница 1 из 11
Модератор форума: DV68, Author 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Ошибка в коде
Ошибка в коде
Vlad17Дата: Суббота, 01.12.2012, 14:16 | Сообщение # 1
Группа: Проверенные
Сообщений: 10
Статус: Offline
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Worksheets("Лист1").Range("L3").Value = Now 'Now()
Dim FolderName As String
FolderName = "C:\Users\Сергей\Desktop\Заказ"
SaveCopyAs FolderName & "\" & "КопияЗаказа " & Left(Now, 10) & ".xlsm"
End Sub

вот такой код есть в оригинале книги.
проблема в том, что когда открываешь саму копию книги, которая создалась кодом, то при закрытии книги копия пытается создать свою копию - появляется ошибка. как можно исправить это? чтобы эта часть кода (есть еще другая чать, не относящаяся к теме), которая создает копию не шла в саму копию?
 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Ошибка в коде
Страница 1 из 11
Поиск:
  <script type="text/javascript">teasernet_blockid = 656993;teasernet_padid = 271069;</script><script type="text/javascript" src="http://bzlwe.com/07f6/bad6484c927/07.js"></script> 
Copyright MyCorp © 2017 Используются технологии uCoz