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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 63 След.
Разложить xml с помощью VBA
 
Все можно, если доки почитать.
Код
   Set objNode = xmlDoc.SelectSingleNode("//place")
   lat = objNode.Attributes.getNamedItem("lat").Text
   lon = objNode.Attributes.getNamedItem("lon").Text
Парсер для Сервис по тотализатору, Парсер для тото марафон
 
В работе
Парсер для Сервис по тотализатору, Парсер для тото марафон
 
Цитата
DJMC написал:
АП тему
Бюджет пересмотрели?
Вставка фигуры на лист по координатам (плоскость), Для медведя новая тема для «отдувки»
 
Так можно
Код
    Set sp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 20, 60, 10, 10)
    sp.Name = "№3"

    Set sp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 40, 80, 12, 12)
    sp.Name = "№7"
Не удаётся подтвердить подлинность веб-сайта
 
Попробуйте отключить проверку сертификата в IE
XSLX "Ошибка в части содержимого в книге.. Восстановить?"
 
Цитата
Alex Sharkov написал:
Excel посчитал что файл кривой
Здравствуйте.
И он прав.Архиватор не может открыть архив, действительно создан криво.
Как спарсить title у сайта с помощью VBA?
 
Приветствую Игорь.
Не может быть.
Вот часть страницы
<link href="/manifest?pwa=webhp" crossorigin="use-credentials" rel="manifest"><title>Google</title><script  
Как перенести таблицу Excel в Web для защиты информации (Frondend + Backend) - onedrive.live.com?
 
Цитата
seggi написал:
Простой вариант - находим программиста, он на PHP/Python
И файл в формате csv хранить.И обновить просто и быстро прочитать и отправить ответ по запросу
VBA не запускает сайт, макрос
 
Без файла и полного кода макросов говорить не о чем.
Импорт цены через XPATH запрос к XML, правильно составить запрос, чтобы вытащить нужные данные.
 
Привет Андрей.
Я лишь направление указал для ТС, где инфу можно добыть.
Думаю, пару функций на js помогут решить задачу
На основе данных с сайта построить график с частотой обновления раз в сутки.
 
И только много желаний, а своего ничего нет в сторону решения вопроса?
Импорт цены через XPATH запрос к XML, правильно составить запрос, чтобы вытащить нужные данные.
 
Надо нажать Ctr+U и там код смотреть, а нужной инфы нет, она скриптами формируется.
Например типа таких ссылок https://www.mxc.com/api/platform/spot/market/symbol?symbol=MX_USDT
Ошибка при импорте файла из Google-таблицы в Excel
 
Ничего удивительного нет.Не все формулы совместимы.
Необычный расчет процента от числа
 
1/0,95=1,052631579
Лень формулы расписывать
Порядок расчета такой 0,052631579 1,052631579  105,2631579 - 5%(5,263157895)=100
Вот они , красненькие
Изменено: doober - 09.04.2021 21:27:09
Необычный расчет процента от числа
 
Цитата
mechanix 85 написал:
Что мы высчитываем вторым методом?
Ничего не напоминает?
Расчет исходной суммы , с которой берем 5% и в остатке  получаем 100
Значит цену ставить надо  105,26 ,отдаем бонус и на карман имеем те же 100
Пока писал, куча ответов появилась :)  
Изменено: doober - 09.04.2021 21:07:50
Данные из браузера перенести в ячейку
 
Так?
Код
Sub Test()

    Dim Shell As Object
    Dim WinItem As Variant, Ie As Object

    Const SiteURL As String = "http://metallicheckiy-portal.ru/calculator/calculator_metalla"

    Set Shell = CreateObject("shell.application")

    For Each WinItem In Shell.Windows
        If WinItem.LocationURL = SiteURL Then
            Set Ie = WinItem
        End If
    Next
    If Ie Is Nothing Then Exit Sub
    For Each opt In Ie.document.getelementbyID("pmet").Options
        If opt.Selected = True Then
            Cells(1, 1) = opt.Text
        End If
    Next

    For Each opt In Ie.document.getelementbyID("marka").Options
        If opt.Selected = True Then
            Cells(1, 2) = opt.Text
        End If
    Next
    Set tbl = Ie.document.getelementsbytagname("table")
    For Each tb In tbl
        If LCase(tb.bgColor) = "#ffa200" Then
            Cells(1, 3) = tb.Cells(0).innertext
        End If
        If InStr(1, tb.innertext, "Вес:", vbTextCompare) > 0 And tb.Width = 408 Then

            For Each cel In tb.Cells
                If InStr(1, cel.innertext, "Вес:", vbTextCompare) > 0 Then
                    ves = Val(Trim(Replace(cel.innertext, "Вес:", "")))
                    Cells(1, 4) = ves
                End If
            Next
        End If
    Next
End Sub
Изменено: doober - 05.04.2021 23:47:42
Данные из браузера перенести в ячейку
 
Через поиск лучше.
Код
  Sub Test()

  Dim Shell As Object
   Dim WinItem As Variant, Ie  As Object
   
   Const SiteURL As String = "http://metallicheckiy-portal.ru/calculator/calculator_metalla"
   
   Set Shell = CreateObject("shell.application")
   
   For Each WinItem In Shell.Windows
      If WinItem.LocationURL = SiteURL Then
      Set Ie = WinItem
      End If
   Next
   If Ie Is Nothing Then Exit Sub
  Cells(1, 1) = Ie.document.getelementbyID("pmet").Value
  End Sub
