Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » lopata12
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Уведомление во всплывающем окне по дате VBS
 
#
25.11.2024 13:57:01
Цитата
написал:
Ещё попытка.Код Set XLSApp = CreateObject("Excel.Application")
  FN = "C:\1\k331.xlsx"
XLSApp.Visible = False
XLSApp.Workbooks.Open FN, 0, True
arr = XLSApp.Workbooks(1).Sheets(1).Range("A1:B4").Value
XLSApp.Quit

flag = false
For ya = 1 To UBound(arr, 1)
For xa = 1 To UBound(arr, 2)
   If arr(ya, xa) = Date Then
     flag = true
     exit for
   End If
Next
  if flag then exit for
Next

if flag then
MsgBox "ест такие даты в таблице", vbExclamation, "Проверка файла" & FN
else
MsgBox "все в порядке", vbInformation, "проверка файла " & FN
end if
извините не мог раньше зайти на сайт, спасибо, вы очень помогли код работает
 
Перейти    
Уведомление во всплывающем окне по дате VBS
 
#
18.11.2024 20:52:33
Цитата
написал:
А так?Код  Set XLSApp = CreateObject("Excel.Application")
  FN = "C:\1\k331.xlsx"
XLSApp.Visible = False
XLSApp.Workbooks.Open FN, 0, True
arr = XLSApp.Workbooks(1).Sheets(1).Range("A1:B4").Value

For ya = 1 To UBound(arr, 1)
For xa = 1 To UBound(arr, 2)
   If arr(ya, xa) = Date Then
          MsgBox "ест такие даты в таблице", vbExclamation, "Проверка файла" & FN
        XLSApp.Quit
        goto myExit
   End If
Next
Next
MsgBox "все в порядке", vbInformation, "проверка файла " & FN
myExit:
XLSApp.Quit


Изменено: МатросНаЗебре  - 18.11.2024 16:22:02

-----
ошибка строка 10 12 - предполагается наличие инструкции
 
Перейти    
Уведомление во всплывающем окне по дате VBS
 
#
18.11.2024 15:25:58
Цитата
написал:
А что Вы хотите добиться скриптом, в котором будет диапазон, а не одна ячейка?
ест список с датами, у кого дни рождения, кому пропуск новый выписать надо. этот скрипт засуну в задачи ,чтобы по времени запускался и напоминал , что есть такие даты в такомто файле. С уважением
 
Перейти    
Уведомление во всплывающем окне по дате VBS
 
#
18.11.2024 15:23:37
спасибо за ответ, выходит ошибка предполагается наличие окончания инструкции - строка 6 символ 13
 
Перейти    
Уведомление во всплывающем окне по дате VBS
 
#
18.11.2024 15:00:09
Здравствуйте,нашел на форуме вот такой код для того чтобы выводилось уведомление во всплывающем окне при запуске .vbs файла:

Set XLSApp=CreateObject("Excel.Application")
   FN="C:\1\k331.xlsx"
XLSapp.visible=false
XLSApp.Workbooks.Open FN,0,true
With XLSApp.Workbooks(1).Sheets(1)
 if .Range("A1").value=DATE then
   MsgBox "ест такие даты в таблице", vbExclamation, "Проверка файла"&FN
 else
   MsgBox "все в порядке", vbInformation, "проверка файла "&FN
 end if
end with
XLSApp.Quit

работает толко если значение в A1, если я ставлю в .vbs диапазон "A1:B4" к примеру - окно с ошибкой выходит - несоответствие типа - строка 6 символ 3 код 800A000D.

как сделат, чтобы проверялся диапазон ячеек, спасибо. Версия офиса 365.
 
Перейти    
Страницы: 1
Наверх