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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
ключевые слова, подобрать ключевые слова по теме
 
lexkaz, каков бюджет сего заказа?
И приведите пример на десяток строк, дело пойдет быстрее.
У меня есть вариант на одном api(не яндекс, не гугл) без всяких авторизаций. Возможно подойдет.
Если Александрне возьмется, то пишите в личку.
Парсер html страницы
 
tehnosmart, приветствую!
По этой ссылке попробуйте
Загрузка текста с сайта в excel
 
Проверяйте, подстраивайтесь.
Код
Sub St()
    Dim URL$, txt As String, clid As String, lang As String, vspid As String, data As String, id As String
    clid = "594"
    lng = "en"
    vspid = "1"
    data = "#2_1,3_800,22_7,5_1493800,9_match,8_1181210054,178_53405,7_53403"
    URL = "https://vfl3.betradar.com/s4/?clientid=" & clid & "&language=" & lng & "&vsportid=" & vspid & data
    txt = DownloadText(URL)
    id = Split(Split(txt, "id"":""")(1), """,")(0)
    URL = "https://vfl3.betradar.com/s4/gismo.php?&id=" & id & "&language=" & lng & "&clientid=" & clid & "&vsportid=" & vspid & "&state=" & data
    txt = DownloadText(URL)
    Cells(1, 1) = txt
End Sub
Private Function DownloadText(ByVal URL As String) As String
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", Replace(URL$, "\", "/"), "False"
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
        .setRequestHeader "Content-Type", "text/html; charset=utf-8"
        .send
        If .statustext = "OK" Then DownloadText = .responseText
    End With
End Function

Цитата
koka0000 написал:
А нельзя получить ссылку на весь сезон а не конкретную игру?
Понятия не имею, вам функционал сайта виднее.
Изменено: Jungl - 7 Янв 2019 17:04:10 (post to get)
Загрузка текста с сайта в excel
 
koka0000, покажите ваши наработки.
Я пока вижу 2 действия, получение ID по основной ссылке, подстановка ID в ссылку, которая формирует xml ответ.
Скачать файлы с сохранением структуры папок имея URLы
 
Berm, приводите пример ссылок и того, как вам надо сохранять.
Что касается сохранений изображений - на форуме обсуждалось не раз, пользуйтесь поиском.
Обновление данных, получаемых из Интернета, с интервалом меньше минуты
 
Цитата
amibus написал:
привело к необходимости постоянно жать на кнопку старт
судя по всему цикл есть, значит все работает. убираете msgbox и все.
Обновление данных, получаемых из Интернета, с интервалом меньше минуты
 
amibus, уверены?

Попробуйте добавить после
Код
Sub Upd()
Код
MsgBox("Start!")
Обновление данных, получаемых из Интернета, с интервалом меньше минуты
 
amibus, запустить этот код:
Код
Sub Upd()
    ActiveWorkbook.RefreshAll
    Application.OnTime Now + TimeValue("00:00:07"), "Upd"
End Sub
Как сохранить файл по ссылке с помощью VBA
 
Sanchos_bop, используйте данный заголовок для сброса кэша(после Open)
Код
XMLHTTP.SetRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
Сохранение файла без Save / SaveAs
 
Цитата
Сергей М написал:
Или подскажите в чем может быть проблемы если кто-то сталкивался с подобным.
Сталкивался, на win10, на рабочем столе. Вот конкретно на рабочем столе почему-то все объекты становились в атрибут read-only и при сохранении вызывало SaveAs.
Со временем само отпускало. Перезагрузка не помогала.
Причину самостоятельно найти не удалось, грешу на системную защиту или файловый сервер синхронизации.
p.s. все это происходило в доменной сети компании.
Подбор атрибутов для POST-запроса через VBA, Как сформировать POST-запроса через VBA, если судя по Инспектору он содержит много атрибутов
 
JohnClayton, слать вам нужно на этот адрес:
https://registers.esma.europa.eu/publication/searchRegister/doMainSearch

Вот функция, дело за малым:
Код
Function postj(ByVal URL$, ByVal json As String) As String
    With CreateObject("Microsoft.XMLHTTP")
        .Open "POST", Replace(URL$, "\", "/"), "False"
        .setRequestHeader "If-Modified-Since", "Thu, 1 Jan 1970 00:00:00 UTC"
        .setRequestHeader "Content-Type", "application/json; charset=utf-8"
        .setRequestHeader "Accept-Language", "ru-RU"
        .send (json)
        If .statustext = "OK" Then postj = .responseText
    End With
End Function
Нужно выгрузить данные в эксель с сайта bik-info.ru по API по определенному запросу
 
DopplerEffect, добрый.
Какой ключ?
Просто переходите по ссылке, подставляя БИК компании - сбер например и получаете ответ. В моем случае json, вы можете выбрать xml.
Дальше парсите полученные данные и на лист/переменную.
Открыть html-файл с помощью Power Query.
 
Александр*, вышлите файл, может удастся найти.
Красивое отображение фильтров, Сделать красивое отображение фильтров и выводимой информации
 
Цитата
A C написал:
Покупатель в зале на компьютере видит значок "Найти мастера", нажимает его, появляются значки фильтров, выбирает необходимые параметры, на экран выводятся отфильтрованные страницы Word с информацией о мастерах.
Здравствуйте!

Пользователям лучше не предоставлять такие привилегии, как копания напрямую в документах.
Тем более давать доступ в систему.
Мое видение - отдельная софтина, которая разворачивается на весь экран и закрыть/свернуть ее можно по спец комбинации клавиш или паролю.
Эта софтина будет при поиске обращаться к текстовым файлам типа xml/access базе данных, можно excel. Рекомендуется БД.
Если готовым к такому, то данные есть в профиле + не забудьте сообщить, на какой бюджет вы готовы раскошелиться.

Можно excel+word, но я пас, возни куда больше и неизвестные потом последствия.
Выбор кодов из одного столбца таблицы, которым соответствуют более одного имени из второго столбца, сводной таблицей или SQL-запросом
 
Цитата
Андрей VG написал:
Что-то, коллега, вы мухлюете
Ни в коем случае, просто неверно понял задачу :)
Выбор кодов из одного столбца таблицы, которым соответствуют более одного имени из второго столбца, сводной таблицей или SQL-запросом
 
Цитата
Екатерина Штольц написал:
или SQL-запроса
Здравствуйте!
Как фактически выглядят столбцы в оригинале? Имена в первой строке, данные со второй и далее?
Если да, то такой вариант:
Извлечь данные из ячейки с html-кодом
 
На пробу
Код
    With CreateObject("Scripting.FileSystemObject").OpenTextFile("D:\test.html", 1, True)
        txt = .ReadAll: .Close
    End With
    txt = Replace(Replace(txt, Chr(10), ""), Chr(13), "")
    txt = Split(Split(txt, "Features:</strong>")(1), "/p>")(0)
    With CreateObject("VBScript.RegExp")
        .Global = True: .IgnoreCase = True: .Pattern = ">(.+?)<"
        If .test(txt) Then
            Set Matches = .Execute(txt)
            If Matches.Count > 0 Then
                For m = 0 To Matches.Count - 1
                    Cells(m + 1, 1) = Matches(m).SubMatches(0)
                Next
            End If
        End If
    End With
Из картинок, превратить в ссылки, для импорта на сайт
 
zombi12345, так в чем проблема? Вместо картинок ставите ссылки и кормите вашему сайту.
Поскольку в книге никаких ссылок не увидел, то помочь вам особо нечем.
Вычленить 11-значные номера телефонов
 
Вариант регулярками без удаления дублей. Результат во второй столбец.
Код
    Dim arr() As Variant
    Dim txt As String
    arr = Application.Transpose(Range("a1:a293"))
    txt = Join(arr)
    Erase arr
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(\d){11}"
        If .test(txt) Then
            Set Matches = .Execute(txt)
            If Matches.Count > 1 Then
                ReDim arr(Matches.Count - 1)
                For i = 0 To Matches.Count - 1
                    arr(i) = Matches(i)
                Next
                ActiveSheet.Range("B1").Resize(Matches.Count, 1) = Application.Transpose(arr)
            End If
        End If
    End With
Парсер объявлений о продаже недвижимости
 
Так вы решили вопрос или нет? :)
Если нет, то
Цитата
Dmiter написал:
Нужно организовать выборку по параметрам этих объявлений и их фильрацию. с выводом результатов в excel. Причем такие файлы должны быть у каждого пользователя (риэлтора) со своим с доступом, который в любой момент можно исключить.
Могу предложить свой вариант, не на excel. Почта в личке, welcome.
Как отсортировать два листа, как один? Сортировка 2 млн. строк.
 
А для одномерного массива подойдет ли данная функция объекта System.Collections.ArrayList?
Код
    Dim i As Long
    Dim t As Double
    'Dim sorted As Variant
    Randomize
    With CreateObject("System.Collections.ArrayList")
        For i = 0 To 1999999
          .Add Format$(Int(Rnd * 2000000), "0000000")
        Next
        t = Timer
        .Sort
        'sorted = .ToArray
        Debug.Print Timer - t
    End With
Скриншот карты по заданным координатам с сохранением по указанному пути
 
gena10111, здравствуйте!
Направил вам предложение в личку.

Заказчика не устроило мое решение. Не претендую
Изменено: Jungl - 1 Ноя 2018 21:04:33
Работа с сайтом через вба (парсер)
 
Kashi, небольшая аналогия примера - вы приезжаете в сервис на автомобиле Тесла, механик видит ее впервые.
Вы просите его устранить дефект или дать консультацию, не давая ему ключи от закрытого авто :)
Дело в том, что структура сайтов бывает разной и вам никто не скажет 100% результат без предварительного изучения.

Если Сергей не возьмется, напишите мне на почту(в профиле), попробуем повозиться, благо располагаю временем.
Получение внешних данных - поле подстановки в Access, Получение внешних данных из файла Access 2010
 
Или таким запросом?
Код
select 
   g.[Дата создания], 
   g.[Принято в работу], 
   g.[Выполнено], 
   g.[Описание задачи],
   (select [Сотрудник] from [users] u where u.[Код]=g.[Для кого]) as [Для кого], 
   (select [Сотрудник] from [users] u where u.[Код]=g.[Кто создал]) as [Кто создал]
from [general] g
Объект не найден ядром СУБД Access, Объект не найден ядром СУБД Access
 
Цитата
Leojse написал:
чтобы заголовок "Список 2" не попадал в "Общий список"
Если у вас в поле должны быть только числа, то можно отсечь таким образом:
Код
SELECT c.[col1] FROM (SELECT a.F1 AS col1 FROM [Список_1$] AS a UNION SELECT b.F1 AS col2 FROM [Список_2$] AS b) c WHERE IsNumeric(c.[col1]) = True
Нажатие клавиши и чекбокса в MS Edge посредством ВБА
 
Kashi, здравствуйте.

Сайт не покажете?
Возможно там достаточно будет переходить по ссылкам, парся ваши кнопки и чекбоксы.
Получение уникального кода для товара
 
OlegO, используйте простейшую функцию перевода строки в base64 формат.
С вашего же сообщения #25
И рандомить не нужно, и без циклов - уникальность будет зависеть от переданного текста в пользовательскую функцию
Код
Function EncodeBase64(text As String) As String
    Dim arr() As Byte
    arr = StrConv(text, vbFromUnicode)
    With CreateObject("MSXML2.DOMDocument").CreateElement("b64")
        .DataType = "bin.Base64"
        .nodeTypedValue = arr
        EncodeBase64 = .text
    End With
End Function
Можете превратить в hex, заменив "bin.Base64" на "bin.Hex"
Импорт в Excel данных из внешнего источника, Прошу помочь с настройкой импорта данных и изменения формата времени.
 
garysanders, здравствуйте.

Исходя из вашего описания, я понял следующее. На одном листе у вас появляются данные в режиме реального времени(функция ДРВ), а вы хотите при обновлении данные в этом листе, копировать в новую строчку в другой лист?
Умный Импорт данных с web в виде таблицы, ошибка импорта.
 
trusevskiy, добрый день!

К сожалению, вам вряд ли кто поможет, т.к.
Цитата
trusevskiy написал:
ie.navigate "адрес сайта" & a & "еще часть" & b & "последняя часть"
мало кому интересно.

Вся соль в том, что у каждого сайта может быть своя структура таблиц, тэгов и т.д.

Приведите то, что вы получаете в sAnswer(заменив патроны на огурцы), а там посмотрим.
Отделение артикула от наименования, Отделение артикула от наименования
 
nexx2a2, здравствуйте. написал вам в ЛС с вопросами
работа выполнена
Изменено: Jungl - 8 Окт 2018 18:57:45
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 23 След.
Наверх