Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 43 След.
Решение для добавления значения в первую пустую строку и поиску по названию в списке ActiveX
 
Сдал, оплату получил.
Решение для добавления значения в первую пустую строку и поиску по названию в списке ActiveX
 
Здравствуйте.
Написал в личку
VBA. как записывать макросы пользования интернет браузера?
 
Цитата
tod2020 написал:
отслеживать будет действия???
Нет.
Импорт данных из не очень удобных XML в таблицу Excel
 
Цитата
glaznt написал:
Delphi, Java и прочее. Я к тому,что я совсем не сведущ в программировании.
Почему не VBA?Макросами можно решить проблему.
Импорт данных из не очень удобных XML в таблицу Excel
 
XML регулярками парсить-кощунство.
Xpath="//updates" Смотрим родителя и детей.
Изменено: Doober - 18 Янв 2018 01:23:08
Преобразование данных с посекундными значениями в поминутные с удалением лишних строк
 
Выставлю и свой макрос.
Скрытый текст
Скрипт\Макрос - Google sheets, Выбор из списка и подстановка в таблицу
 
Заказ свободен, в настоящий момент не располагаю свободным временем.
Сделать отчет на Power BI (Dashboard)
 
Для того, чтобы потенциальные исполнители знали, что организован тендер на многих ресурсах.
Как известно, все дороги ведут в Рим.
Скрипт\Макрос - Google sheets, Выбор из списка и подстановка в таблицу
 
Написал в личку
Сделать отчет на Power BI (Dashboard)
 
1 2 3
Вывод определённых ячеек с экспортом в ворд.
 
Написал в скайп
VBA авторизация на сайте, не проходит авторизация
 
Код
Private Sub Test()
    Set objIE = CreateObject("InternetExplorer.Application")
    With objIE
        .Visible = True
        .navigate "http://navigator.mmk.ru/login.aspx?ReturnUrl=%2fdefault.aspx"
        Do While .Busy Or _
           .readyState <> 4
            DoEvents
        Loop
        Set Login1_UserName = .document.getElementById("ctl00_cphMenu_Login1_UserName")
        Login1_UserName.Value = "guest"
        Set Login1_Password = .document.getElementById("ctl00_cphMenu_Login1_Password")
        Login1_Password.Value = "guest"
        Set LoginButton = .document.getElementById("ctl00_cphMenu_Login1_LoginButton")
        LoginButton.Click
        Do While .Busy Or _
           .readyState <> 4
            DoEvents
        Loop
    End With
    Set objIE = Nothing
End Sub
VBA авторизация на сайте, не проходит авторизация
 
В скрипте четко написано, отправка по клику.
Код
onclick='javascript:WebForm_DoPostBackWithOptions(
new WebForm_PostBackOptions("ctl00$cphMenu$Login1$LoginButton",
 "", true, "Login1", "", false, false))'
Изменено: Doober - 9 Янв 2018 01:37:53
Живой поиск с помощью комбобокса и листбокса, ошибка 70, как устранить ошибку?
 
