Мониторинг договоров по срокам окончания

@Султанов · Регистрация: 25.01.2013

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

Доброе время суток!!
Как организовать в VBA мониторинг договоров по окончания срока, т.е. заведомо получить оповещение за 30 дней до окончания срока, не открывая файл Excel с реестром договоров?

@Hugo121 · 20.03.2014, 11:04

Ну да, настроить кодом планировщик - это ещё одна задача... Не подумал...

@korvindeson · 20.03.2014, 11:42

В приложении скрипт для AutoIt. Закоментировал вроде подробно. Где путь к файлу, ячейкам которые нужны писать понятно будет. Только если у вас формат ячеек с датами не текстовый, а дата, надо будет немного код поменять. Ну, и соответственно скачать AutoIt для редактирования, да и скомпилировать в экзешник можно, его же и в автозагрузку не беда приткнуть

@Султанов · 20.03.2014, 12:26 **[ТС]**

сейчас посмотрю

Добавлено через 1 минуту
korvindeson, что то с расширением этого файла не то

@Hugo121 · 20.03.2014, 12:26

Excel.au3 у меня например нет, и в пакете AutoIt думаю его тоже нет...

@Султанов · 20.03.2014, 12:29 **[ТС]**

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

Дык Султанов хочет вообще чтоб пользователь не учавствовал, кроме как один раз запустить файл.

пользователю не надо знать подробности, ему нужно знать о том что за 30 дней срок истекает по такому-то договору

@Rube · 20.03.2014, 12:50

Сообщение от Султанов

пользователю не надо знать подробности, ему нужно знать о том что за 30 дней срок истекает по такому-то договору

А я не об этом ли сказал?

Добавлено через 58 секунд

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

Замените красное на путь к файлу.
.TargetPath = Application.Path & "\EXCEL.EXE"

Это сделали?

@Султанов · 20.03.2014, 13:06 **[ТС]**

Rube, ну думал конец, после переустановки офиса заработало)))

@Rube · 20.03.2014, 13:11

Сообщение от Султанов

ну думал конец,

Вдвоем всегда быстрее думать!)

@korvindeson · 20.03.2014, 13:54

Сообщение от Султанов

korvindeson, что то с расширением этого файла не то

Я так понимаю оно уже не надо. Если хотите добить этот вариант, напишите что именно за ошибка у меня всё прекрасно работает на стандартном autoit

В приложении Excel.au3
Живёт в програм файлз \AutoIt3\Include

@Султанов · 20.03.2014, 14:34 **[ТС]**

korvindeson, поставил autoit, запустил - тишина

@korvindeson · 20.03.2014, 15:04

Султанов, вам нужно во первых проверить живёт ли в програм файлз \AutoIt3\Include файл под именем Excel.au3, если нет, скинуть его туда из поста выше.
Во вторых открыть макрос для редактирования (правая кнопка по test.au3 -> Edit script)
Далее изменить
$sFile = "путь к вашему файлу"
;столбец с датами
$column = 1
;столбец именами организаций, названием договоров или что там надо на печать вывести
$column2 = 2
;строка с которой начинаем
$row = 1

Как всё сделаете нажмите F5 находясь в редакторе. Если выкинет ошибку скиньте. Я сделал обработку в расчёте на то, что в ячейках с датами формат типа текст. Если формат дата, надо будет ещё строчку поменять.

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

Добавлено через 13 минут
О, тупанул

Если поменять в двух местах
$search_cell = $oExcel.Activesheet.Cells($row, $column).Value
на
$search_cell = $oExcel.Activesheet.Cells($row, $column).Text

То без разницы какой там формат

@Hugo121 · 20.03.2014, 15:11

Кстати, есть там одно тонкое место (ну может ещё что, не изучал

)):

Visual Basic

1	ActiveSheet.UsedRange.Rows.Count

Бывает, что эта UsedRange начинается не с первой строки!

@korvindeson · 20.03.2014, 15:14

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

Бывает, что эта UsedRange начинается не с первой строки!

Так в этом моменте интересует последняя, первую ручками ставим. А момент тонкий только потому что файл не показывают. Гаданием пробую

@Hugo121 · 20.03.2014, 15:17

Ну и не будет эта последняя просмотрена!

@korvindeson · 20.03.2014, 15:24

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

Ну и не будет эта последняя просмотрена!

Почему не будет?

Do
...
until $row = $max_row +1

Добавлено через 5 минут
А тонких моментов много на самом деле. Если начать предсавлять, что может побежать не так. Если в столбце с датами будет какой мусор вместо дат, или формат к примеру не тот, программа споткнётся. Универсальное решение на все случаи жизни пилить? Так не настолько распространённая проблема.

@Hugo121 · 20.03.2014, 15:32

Ну вот потому и не будет... Хотя что я тут хакера учу...

@korvindeson · 20.03.2014, 15:46

Так объясните толком, а не обзывайтесь. Самому-то интересно не разу не спотыкался на такой проблеме, как воспроизвести не понимаю

@Hugo121 · 20.03.2014, 16:00

