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

Страницы: 1
Как построить график по данным в одной ячейке? Можно просто спарклайном.
 
#
05.05.2021 18:39:41
Александр Моторин, Спасибо буду разбираться.
А как там правильно указать столбец. в котором надо все эти яцеки  с первой по 1000 строку разбить?.... но тогда если провести сортировку по Столбцу наименование, остальные стрроки будут пустые ...

А нельзя как то это делать в неком виртуальной таблице, а в ячеке уж тогда спарклайн или график рисовать?  он из 1000 строк сдеает так более 100 000 строк... с пустыми остальными значениями.... ?
 
Перейти    
Как построить график по данным в одной ячейке? Можно просто спарклайном.
 
#
05.05.2021 03:52:42
В первом посте - пример содержания ячеек, в каждой строке.
Задача на основании этих данных в ячейке - построить спарклайн, либо график.
строк более 10 000

т.е. ячеёка по факту содержит набор данных для графика.
Вопрос, как эти данные взять и преобразовать либо в спарклайн, либо в график.

Нет ответа, вероятно ни кто такие задачи не решал... отсюда и тишина.... вероятно...
Изменено: Laa911 - 05.05.2021 03:53:23
 
Перейти    
Как построить график по данным в одной ячейке? Можно просто спарклайном.
 
#
24.04.2021 21:15:19
Как же их вытягивать?
Может макрос какой есть, которые позволяет эти спарки рисовать, преобразуя в какой нибудь вируальной области эти значения?....
или как их оцифровать правильно?
 
Перейти    
Как построить график по данным в одной ячейке? Можно просто спарклайном.
 
#
23.04.2021 20:19:55
Спасибо, т.е. спарки не смогут вытащить из ячейки числа и построить график? ;-( блин...

Т.е. надо искать чудо макрос, который
1. разобьет этот столбец на на 2 по ";"
2. Потом все эти ячейки разобьет на нужное количество клеток.
3. объденит нужное кол-во ячеек справа,
4. автоматом ,как то ппостроит спарки...

Блин.... ;-(((((  такого думаю ни у кого нет :-(
 
Перейти    
Как построить график по данным в одной ячейке? Можно просто спарклайном.
 
#
23.04.2021 03:01:48
Всем экспертам пламенный привет!

Вводные
В Строках данных, есть ячейки которые содержат изменение цен, и дату ее изменения.

что требуется
1. Найти минимальную цену
2. Найти максимальную цену
3. Построить график по этим данным
4. Построить спарклайн по этим данным.

вопрос, как это можно сделать, особенно если строк более 1000? Заранее спасибо!

Может кто то уже сталкивался с такими задачками? NeedHelp
Скрытый текст
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
18.06.2020 16:53:20
Вот подумал, а без клика на каждой страничке можно как то с ВЕБа запросить всю табличку разом?
Может какая то хитрая есть команда? что то типа ALL?
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
18.06.2020 02:01:32
Странно окошко IE открывается и все... выледает дебагер..

причем старнно, если странички прокликать, то открывается в броузере норм
А если из Екслея то 404 вылетает..

Может есть кто из программистов, кто может подшаманить ;-) Для бестолковеньких ;-)))
Изменено: Laa911 - 18.06.2020 02:04:15
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
18.06.2020 02:00:52
Код
Sub MyParser()
Set sp = ThisWorkbook.Sheets(1)
Set ww = CreateObject("InternetExplorer.Application")
ww.Visible = True
    For i = 2 To 4
        link = "http://&page=" & i ' Указываем ссылку на страчику
           
        ww.navigate link
        While ww.BUSY Or (ww.READYSTATE <> 4): DoEvents: Wend
        getHTML = ww.document.body.innerHTML
        dl = Len(getHTML)
        
           
            
            a = InStr(na, getHTML, "tr class=")
            If a > 0 Then
            LR = sp.Cells(Rows.Count, 1).End(x1Up).Row
       
            'Несколько манипуляций для вырезки необходимой информации
            
            rn = InStr(a, getHTML, "<td>")
            rk = InStr(rn, getHTML, "</td>")
            rrn = Mid(getHTML, rn + 4, rk - rn - 4)
            
            'Записываем результат в таблицу
            sp.Cells(LR + 1, 1) = rrn  ' реестровый номер адвоката
            
            'Несколько манипуляций для вырезки необходимой информации
            fn = InStr(rk, getHTML, "lawyers/show/")
            fn = InStr(fn, getHTML, ">")
            fk = InStr(fn, getHTML, "/a")
            ffn = Mid(getHTМL, fn + 1, fk - fn - 1)
            'Записываем результат в таблицу
            sp.Ce11s(LR + 1, 2) = ffn 'ФИО адвоката
     End If
  Next
End Sub
Изменено: Laa911 - 18.06.2020 02:01:47
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
18.06.2020 01:57:51
Цитата
Юрий М написал:
Не вижу закрытия проверки (End If) и не вижу Next

Добавил, но стало вылетать тут

 a = InStr(na, getHTML, "tr class=")  - Run Time Eror '5' invalid procedur or argumen
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
18.06.2020 01:52:57
Цитата
sokol92 написал:
MID
Да, скопимастил у вас заработало :-) чудеса
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
16.06.2020 23:35:20
Да, это кажется помгогло

Но вылетает, что то типа блокировка EndIF....
Похоже нужен мозг программиста :-) что бы понять ,что потеряли авторы в коде :-)  
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
16.06.2020 22:08:37
Перенабил буквицами :-)
И конечно не работает , те кто с руками посмотрите, где надо докрутить.
MiD пишет функция не предопределена
Код
Sub MyParser()
Set sp = ThisWorkbook.Sheets(1)
Set ww = CreateObject("InternetExplorer.Application")
ww.Visible = True
    For i = 2 To 4
        link = "http://&page=" & i ' Указываем ссылку на страчику
            
        ww.navigate link
        While ww.BUSY Or (ww.READYSTATE <> 4): DoEvents: Wend
        getHTML = ww.document.body.innerHTML
        dl = Len(getHTML)
         
            
             
            a = InStr(na, getHTML, "tr class=")
            If a > 0 Then
            LR = sp.Cells(Rows.Count, 1).End(x1Up).Row
        
            'Несколько манипуляций для вырезки необходимой информации
             
            rn = InStr(a, getHTML, "<td>")
            rk = InStr(rn, getHTML, "</td>")
            rrn = Mid(getHTML, rn + 4, rk - rn - 4)
             
            'Записываем результат в таблицу
            sp.Cells(LR + 1, 1) = rrn  ' реестровый номер адвоката
             
            'Несколько манипуляций для вырезки необходимой информации
            fn = InStr(rk, getHTML, "lawyers/show/")
            fn = InStr(fn, getHTML, ">")
            fk = InStr(fn, getHTML, "/a")
            ffn = Mid(getHTМL, fn + 1, fk - fn - 1)
            'Записываем результат в таблицу
            sp.Ce11s(LR + 1, 2) = ffn 'ФИО адвоката
     End If
  Next