По вопросу вечного двигателя слон и муха отдыхают.
Ваш круче, все на круг запускаете
Код
Private Sub ComboBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ListBox1.Clear
    iValue = ComboBox1.Text
    If iValue = "" Then Exit Sub
    With Лист1
        List = .Range(.Range("A2"), .Range("E" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    For i = 1 To UBound(List)
        If InStr(1, List(i, 1), iValue, vbTextCompare) > 0 Then
            ListBox1.AddItem List(i, 1)
             ListBox1.List(ListBox1.ListCount - 1, 1) = List(i, 2)
              ListBox1.List(ListBox1.ListCount - 1, 2) = List(i, 3)
              ListBox1.List(ListBox1.ListCount - 1, 3) = List(i, 4)
              ListBox1.List(ListBox1.ListCount - 1, 4) = List(i, 5)
        End If
    Next
End Sub
End Sub
Процедуру Sub lsb1_init() не вызывайте.
Изменено: Doober - 7 Янв 2018 00:18:27
2 скрипта. "Экспорт данных элемента Trendline в файл" и "Фокусировка по координатам, Масштабирование и Принтскрин»
 
Цитата
evghtcone написал:
Не подскажете адреса специализированных форумов
Поиск в гугле: Скрипты для   указываете торговую платформу
2 скрипта. "Экспорт данных элемента Trendline в файл" и "Фокусировка по координатам, Масштабирование и Принтскрин»
 
Здравствуйте.
Цитата
evghtcone написал:
Приоритет - стоимость
Ошибаетесь.Приоритет в возможности реализации этих задач в VBA.
Их можно реализовать на встроенных языках программирования торговой платформы и на специализированных форумах.
Макрос Excel vba
 
В работе.
Сдал, оплату получил.
Изменено: Doober - 31 Дек 2017 15:54:32
Макрос Excel vba
 
Написал уточняющие вопросы в личку
Макрос Excel vba
 
Здравствуйте.
Каков бюджет?
Исправление ошибки в функции Сумма_прописью
 
Цитата
nimon написал:
Вы мне исправите только ошибку в квадрате B21
Код
'после
ss = s: kop = (s - Int(s)) * 100
'допишите строку
 ss = Fix(ss)
Поиск по номеру строки и артикулу с помощью VBA
 
Без сотки не разобраться. :)
Поиск по номеру строки и артикулу с помощью VBA
 
Здравствуйте.
Пробуйте.
POST запрос из EXCEL
 
Цитата
Doober написал:
Теперь добавиться головная боль, как обработать ответ.
Я оказался прав.
Ищите на форуме темы с обработкой json ,записи в файл.
POST запрос из EXCEL
 
А что обрезано?То, что на сайте, то и в файле.
Анализировал обмен и нашел ссылку на службу
POST запрос из EXCEL
 
Цитата
faooo написал:
через POST запросы. Не знаю как сделать
Эта функция получит ответ в формате json.Теперь добавиться головная боль, как обработать ответ.
Код
Function Getindxru() As String
    sURL = "https://secure.indx.ru/TradingStats.asmx/GetLargeTradingStats"
    On Error Resume Next
    With CreateObject("MSXML2.XMLHTTP")
        .Open "POST", sURL, False
        .setRequestHeader "Accept-Language", "Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
        .setRequestHeader "Content-Type", "application/json;"
        .setRequestHeader "X-Requested-With", "XMLHttpRequest"
        .send
        Getindxru = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function
Изменено: Doober - 25 Дек 2017 11:27:12
sql server подключение VBA
 
А так?
Код
strConn = "Driver={SQL Server};Server=PC-PC\SQLEXPRESS;Database=DBName;Uid=login; Pwd=mypassword;"
strConn = "Provider=SQLOLEDB.1;Password=mypassword;Persist SecurityInfo=True;" & _
       "User ID=login;Initial Catalog=DBName;Data Source=localhost"
Изменено: Doober - 24 Дек 2017 15:18:33
Реализовать в Excel (vba) связку с API Bitfinex, Реализовать в Excel (vba) связку с API Bitfinex
 
Ответа на мое  предложение не последовало, хотя  Rural был минимум 2 раза на форуме.
Значит не заинтересовало, я отказываюсь.
Реализовать в Excel (vba) связку с API Bitfinex, Реализовать в Excel (vba) связку с API Bitfinex
 
Не ведуться, ждал ответа на свой вопрос
Направил предложение в личку
Изменено: Doober - 23 Дек 2017 23:27:41
Реализовать в Excel (vba) связку с API Bitfinex, Реализовать в Excel (vba) связку с API Bitfinex
 
Каков бюджет этого предприятия?
Как добавить атрибут name элементам xml, макрос для импорта в xml
 
так можно
Код
    Set createlisting = xml.createElement("listing")
    createlisting.setAttribute "num", num
    '  было
    createlisting.appendChild(xml.createElement("custom")).Text = title
    'Стало
    Set Nod = xml.createElement("custom")
     Nod.Text = title
    Nod.setAttribute "name", "door"
    createlisting.appendChild (Nod)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 43 След.