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

Страницы: 1
Обращение к элементам HTML внутри Inframe
 
#
10.09.2020 13:11:03
Здравствуйте, уважаемые знатоки!.
Как обратиться к элементам страницы HTML внутри inframe.
Код страницы сайта прикладываю.
В итоге необходимо с помощью VBA заполнить форму с логином и паролем и нажать вход.
Решение нашел:
Код
Dim workFrame As HTMLIFrame
Dim objShell As Object, oWin As Object
Dim HTMLDoc As HTMLDocument
Dim ie As InternetExplorer

url = "http://..."
    Set ie = New SHDocVw.InternetExplorer
    ie.Visible = True
    ie.navigate url
    

Set workFrame = ie.document.getElementById("PageContent")
Set HTMLDoc = workFrame.contentWindow.document
HTMLDoc.getElementById("username").Value = 1
Изменено: mzaytsev - 10.09.2020 13:44:47
 
Перейти    
Выбор элементов списка в HTML через VBA
 
#
19.04.2019 09:46:09
 
Добрый день.
Есть задача, из списка на странице выбрать несколько значений списка.
Сейчас используется код, но он выбирает только 1 элемент списка:
Код
.document.getElementById("QueuesForReportsSelected").Value = 85

Были попытки сделать множественный выбор кодом:

Код
 With objIE.document.getElementsByTagName("select")(43)
    .Children(83).Selected = True
    .Children(56).Selected = True
    .Children(98).Selected = TrueEnd
 With

С данным кодом макрос не работает.
Подскажите пожалуйста, как можно решить эту задачу.
Изменено: mzaytsev - 19.04.2019 09:48:10
 
Перейти    
Как применить оператор On Error при возникновении ошибок?
 
#
24.10.2017 16:14:05

Добрый день.

Прошу помощи, подскажите пожалуйста, почему в коде ниже возникает ошибка "object variable or with block variable not set"

Хотелось бы чтобы макрос пропускал и брал следующее значение если не находил текущее искомое.

Оператор On Error срабатывает только один раз и пропускает значение которое не нашел, на втором круге цикла возникает ошибка "object variable or with block variable not set"

Код
For j = 2 To lLastRow - 1
Workbooks("AutoReport_Din").Worksheets("Выгрузка_POSReport").Activate
On Error GoTo errH1
If Not IsEmpty(Cells(j, 1)) Then
On Error GoTo errH2
d = Cells(j, 1).Value
End If
Workbooks(strFileName2).Worksheets("Сводная").Activate
               Set clf = Worksheets("Сводная").Columns(1).Find(What:=d, After:=ActiveCell, LookIn:=xlFormulas, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                        SearchFormat:=False) ' поиск даты
            j1 = clf.Row
    
Cells(j1, 2).Select
Selection.Copy
Workbooks("AutoReport_Din").Worksheets("Выгрузка_POSReport").Activate
Cells(j, 13).Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
errH1:
errH2:
    Next
 
Перейти    
Поиск через VBA
 
