Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Power Query извлечь данные СSS HTML
 
чего-то я совсем про эту тему позабыл ...
собственно, те самые пляски с бубномjQuery, во вложении 2 reg файла для внесения необходимых для работы запроса изменений в реестр, и батник для снятия бэкапа перед изменением реестра. Если пользователь обладает правами администратора то должно быть достаточно импорта файла HKCU IE11.reg , иначе придется импортировать файл HKLM IE11.reg из-под администратора
Код
// Запрос1
let
    url    = "https://meteoinfo.ru/forecasts/russia/vologda-area/vologda",
    Source =  Web.Page("<script>
                  try {
                      d = document;
                      let w = window.open('', '_blank'),
                          wnd = new ActiveXObject('Shell.Application').windows(),
                          ie = wnd.Item(wnd.count - 1);
                      ie.navigate('"&url&"');
                      while (ie.LocationURL !== '"&url&"' ? true : ie.Document.readyState !== 'complete') {}
                      let $ = ie.Document.parentWindow.jQuery.noConflict();
                      $('.fc_short_img').replaceWith(function() {
                          return this.title
                      });
                      $('.fc_small_gorizont_ww span').replaceWith(function() {
                          return this.title + this.innerText
                      });
                      d.write($('.fc_tab_1')[0].outerHTML);
                      ie.Application.Quit();
                  } catch (e) {
                      d.write('<table><tr><th>error<tr><td>' + e.message)
                  }
                  delete d;
              </script>"){0}[Data],
    Custom1 = Table.ReplaceValue(Source,{"День","Ночь"},"Характер погоды",(a,b,c)=>if List.Contains(b,a) then c else a,{"Column1"}),
    Custom2 = Table.FromColumns({{"Время суток"}&List.Combine(List.Transform({"День","Ночь"},each List.Repeat({_},5)))}&Table.ToColumns(Custom1)),
    Custom3 = Table.PromoteHeaders(Custom2, [PromoteAllScalars=true]),
    Custom4 = Table.RenameColumns(Custom3,{{"", "Показатель"}}),
    Custom5 = Table.UnpivotOtherColumns(Custom4, {"Время суток", "Показатель"}, "Дата", "Значение"),
    Custom6 = Table.TransformColumns(Custom5,{{"Дата", each Date.FromText(Text.AfterDelimiter(_,"#(cr,lf)")), type date}})
in
    Custom6
Power Query извлечь данные СSS HTML
 
Цитата
Андрей VG написал:
Привет, тёзка.А что мешает использовать jQuery в Power Query?
Добрый день, ну я это и имел ввиду, утром мозг еще спит, не совсем корректно мыслю выразил
Power Query извлечь данные СSS HTML
 
Если очень надо, то можно преобразовать эти элементы в необходимый текст с помощью jQuery до передачи в Power Query. Единственное, могут потребоваться права администратора для внесения изменений в реестр.
Selenium работа с Chrome
 
У меня с этой версией нормально дружит драйвер 88.0.4324.96. Вы в какую папку драйвер кладете?
как вариант, можно использовать .Net сборку,  но часть методов при данном подходе может быть недоступна
Как сделать нормальную таблицу из XML
 
Добрый день
Excel. Импорт данных XML
Power Query XML Connector
Ищу рабочую socket библиотеку 64 бит
Печать jpg файлов из Excel
 
еще вариант, копируем во временную папку, печатаем все файлы пачкой
Код
Sub PrintFiles()

    Dim sPath As Variant
    Dim sh As Object 'new Shell32.Shell

    Set sh = CreateObject("shell.application")
    
    With sh.Namespace("shell:Local AppData\Temp")
        .NewFolder "jpg"
        With .ParseName("jpg\").GetFolder
            sh.Namespace("shell:RecycleBinFolder").MoveHere .Items(), &H14
            For Each sPath In ActiveSheet.UsedRange.Columns("A").Value
                .CopyHere sh.Namespace(0).ParseName(sPath), &H14
            Next
            .Items().InvokeVerbEx "print"
        End With
    End With
    
End Sub
Изменено: Андрей Лящук - 15.09.2020 10:32:22
Как разбить текст на строки внутри ячейки с помощью Power Query, Добрый день! Сцепить текст из нескольких полей - получается. Но нужно, чтобы текст записался в ячейку в несколько строк
 
и так тоже должно  
Код
Table.AddColumn(table, "column", each Text.Format("#[Предмет]. #(lf)дог. №#[№ дог] от #[ДатаДог]",_))
Как разбить текст на строки внутри ячейки с помощью Power Query, Добрый день! Сцепить текст из нескольких полей - получается. Но нужно, чтобы текст записался в ячейку в несколько строк
 
Код
[Предмет] & ". #(lf)дог. №" & [#"№ дог"] & " от " & Text.From([ДатаДог])
Печать jpg файлов из Excel
 
Цитата
БМВ написал:
mspaint /p
ну так же не интересно :) вот тут намного интереснее :D
PQ Вывести сообщение об отправке данных после вызова процедуры
 
а еще можно так, только если осторожно
Использование столбца таблицы в качестве массива для ИНДЕКС
 
Здравствуйте
Код
=ИНДЕКС([Остаток];СТРОКА()-1-СТРОКА([#Заголовки]))+(-1)^([@[Приход/Расход]]="Расход")*[@Сумма]
На сайте отправить адрес в поле поиска
 
Цитата
Григорий Тимофеев написал:
Возможно ли ориентацию карты сделать по инвентарному номеру?
с этим вопроом вам надо обращаться к разработчикам карты
На сайте отправить адрес в поле поиска
 
Доброго времени суток
для IE
Код
Sub Go_To_Site()
    Dim fn$
    Const BaseUrl$ = "http://map.mossvet.ru:51/"
    With CreateObject("internetexplorer.application")
        .navigate ""
        .document.parentWindow.execScript "document.write(encodeURI('" & [A1] & "'))", "JavaScript"
        GotoUrl .Application, BaseUrl & "AddressDetail.php?Address=" & .document.body.innertext
        fn = "(" & .document.body.querySelector("tr").onclick & ")(0)"
        GotoUrl .Application, BaseUrl
        .document.parentWindow.execScript fn, "JavaScript"
        .Visible = 1
    End With
End Sub
Sub GotoUrl(ByRef ie As Object, url$, Optional timeout% = 5)
    Dim t!
    ie.navigate url
    t = Timer
    Do
        DoEvents
        If Timer - t >= timeout Then
            MsgBox "Timeout!", 16
            Stop
        End If
    Loop Until ie.ReadyState = 4
End Sub
Изменено: Андрей Лящук - 03.09.2020 03:03:35
Долго форматируется таблица через VBA
 
Ну и не помешает проинспектировать список стилей. Избыточное количество стилей может в некоторой мере замедлять работу с файлом Удаление неиспользуемых стилей
Навести мышку на картинку в нужное место и считать RGB одного пикселя.
 
Какое отношение
Цитата
Sla_0412 написал:
узнать по наименованию картинки код артикула. И в потом в таблице найти этот код и вписать параметры RGB в соответствующие столбцы.
имеет к названию темы
Цитата
Sla_0412 написал:
Навести мышку на картинку в нужное место и считать RGB одного пикселя.
?
Расчет уникальных просмотров и уникальных посетителей сайта
 
Код
=--(СЧЁТЕСЛИМН(A$2:A2;A2;C$2:C2;C2;D$2:D2;D2)*СЧЁТЕСЛИМН(A$2:A2;A2;B$2:B2;B2;C$2:C2;C2)=1)
Код
=--(СЧЁТЕСЛИМН(A$2:A2;A2;C$2:C2;C2)=1)


или
Код
=--(СЧЁТЕСЛИМН(A2:A$18;A2;C2:C$18;C2;D2:D$18;D2)*СЧЁТЕСЛИМН(A2:A$18;A2;B2:B$18;B2;C2:C$18;C2)=1)
Код
=--(СЧЁТЕСЛИМН(A2:A$18;A2;C2:C$18;C2)=1)
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Выделить текст -> вставка -> ссылки -> закладка -> написать имя -> добавить
Перенести таблицы из Excel в Word, При использовании макроса в excel, в ворд переносится таблица с неправильным форматированием
 
Здравствуйте
Код
        Dim v as Variant
        For Each v In Array( _
                                Array("C3:E8", "chart1"), _
                                Array("G3:L26", "chart2"), _
                                Array("N3:S9", "chart3") _
                            )
            pSheet.Range(v(0)).Copy
            With objWrdDoc.Bookmarks(v(1)).Range
                .PasteAndFormat 16
                objWrdApp.DoEvents
                .tables(1).AutoFitBehavior 2
            End With
        Next
Изменено: Андрей Лящук - 10.08.2020 23:34:00
Отсортировать месяца сезона продаж без разрыва и представить в виде первый-последний
 
вариант в Power Qery
Код
let
    Source    = Excel.CurrentWorkbook(){[Name="Таблица1_2"]}[Content],
    NewPeriod = Table.AddColumn(Source, "Пользовательская", each let 
                    period = List.Buffer(Text.Split([period],", ")),
                    num    = List.Buffer(List.Transform(period,each Date.Month(Date.From(_&"1")))),
                    sorted = List.Sort(
                                 List.Generate(
                                     ()=> [i=0,m=num{i}?,y=1],
                                     each [m]<>null,
                                     each [i=[i]+1,m=num{i}?,y=[y]-(if m>[m]+1 then 1 else 0)], 
                                     each period{[i]} meta [d=#date([y],[m],1)]
                                 ),
                                 each Value.Metadata(_)[d]
                             ),
                    result  = Text.Combine(List.RemoveRange(sorted,1,List.Count(num)-2),"-")
                in result)
in
    NewPeriod
Внедрение таблицы Excel в документ word
 
копируем файл книги в буфер обмена, вставляем в Word в виде значка (Ctrl+Alt+V, вставить, галочка "в виде значка", ОК), двойным кликом по значку открываем вставленный файл, копируем необходимый диапазон, и, не закрывая внедренный excel файл, вставляем связь в word Ctrl+Alt+V, связать, ОК, Закрываем внедренный excel файл. Значок можно скрыть, выделив его и установив соответсвующий стиль шрифта
Изменено: Андрей Лящук - 09.08.2020 19:49:48
PQ. Поиск строки заголовков по вх. параметру.
 
Цитата
Андрей VG написал:
а так не проще
ну да, дергать туда-сюда всю таблицу, чтобы отсеять ненужные столбцы - не лучшая идея.
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],    
    fn     = (tbl,col1,col2)=> let 
                 SkipRows   = Table.Skip(tbl,each not List.Contains(Record.ToList(_),"Найди меня")),
                 Promoted   = Table.PromoteHeaders(SkipRows, [PromoteAllScalars=true]),
                 ColNames   = Table.ColumnNames(Promoted),
                 NeededCols = List.RemoveLastN(List.Skip(ColNames,each _<>col1),each _<>col2)
             in Table.SelectColumns(Promoted,NeededCols),
    Result  = fn(Source,"Найди меня","Добавь меня")
in
    Result
PQ. Поиск строки заголовков по вх. параметру.
 
Доброго времени суток
я как-то так понял
Код
let
    Source   = Excel.CurrentWorkbook(){[Name="Лист1"]}[Content],    
    fn       = (tbl,col1,col2)=> let 
                   SkipRows   = Table.Skip(tbl,each not List.Contains(Record.ToList(_),col1)),
                   SkipCols   = List.Skip(Table.ToColumns(SkipRows),each _{0}<>col1),
                   RemoveCols = List.RemoveLastN(SkipCols,each _{0}<>col2)
               in Table.FromColumns(RemoveCols),
    Promoted = Table.PromoteHeaders(fn(Source,"Найди меня","Добавь меня"), [PromoteAllScalars=true])
in
    Promoted
Как с помощью макроса можно сместить ячейки и выстроить зеркальную структуру.
 
Добрый день

Код
Sub Макрос1()
    Range("A1:H8").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
End Sub
Сортировка значений в строку после проверки на повторение ключа в столбце
 
Здравствуйте
Power Query

PoverPivot

VBA
Изменено: Андрей Лящук - 03.08.2020 17:19:52
PQ: Вырезать ссылку из текстового поля
 
немного изврата
в google sheets скрипт (слепил на коленке), опубликовал как веб приложение
Код
function doPost(e){
  var re=/(([^<>()\[\]\\.,;:\s@""]+(\.[^<>()\[\]\\.,;:\s@""]+)*)|("".+""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))/gi; 
  return ContentService.createTextOutput(
    JSON.stringify(
      JSON.parse(e.postData.contents).map(
        function(a){
          try{
            a.a=a.MyText.match(re).join(', ')
          }catch(e){
            a.a=null
          }
          return a
        }
      )
    )
  )
  .setMimeType(ContentService.MimeType.JSON);
}

в Power Query
Код
Table.FromRecords(
    Json.Document(
        Web.Contents(
            "https://script.google.com/macros/s/AKfycbwj8B-iRsCdVafdNiWlfq5lPRpRJCRZK7k9V3bDFdMJBPw3YC3G/exec", 
            [
                Headers = [
                              Accept="application/json", 
                              #"Content-Type"="application/json"
                          ], 
                Content = Json.FromValue(
                              Excel.CurrentWorkbook(){[Name = "Таблица1"]}[Content]
                          )
            ]
        )
    )
)
PQ: Вырезать ссылку из текстового поля
 
ну в принципе, должно быть достаточно раздела
Код
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\MAIN\FeatureControl\FEATURE_BROWSER_EMULATION
если мне память не изменяет, то дать права на изменение разделов или отдельных ключей реестра можно через gpedit, правда он не во всех редакциях Windows есть, но его можно установить через dism
PQ: Вырезать ссылку из текстового поля
 
Андрей VG, задал режим совместимости IE=11 с помощью ключа реестра FEATURE_BROWSER_EMULATION
Изменено: Андрей Лящук - 26.07.2020 06:10:51
PQ: Вырезать ссылку из текстового поля
 
Цитата
Андрей VG написал:
Сейчас тёзка подтянется, как мне лещей накидает
Это хто такой? Oo ниче не знаю...  :)  
Код
Table.FromRecords(
    Json.Document(
        Web.Page(
            "<script>
                var re=/(([^<>()\[\]\\.,;:\s@""]+(\.[^<>()\[\]\\.,;:\s@""]+)*)|("".+""))@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}])|(([a-zA-Z\-0-9]+\.)+[a-zA-Z]{2,}))/ig; 
                var json="& 
                    Text.FromBinary(
                        Json.FromValue(Excel.CurrentWorkbook(){[Name = "Таблица1"]}[Content])
                    )&
                ";
                document.write('\
                <table><tr><th>a\
                       <tr><td>'+
                           JSON.stringify(
                               json.map(
                                   function(a){
                                       try{
                                           a.a=a.MyText.match(re).join(', ')
                                       }catch(e){
                                           a.a=null
                                       }
                                       return a
                                   }
                               )
                           )+
                '</table>')
            </script>"
        ){0}[Data]{0}[a]
    )
)
Выгрузка списка организаций с сайта Минпромторга
 
Ezoptron, а чего сложного-то?  
Power Query
Изменено: Андрей Лящук - 24.07.2020 23:05:04
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 19 След.
Наверх