Ладно, смотрите - Вы получили количество в usedrange строк 10 (не обязательно заполненных, кстати, что делает ошибку неуловимой...), значит будете просматривать с 1 до 10. Всё верно?
А usedrange допустим начинается с строки 5...
Как решать - вариантов несколько, поэтому советовать не буду.

P.S. А своим хакерством Вы возможно нанесли мне конкретный урон кстати...

Добавлено через 4 минуты
А воспроизвести элементарно - в новом листе заполнить пяток ячеек с пятой строки, и выполнить пошагово

Visual Basic

Sub tt()
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        Cells(i, 1).Select
    Next
End Sub

@korvindeson · 21.03.2014, 12:03

Благодарю, не сообразил. Допилил, поправил (надо же закончить). За тот момент прошу прощенья, не подумавши сделал, просто интересно стало, молодой, дурной, что взять? Сейчас напишу, чтоб убили тот файл.

А по теме. Править то же самое что и раньше (где файл, в каком ряду). Разделитель теперь можно использовать любой при условии, что формат дд'разд'мм'разд'гггг. Если программа натыкается на строчки с неправильным форматом дат, потом уведомляет. На мусоре больше ошибку выкидывать не будет.

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	20.03.2014, 12:26 [ТС]	23
	сейчас посмотрю Добавлено через 1 минуту korvindeson, что то с расширением этого файла не то 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	20.03.2014, 13:06 [ТС]	27
	Rube, ну думал конец, после переустановки офиса заработало))) 0

@Rube 912 / 560 / 88 Регистрация: 13.02.2014 Сообщений: 2,081
	20.03.2014, 13:11	28
	Сообщение от Султанов ну думал конец, Вдвоем всегда быстрее думать!) 1

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	20.03.2014, 15:04	31
	Султанов, вам нужно во первых проверить живёт ли в програм файлз \AutoIt3\Include файл под именем Excel.au3, если нет, скинуть его туда из поста выше. Во вторых открыть макрос для редактирования (правая кнопка по test.au3 -> Edit script) Далее изменить $sFile = "путь к вашему файлу" ;столбец с датами $column = 1 ;столбец именами организаций, названием договоров или что там надо на печать вывести $column2 = 2 ;строка с которой начинаем $row = 1 Как всё сделаете нажмите F5 находясь в редакторе. Если выкинет ошибку скиньте. Я сделал обработку в расчёте на то, что в ячейках с датами формат типа текст. Если формат дата, надо будет ещё строчку поменять. Программа будет молча отрабатывать и закрываться если не найдено документов, требующих уведомления. Или же будет вывобить сообщение типа дата окончания имя документа Добавлено через 13 минут О, тупанул Если поменять в двух местах $search_cell = $oExcel.Activesheet.Cells($row, $column).Value на $search_cell = $oExcel.Activesheet.Cells($row, $column).Text То без разницы какой там формат 0

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	20.03.2014, 15:14	33
	Сообщение от Hugo121 Бывает, что эта UsedRange начинается не с первой строки! Так в этом моменте интересует последняя, первую ручками ставим. А момент тонкий только потому что файл не показывают. Гаданием пробую 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	20.03.2014, 11:04	21
	Ну да, настроить кодом планировщик - это ещё одна задача... Не подумал... 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	20.03.2014, 12:26	24
	Excel.au3 у меня например нет, и в пакете AutoIt думаю его тоже нет... 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	20.03.2014, 12:29 [ТС]	25
	Сообщение от Rube Дык Султанов хочет вообще чтоб пользователь не учавствовал, кроме как один раз запустить файл. пользователю не надо знать подробности, ему нужно знать о том что за 30 дней срок истекает по такому-то договору 0

@Rube 912 / 560 / 88 Регистрация: 13.02.2014 Сообщений: 2,081
	20.03.2014, 12:50	26
	Сообщение от Султанов пользователю не надо знать подробности, ему нужно знать о том что за 30 дней срок истекает по такому-то договору А я не об этом ли сказал? Добавлено через 58 секунд Сообщение от Rube Замените красное на путь к файлу. .TargetPath = Application.Path & "\EXCEL.EXE" Это сделали? 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	20.03.2014, 14:34 [ТС]	30
	korvindeson, поставил autoit, запустил - тишина 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	20.03.2014, 15:17	34
	Ну и не будет эта последняя просмотрена! 0

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	20.03.2014, 15:24	35
	Сообщение от Hugo121 Ну и не будет эта последняя просмотрена! Почему не будет? Do ... until $row = $max_row +1 Добавлено через 5 минут А тонких моментов много на самом деле. Если начать предсавлять, что может побежать не так. Если в столбце с датами будет какой мусор вместо дат, или формат к примеру не тот, программа споткнётся. Универсальное решение на все случаи жизни пилить? Так не настолько распространённая проблема. 0

@Hugo121 6922 / 2832 / 543 Регистрация: 19.10.2012 Сообщений: 8,645
	20.03.2014, 15:32	36
	Ну вот потому и не будет... Хотя что я тут хакера учу... 0

@korvindeson 1261 / 147 / 32 Регистрация: 11.02.2011 Сообщений: 418
	20.03.2014, 15:46	37
	Так объясните толком, а не обзывайтесь. Самому-то интересно не разу не спотыкался на такой проблеме, как воспроизвести не понимаю 0