End Sub
Изменено: Laa911 - 18.06.2020 12:12:13
 
Перейти    
[ Закрыто] Собрать таблицы из 100500 страниц в одну книгу Excel
 
#
16.06.2020 21:28:06
Всем, привет.
Есть сайт с таблицей, и 100400 страницами. Хочется его не спеша, "слить"  в один Excel.

Нашел, простенький скриптик тут
https://vc.ru/newtechaudit/118651-parsing-sayta-s-pomoshchyu-excel
но его расместили в виде картинок... Может у кого то есть уже готовый такой, или аналогичный скриптик?....
Цель, собрать таблицы из 100500 страниц в одинe эксель табицу.

Заранее спасибо за помощь!
 
Перейти    
Выгрузка писем из OutLook в Excel
 
#
02.04.2019 17:38:22
Поправил, но лучше бы подсказил/кодпочинили Ж-)
 
Перейти    
Выгрузка писем из OutLook в Excel
 
#
02.04.2019 17:28:42
Попробывал ту запустить не запускается

ругается на какую то внешнюю процедуру Ж-( вобщем сложно не программистру разобраться что и как менять ж-(
 
Перейти    
Выгрузка писем из OutLook в Excel
 
#
02.04.2019 17:20:05
Да, и там тоже подсмотрел  но ответили по существу там ;-)
Решил тут тоже попросить помощи, спасибо за напоминанние, надо там тоже продублировать вопрос
 
Перейти    
Выгрузка писем из OutLook в Excel
 
#
02.04.2019 15:08:45
Как правильно заменить закоммиченные строки, что бы скрипт подхватил емейлы из этих полей?
Код
Private Sub Test()
    Dim objOutlook As Object, objNamespace As Object, iRow&, iCount&
    iRow = Cells(Rows.Count, "A").End(xlUp).Row
    iCount = Application.Max(Range("A:A"))
    Set objOutlook = CreateObject("Outlook.Application")
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    
    Application.ScreenUpdating = False
    CreateArchive objNamespace.GetDefaultFolder(6), iRow, iCount '6=olFolderInbox
    CreateArchive objNamespace.GetDefaultFolder(5), iRow, iCount '5=olFolderSentMail
    objOutlook.Quit
    Application.ScreenUpdating = True
End Sub

Private Sub CreateArchive(objFolder As Object, iRow&, iCount&)
    'On Error Resume Next
    Dim objMail As Object, IdMail$
    For Each objMail In objFolder.Items
        IdMail = objMail.EntryID
        If Application.CountIf(Range("I:I"), IdMail) = 0 Then
           iRow = iRow + 1: iCount = iCount + 1
           Cells(iRow, "A") = iCount
           Cells(iRow, "B") = objMail.SenderName  '(тут выпадает почему то по ошибке в конце работы)
           Cells(iRow, "C") = objMail.SenderEmailAddress
           Cells(iRow, "D") = objFolder.Name
           Cells(iRow, "E") = objMail.CreationTime
           Cells(iRow, "F") = objMail.Subject
           Cells(iRow, "G") = "'" & IdMail 'IdMail
           'Cells(iRow, "E") = objMail.To
           'Cells(iRow, "F") = objMail.CC
           'Cells(iRow, "I") = Left(objMail.Body, 1067) 'Если тут поставить максимальное значение падает по переполнению памяти... по идее просто выводит текс заданной длины в ячейку
          
           
        End If
    Next
End Sub
Подсмотрено тут
http://www.cyberforum.ru/vba/thread1633274.html
Изменено: Laa911 - 02.04.2019 17:37:56
 
Перейти    
Как выгрузить электронные адреса получателей из Outlook в Excel
 
#
02.04.2019 15:05:31
А как выбирать контакты из папки отправленные, и как из полей СС и ТО если там больше чем один получатель?
 
Перейти    
Страницы: 1
Наверх