ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка события сохранения книги Excel
6 сообщений из 6, страница 1 из 1
Обработка события сохранения книги Excel
    #38079813
Тверд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тверд
Гость
Есть папка на локальной машине и, одноименная папка на сетевом диске. Необходимо поддерживать актуальность содержимого папки на сетевом диске.
На кнопку на ленте подвешена процедура, которая, через Replace в полном имени файла последовательно сохраняет книгу в локальной папке и в сетевой...

Но я иногда забываю про кнопку и сохраняю файл только в локальной папке! Хочу написать обработку события сохранения книги, с тем чтобы, в случае если книга лежит в заданной папке, срабатывала вышеуказанная процедура.

Проблема, для меня по крайней мере, в том, что хранимые файлы макросов не содержат в принципе, а ЭтаКнига в PERSONAL.XLSB обрабатывает события самой PERSONAL.XLSB. Т.е. я вижу задачу научить PERSONAL.XLSB обрабатывать события любой книги Excel, а как это сделать не понимаю.
...
Рейтинг: 0 / 0
14.12.2012, 17:14
| Ответить | Цитировать | Написать  
Обработка события сохранения книги Excel
    #38080140
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Может, переложить данный функционал на средства ОСи?
...
Рейтинг: 0 / 0
14.12.2012, 21:07
| Ответить | Цитировать | Написать  
Обработка события сохранения книги Excel
    #38080410
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Тверд,

Напиши код в твоей ЭтаКнига, который сначала сам пишет нужный тебе код в событие сохранения любой книги (таким образом они получают макро), а потом сохраняет книги локально, но код для сети уже будет, и он сработает. Пример кода (в смысле какие классы могут понадобиться) здесь 12910314 .
...
Рейтинг: 0 / 0
15.12.2012, 09:43
| Ответить | Цитировать | Написать  
Обработка события сохранения книги Excel
    #38081511
Тверд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тверд
Гость
VladConn,

Спасибо, буду разбираться.
...
Рейтинг: 0 / 0
17.12.2012, 10:13
| Ответить | Цитировать | Написать  
Обработка события сохранения книги Excel
    #38081898
ZVI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZVI
Участник
Тверд...я вижу задачу научить PERSONAL.XLSB обрабатывать события любой книги Excel, а как это сделать не понимаю.
Для этого в PERSONAL.XLSB в модуль ЭтаКнига нужно записать такой код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
' Code of ThisWorkbook/ЭтаКнига module
Private WithEvents App As Application

Private Sub Workbook_Open()
  Set App = Application
End Sub

Private Sub App_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Const NetPath = "\\Server1\Share1\" ' <-- Change to suit
  Dim f As String
  f = NetPath & Me.Name
  If Len(Dir(f)) > 0 Then SetAttr f, vbNormal
  Wb.SaveCopyAs f
  SetAttr f, vbReadOnly
End Sub
...
Рейтинг: 0 / 0
17.12.2012, 14:10
| Ответить | Цитировать | Написать  
Обработка события сохранения книги Excel
    #38083031
Тверд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Тверд
Гость
ZVI,

Спасибо, загрузился по полной.
...
Рейтинг: 0 / 0
18.12.2012, 10:15
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Обработка события сохранения книги Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38080140&tid=2157264]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 151ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 13ms
total:  251ms
созд. / загр.: 251ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]