#
16.12.2016 15:02:06
Добрый день, Уважаемые знатоки!
Есть следующая вырезка из кода:
Код
Set c = Cells.Find(What:=MyDate1, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        Range(c.Rows, c.Columns).Activate

Где MyDate1 поочередно меняется
И почему то возникает ошибка "Object variable or block variable not set" когда цикл доходит до 10.12.2016.
Подскажите пожалуйста в чем может быть причина.
Спасибо.
Изменено: mzaytsev - 16.12.2016 15:20:32
 
Перейти    
Копирование значения ячейки на пересечении строки и столбца
 
#
15.08.2015 14:34:31
Добрый день, уважаемые форумчане!
Подскажите пожалуйста как можно выполнить следующее:
Есть два файла, в обоих файлах первый столбец это даты, первая строка это название показателей, на пересечении строк и столбцов данные.
В первом файле данные обновляются на ежедневной основе, назову его для понимания (выгрузка), во втором файле хранится информация за исторический период (архив).
Необходимо перенести актуальные данные из выгрузки в архив. Сложность заключается в том, что в файле архив присутствуют названия других показателей. Таким образом задача сводится к тому чтобы найти значение за определенную дату и с определенным показателем из файла выгрузка скопировать его и вставить в файл архив в ячейку с такой же датой и названием показателя.
Реализовать необходимо макросом.
Приложил 2 файла, первый - пример файла выгрузка, второй - пример файла архив. Данные проставлены для примера.

Надеюсь понятно для всех объяснил суть проблемы.

Спасибо.
 
Перейти    
Макрос для фильтрации времени больше суток в сводной таблице
 
#
10.06.2015 10:14:49
Всем, привет. Очень нужна помощь в написании макроса. Есть такой код:
Код
[COLOR=#696a6a]With ActiveSheet.PivotTables("СводнаяТаблица2" ;) .PivotFields( _ [/COLOR]
[COLOR=#696a6a]"Тайминг обработки для партнера" ;) [/COLOR]
[COLOR=#696a6a].NumberFormat = "[hh]:mm:ss" [/COLOR]
[COLOR=#696a6a].AutoSort xlManual, .AutoSortField [/COLOR]
[COLOR=#696a6a]For Each PvtItem In .PivotItems [/COLOR]
[COLOR=#696a6a]If IsDate(.Value) Then [/COLOR]
[COLOR=#696a6a]If .Value > "08:00:00" Then .Visible = False: Exit For [/COLOR]
[COLOR=#696a6a]End If [/COLOR]
[COLOR=#696a6a]Next [/COLOR]

[COLOR=#696a6a]For Each PvtItem In .PivotItems [/COLOR]
[COLOR=#696a6a]With PvtItem [/COLOR]
[COLOR=#696a6a]If IsDate(.Value) Then [/COLOR]
[COLOR=#696a6a].Visible = .Value <= "08:00:00" [/COLOR]
[COLOR=#696a6a]End If [/COLOR]
[COLOR=#696a6a]End With [/COLOR]
[COLOR=#696a6a]Next [/COLOR]
[COLOR=#696a6a].AutoSort xlAscending, .AutoSortField [/COLOR]
[COLOR=#696a6a]End With 
[/COLOR]

Но столкнулся с такой сложностью, что в фильтре по "Тайминг обработки для партнера" присутствуют значения больше 24:00:00, соответственно данным кодом они не скрываются. Подскажите пожалуйста как можно решить эту проблему.
Изменено: mzaytsev - 10.06.2015 23:49:24
 
Перейти    
Макрос для фильтрации сводной тиблицы
 
#
03.06.2015 19:02:48
Всем, привет.

Подскажите пожалуйста как будет выглядеть макрос для фильтрации в сводной таблице.
Ситуация следующая, есть сводная таблица, в ней фильтр "причина превышенного тайминга обработки заявки" уникальных значений в этом фильтре нет (все причины начинаются со слов перезвон_в, дозвонился_в, Нет_номера_телефона,  долгий_разговор_с_клиентом и т.д.) необходимо поставить фильтр по всем причинам кроме по всем перезвонам, по всем дозвонился. Как это можно сделать, думал ввести что то типа переменной perezvon = "перезвон*" и оставлять все значения кроме этой переменной.

Всем спасибо кто откликнется на помощь.
 
Перейти    
Распределение обязанностей сотрудников
 
#
07.05.2015 10:40:13
Всем, привет.
Нужна помощь, ребят. Задача состоит в следующем: есть расписание сотрудников, есть функционал который они должны выполнять каждый день, в различные дни работает разное количество сотрудников. В прикрепленном файле на листе Распределение таблица с распределением функционала в зависимости от количества смен в день. Сложность возникает в том, что если в день несколько одинаковых смен, не получается взять 2го сотрудника для назначения ему определенного функционала.
Спасибо всем кто откликнется на помощь.
Изменено: mzaytsev - 07.05.2015 12:52:02
 
Перейти    
Страницы: 1
Наверх