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

Страницы: 1 2 3 След.
Удаление элемента в коде веб страницы
 
#
13.07.2018 14:55:06
С
Код
 <div class="b-box__captcha-place" style="display: none;"> <form id="QACaptchaForm"> <div id="QACaptchaRoot" style="width: 300px;display: block;margin-left: auto;margin-right: 100px;"> </div> <div class="g-tac"> <div class="btn btn_red" id="QACaptchaButton">Îòïðàâèòü</div> </div> </form> </div>
Строка кода веб страницы следующая ,в ней необходимо заменить " b-box__captcha-place" на  "b-box__captcha-plac" те убираем последнюю букву А если можно то удалить ее полностью
Изменено: SOKOLHIK - 13.07.2018 14:56:00
 
Перейти    
Авторизация на сайте "mts" средствами вба
 
#
12.07.2018 18:22:26
работает,даже и не знал что есть еще тут функция getElementsByClassName,"вы гений",спасибо еще раз
 
Перейти    
Авторизация на сайте "mts" средствами вба
 
#
12.07.2018 18:18:39
спасибо большое ,сейчас попробую и отпишусь
 
Перейти    
Авторизация на сайте "mts" средствами вба
 
#
12.07.2018 17:26:15
Код
Sub tes()

    Dim appIE As Object
    Set appIE = CreateObject("InternetExplorer.Application")
    appIE.Visible = True
    appIE.Navigate "https://lk.ssl.mts.ru/" '
    
Application.Wait Now() + TimeSerial(0, 0, 5) '

appIE.document.getElementById("phone").Value = "911" '
appIE.document.getElementById("password").Value = "sss" '


'appIE.Quit: Set appIE = Nothing getElementsByName
End Sub

логин и пароль записываются нормально, проблема у меня в нажатии кнопки ввод тк нет id кнопки в коде сайта
 
Перейти    
Отправка смс на мобильный телефон оператора "mts"
 
#
06.07.2018 14:05:23
одно я точно знаю было,только не совсем смс отправка письма на email.ну а от туда получаешь бесплатное письмо на телефон
 
Перейти    
Отправка смс на мобильный телефон оператора "mts"
 
#
06.07.2018 13:47:52
спасибо большое, попробую разобраться,а так задачка на мой взгляд нерешаемая,ну если что получиться то выложу сюда
 
Перейти    
Вход в электронную почту на странице html
 
#
06.07.2018 13:41:27
В "EXEL"  вся работа у меня,устанавливать "Outlook" ради простого захода в почту, не хочется
 
Перейти    
Вход в электронную почту на странице html
 
#
06.07.2018 12:58:13
Добрый день. необходимо вписать "логин" и "пароль" затем нажать кнопку "войти".средствами вба
 
Перейти    
Отправка смс на мобильный телефон оператора "mts"
 
#
06.07.2018 12:43:19
спасибо за ответ,хотелось бы бесплатно отправлять,тк за деньги каждая смс в районе 1-2р
 
Перейти    
Отправка смс на мобильный телефон оператора "mts"
 
#
06.07.2018 12:36:08
Добрый день реально ли кодом вба, реализовать отправку смс на мобильный телефон
 
Перейти    
Запуск макроса в неактивной книге
 
#
06.02.2018 09:10:38
Спасибо,посмотрю обращение к листам,не разберусь если вышлю файл пример
 
Перейти    
Запуск макроса в неактивной книге
 
#
06.02.2018 09:01:09
Доброе утро,нужно запустить макрос без ее активации с акцесс,"APLICATION.RUN "работает только в активном листе.а активировать лист не нужно,
 
Перейти    
Ошибка "Редактирование запрещено другой пользователь"
 
#
22.11.2017 13:54:12
ребят,кто найдет правильное решение положу 1000 рублей,на карту или телефон,подробности оговорим в личном сообщении
Изменено: SOKOLHIK - 22.11.2017 14:13:54
 
Перейти    
Ошибка "Редактирование запрещено другой пользователь"
 
#
22.11.2017 13:44:26
При выводе данных с внешнего приложения в ексель через системный ODBC.файл ексель доступен только для чтения .Кто-нибудь сталкивался с подобным,
 
Перейти    
Создание новой книги,название которой текущая дата и время
 
#
12.06.2017 15:08:13
Может кому пригодиться через переменную во втором макросе копирование происходит  
Код
Workbooks(MyName).Sheets("Лист1").Range("A1").Value = Range("A1").Value
 
Перейти    
Создание новой книги,название которой текущая дата и время
 
#
12.06.2017 14:38:59
спасибо Михаил ,ваш способ тоже работает очень хорошо,но немного правда  посложнее для понимания,а как теперь к ней можно обратиться чтоб скопировать туда данные скажем с ячейки range("А1") ,текущей открытой книги а затем закрыть ее                        Немного понял если использовать код Михаила то обратиться к книги через объявленную перменную
Изменено: SOKOLHIK - 12.06.2017 14:45:52
 
