Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.12.2010, 09:26   #21
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
главный вопрос на повестке дня - как имя файла дернуть
Не понял, что надо... макросом получить имя открытого файла?

Попробуйте такие варианты:

Код:
MsgBox ActiveWorkbook.Name
MsgBox ActiveWorkbook.Path
MsgBox ActiveWorkbook.FullName

MsgBox ThisWorkbook.Name
MsgBox ThisWorkbook.Path
MsgBox ThisWorkbook.FullName
EducatedFool вне форума Ответить с цитированием
Старый 28.12.2010, 09:40   #22
nilem
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 616
По умолчанию

Посмотрите здесь похожий пример.

Последний раз редактировалось nilem; 28.12.2010 в 09:41. Причина: уже ответили
nilem вне форума Ответить с цитированием
Старый 28.12.2010, 09:51   #23
3BEPOBOY
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 82
По умолчанию

Цитата:
Сообщение от nilem Посмотреть сообщение
Посмотрите здесь похожий пример.
вау, спасибо огромное!!!
3BEPOBOY вне форума Ответить с цитированием
Старый 28.12.2010, 11:22   #24
3BEPOBOY
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 82
По умолчанию

По ходу отладки возник еще вопрос.

После того как пользователь закрывает программу, у него Excel спрашивает, сохранять ли файл. Так вот, может получиться такая ситуация, что ин-фа об изменении в мой LOG запишется, а файл в итоге останется без изменения. Можно ли как-то перехватить это диалоговое окно и повесить на него действия?
как вариант совсем отключить, я его сам пропишу тогда.
3BEPOBOY вне форума Ответить с цитированием
Старый 28.12.2010, 11:56   #25
3BEPOBOY
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 82
По умолчанию

Не... "Я ЕГО САМ ПРОПИШУ" не годится)) я не знаю как кнопку отмена сделать...
3BEPOBOY вне форума Ответить с цитированием
Старый 28.12.2010, 16:03   #26
3BEPOBOY
Пользователь
 
Регистрация: 27.12.2010
Сообщений: 82
По умолчанию

Подсказал один хороший человек способ, делаю вот так теперь.
Код:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
x = MsgBox("Сохранить изменения в файле '" & ThisWorkbook.Name & "'?", vbYesNoCancel, "Microsof Office Excel")
If x = vbYes Then ActiveWorkbook.Save
If x = vbNo Then
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.Quit
End If
If x = vbCancel Then Cancel = True
End Sub
Только куча страшных слов около "НЕТ" не помогает от диалога стандартной сохранялки избавиться.
Подскажите что можно сделать.
желательно ссылаясь сразу на определенное у меня
Цитата:
Dim XL1 As Workbook
Set XL1 = ActiveWorkbook
потому что по "YES" будет идти запись в ЛОГ определенный как
Цитата:
Dim XL2 As Workbook
Set XL2 = Workbooks.Open(adr)
просто столкнулся уже с тем, что в VBA не всегда обратиться к кому нужно

Последний раз редактировалось 3BEPOBOY; 28.12.2010 в 16:07. Причина: забыл кое что
3BEPOBOY вне форума Ответить с цитированием
Старый 30.12.2010, 02:10   #27
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

В этой папке все хранится
\Documents and Settings\Пользователь\Local Settings\Temp\LOG
Надстройку подключите.
будет держать под контролем все листы,поставте на пароль.
Как работает,не представляю,но службу тянет

добавлено. M_Control_M1
Модернизировал надстройку, немного упростив ее
Убрал запись временных данных в текстовые файлы.
Файл лог формируется в одной папке с открываемым файлом
Вложения
Тип файла: rar M_Control.rar (21.4 Кб, 11 просмотров)
Анализ,обработка данных Недорого

Последний раз редактировалось doober; 31.12.2010 в 01:52.
doober вне форума Ответить с цитированием
Старый 31.12.2010, 17:34   #28
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

вложение M_Control_M1 исчезло в предыдущем посте
Вложения
Тип файла: rar M_Control_M1.rar (24.4 Кб, 10 просмотров)
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как зафиксировать куки? mogul82 PHP 2 22.12.2008 22:28
Как использовать некоторый Active X в своей HTML странице Stilet JavaScript, Ajax 2 08.05.2008 18:13
как зафиксировать ячейку в таблице? Deceased PHP 1 08.05.2008 18:08
Как зафиксировать ячейку? gait HTML и CSS 4 22.11.2007 18:14