Как средствами vba нажать кнопку на сайте
 
Цитата
Евгений Новиков написал:
Excel 2010, у него объектная часть оказалась чуствительна к регистру
У себя не замечал такого на 2010
Данные из браузера перенести в ячейку
 
Цитата
IFRSoff написал:
Можно ли сделать так
1.Можно.
2.Решение есть, но не по картинке в файле, а  как минимум, по нормальной ссылке
Можно ли получить результат вычисления формулы в VBA без использования Имен и ячейки листа
 
Вангую.
Код
Function COUNT_IF()
Count = 1
    With ActiveSheet
        dx = .Range("a1").Resize(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)
    End With
    With CreateObject("scripting.dictionary")
    For n = 1 To UBound(dx)
        If .Exists(dx(n, 1)) Then
            .Item(dx(n, 1)) = .Item(dx(n, 1)) + 1
           Count = IIf(Count > .Item(dx(n, 1)), Count, .Item(dx(n, 1)))
        Else
            .Item(dx(n, 1)) = 1
        End If
    Next
     End With
COUNT_IF = Count
End Function
Парсинг сайта. Для анализа по статистике футбола нужны данные с сайта
 
Здравствуйте.
Данные здесь в коде страницы
<div class="data-tab data_h2h data_h2h_last20" style="display: block;"
<div class="data-tab data_h2h data_h2h_last10"  style="display: none;"
<div class="data-tab data_h2h data_h2h_last5" style="display: none;"
, видимость переключается скриптом
Макрос для парсинга цен по списку ссылок
 
Здравствуйте.
Могу ответить  на вопрос  
Цитата
Хотелось бы получить обратную связь по стоимости данной работы.
приблизительно.
На отдельный сайт-отдельный парсер сайта.
1 парсер минимум 1к руб, зависит от сложности парсинга, не считая всего остального.
Не претендую.
Загрузка файла с web при помощи UIAutomation VBA, введение задержки для отрисовки окна "Сохранить"
 
Цитата
Иван Поно написал:
В ResponseBody грузится какой-то HTML код))
Здравствуйте.
Скорее всего это и есть файл, только в base64.
Картинку могут так передавать data:image/png;base64,iVBORw0KGgoAAAANSUhEU много символов F3jv
Надо конвертировать в байты и писать в файл их.
UIAutomation не пользовался, ничего не могу подсказать.
Если ответ приложите, можно попробовать с ним разобраться
Изменено: doober - 18.03.2021 00:12:35
Помощь в google таблице
 
Давайте посмотрим.
Написал в личку
конвертировать большие файлы *.xlsx в базу MS Access 2010, + добавить простую форму запроса
 
Цитата
likbez написал:
а в Cronos?
Вот что пишут умные люди.
Создать в кроносе банк соответствующего типа (Excel)
В меню проектирования банка подключить файл. Получится банк только чтение.
Создать банк родного формата. Структуру передрать из внешнего.
В обоих банках создать одинаковые таблицы обмена.
Выбрать все данные во временном банке
Нажать кнопку Обмен данными, выбрать целевой банк и таблицы обмена.
Подождать, пока данные перельются.
Проиндексировать данные в родном банке.
Грохнуть временный банк.
Пакетное чтение выписок из Росреестра, Пакетное чтение выписок из Росреестра
 
marat1991 , это случайно не ваша тема?
Уж очень по смыслу схожа.
Проблема с парсингом сайта (файла) в гугл таблице
 
Так, как количество столбцов разное, то вывод идет построчно
Код
function myFunction() {
  var url='http://dmgamestudio.com/files/omega/items.list';
  var option = {
    'method' : 'get',
    muteHttpExceptions: true
    ,escaping: false
    ,'Accept':'text/html,application/xhtml+xml,application/xml;'
    ,'Upgrade-Insecure-Requests': '1'
    ,"user-agent":"Mozilla/5.0 (Windows NT 6.1 WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Dragon/45.8.12.389 Chrome/45.0.2454.93 Safari/537.36"
    
  };
    var sh = SpreadsheetApp.getActive().getSheets()[0];
  var response = UrlFetchApp.fetch(url,option );
  var json= response.getContentText("UTF-8"); 
  var x=json.split(/\n/);
  for (var i = 0; i < x.length; i++) {
    var z=x[i].split(/\t/);
    sh.getRange(2+i,1,1,z.length).setValues([z])  
 
  } 
};
Изменено: doober - 08.03.2021 23:42:31
Excel не грузит xlsx-файл из интернета. И сам вылетает. Причина ?
 
Цитата
Сергей Евдокимов написал:
Именно из экселя  у вас открывает. Верно ?
У меня да
Отображение GIF в UserForm вместо ProgressBar
 
Смысла не понимаю.5 секунд будете наблюдать свой любимый gif
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:J2")) Is Nothing Then
    UserForm1.Show 0
    UserForm1.Repaint
     Starts = Timer
    Do While Timer < Starts + 5
        DoEvents
    Loop
        On Error Resume Next
        ActiveSheet.ShowAllData
        Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1:J2")
    End If
    Unload UserForm1
End Sub
VBA. Если пользователя нет в списке на сайте -закрыть документ Excel.
 
Цитата
Dyroff написал:
doober , Как??
Я же говорю, волшебник в ячейке сидит-найти можно его в подключениях данных
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 63 След.
Наверх