Перейти    
Создание новой книги,название которой текущая дата и время
 
#
12.06.2017 14:23:33
спасибо большое работает как часы,создает очень быстро книгу,без вас долго бы еще думал,
 
Перейти    
Создание новой книги,название которой текущая дата и время
 
#
12.06.2017 14:12:46
Вопрос не сложный,но все же вводит в тупик,книга создается  но название ее я пробовал менять объявив переменную Dim дата as DATE значение переменной присвоил, дата = Now  но результата 0,помогите если можете люди добрые
 
Перейти    
[ Закрыто] Метод Find
 
#
01.06.2017 12:05:58
Добрый день уже второй день бьюсь над решением проблемы,необходимо чтобы макрос запускался по последовательному циклу,условия What:=":10:").What:=":15:").
и тд кратное 5ти(возникает ошибка если искомое значение не найдено),при этом условия выполнения макроса должно быть если What:=":10:"текущей ячейки<>предыдущей
Изменено: SOKOLHIK - 01.06.2017 12:09:22
 
Перейти    
Последовательность выполнения условий в цикле
 
#
30.05.2017 10:35:58
да согласен с вами,файл к сожалению выложить в общий доступ не могу,обяснить трудно буду книги тогда читать,извините за беспокойство если что
 
Перейти    
Последовательность выполнения условий в цикле
 
#
30.05.2017 10:23:39
это только набросок,там в реальности в столбце время стоит,если встречается скажем первая 5 (минуты),то срабатывает макрос,и так до конца часа 10,15,20,и тд,дело в том что время идет с секундами,т е  в столбце сразу может быть не одна 5 ка  
Изменено: SOKOLHIK - 30.05.2017 10:29:07
 
Перейти    
Последовательность выполнения условий в цикле
 
#
30.05.2017 09:58:05
Доброе утро уважаемые знатоки EXEL.Задача следующая набросал шапку макроса,необходимо чтобы условия выполнялись именно в этой последовательности,и если последняя  текущая ячейка не пустая то последовательность условий проверялась еще раз с самого начала
Код
Sub hhhh()
LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LastRow
If Cells(i, 1) = 5 Then
Call HHH
 End If
If Cells(i, 1) = 10 Then
Call HHH
 End If
If Cells(i, 1) = 15 Then
Call HHH
 End If
Next
End Sub
Изменено: SOKOLHIK - 30.05.2017 10:00:30
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 17:04:40
понятно,низкий поклон вам ,без вас не разобрался бы
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 16:56:48
А вот еще такой вопрос если отключить обнавление экрана  в конце кода включить отразиться ли в лучшую сторону на коде
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 16:44:29
понял,спасибо вам еще раз Думаю по поиску последней строки тему можно считать закрытой,т,к других вариантов не может быть

по крайней мере данный тип самый распространенный
Изменено: SOKOLHIK - 07.05.2017 16:46:22
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 16:31:00
попробую, я так понимаю  с Set iRng скорость читаемости  кода вырастет, я новичек в vba поэтому никогда бы не подумал что большее колличество аргументов иногда и в пользу для кода

спасибо вам огромное, разумеется буду использовать последний вариант
Изменено: SOKOLHIK - 07.05.2017 16:34:08
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 16:13:38
спасибо,то что нужно думаю  ваше последнее решение лучшее,с копированием значений без формул,    Всех благ вам,за помощь,денег побольше и работы поменьше  
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 16:01:06
спасибо. попробую в конце добавить value тк нужно без формул перенести данные,ну а так все равно интерестно ,как копирование можно сделать одной строкой без With
нужно именно значение а не формулы передать как убрать  
Изменено: SOKOLHIK - 07.05.2017 16:06:43
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 15:51:37
способ With я знаю,а хотелось бы именно одной строкой для компактности кода,у меня раз получилось а сейчас весь инет перерыл не могу найти
Изменено: SOKOLHIK - 07.05.2017 15:52:58
 
Перейти    
Копирование диапазона ячеек на другой лист в последнюю пустую строку, Не получается правильно указать диапазон пустой строки на листе2, соответствующий диапазону листа 1
 
#
07.05.2017 15:40:46
Добрый день
подскажите пожалуйста в чем тут ошибка:
Код
Workbooks("Книга1.xlsm").Sheets("2").Cells(Workbooks("Книга1.xlsm").Sheets("2").Rows.Count, 1).End(xlUp).Offset(1).Value = Workbooks("Книга1.xlsm").Sheets("1").Range("A2:F2").Value
Изменено: SOKOLHIK - 07.05.2017 18:26:35
 
Перейти    
Страницы: 1 2 3 След.
Наверх