Power Query. Веб-запросы. История котировок Yahoo Finance

---

Описание

Вы хотите получить историю котировок акций MCD с 2000 года по текущий день с сайта Yahoo Finance. Вы копируете ссылку на раздел с историческими данными, вставляете ссылку в Power Query и получаете только 100 строк.

Решение

Для решения мы воспользуемся следующим функционалом:

• DateTimeZone.LocalNow
• Number.From
• Date.From
• Table.FromList
• List.Numbers
• Text.From

Сначала мы создадим последовательность интервалов дат. После этого для каждого интервала обратимся к url и получим нужную таблицу.

Примененные функции

• Table.FromList
• List.Numbers
• Number.From
• Date.From
• DateTimeZone.LocalNow
• Splitter.SplitByNothing
• Table.AddColumn
• Web.Page
• Web.Contents
• Text.From
• Table.RemoveRowsWithErrors
• Table.SelectColumns
• Table.ExpandTableColumn
• Text.Contains
• Table.SelectRows
• Table.RenameColumns
• Table.TransformColumns
• Text.BeforeDelimiter
• Table.Sort
• Order.Ascending

Код

let
   list_utcdates = Table.FromList(
      List.Numbers(
         (
            Number.From(Date.From(DateTimeZone.LocalNow()))
               - Number.From(Date.From("01/01/1970"))
         )
            * 86400, 
         48, 
         - 86400 * 120
      ), 
      Splitter.SplitByNothing(), 
      {"Дата начала"}
   ), 
   tab_add_col_1 = Table.Buffer(
      Table.AddColumn(
         list_utcdates, 
         "Дата конца", 
         each [Дата начала] + 86400 * 119
      )
   ), 
   tab_add_col_2 = Table.AddColumn(
      tab_add_col_1, 
      "Пользовательская", 
      each Web.Page(
         Web.Contents(
            "http://finance.yahoo.com/quote/MCD/history?period1="
               & Text.From([Дата начала])
               & "&period2="
               & Text.From([Дата конца])
               & "&interval=1d&filter=history&frequency=1d"
         )
      ){[ClassName = "W(100%) M(0)"]}[Data]
   ), 
   tab_remove_errs = Table.RemoveRowsWithErrors(
      tab_add_col_2, 
      {"Пользовательская"}
   ), 
   col_select = Table.SelectColumns(tab_remove_errs, {"Пользовательская"}), 
   col_expand = Table.ExpandTableColumn(
      col_select, 
      "Пользовательская", 
      {"Date", "Open", "High", "Low", "Close*", "Adj Close**", "Volume"}, 
      {"Date", "Open", "High", "Low", "Close*", "Adj Close**", "Volume"}
   )
in
   col_expand