WedX - журнал о программировании и компьютерных науках

Чтение значения из ячейки и выравнивание кода

Последние пару дней я пытался получить данные API из веб-службы. Я не могу сделать это более эффективно, и по моему запросу мне тоже не помогают. После долгих попыток мне каким-то образом удалось получить его из Excel Power Query (версия 2016), записав макрос. Однако у меня есть два вопроса, и мне нужна помощь.

  1. Я сохранил уникальный идентификатор в диапазоне D1 (1152843) и ключ API в диапазоне D2 (rrWedCKeclf1GqiY0pCBy05mdd). Я записал макрос и хочу указать значение ячейки в коде, чтобы при изменении уникального идентификатора или ключа api мне не приходилось изменять его в коде. Я пробовал range(d1).value, но синтаксис такой длинный, с таким количеством кавычек, что я запутался. Пожалуйста, помогите мне отредактировать эту строку.

  2. Записанный макрос очень большой с некоторыми ненужными вещами, которые необходимо удалить, а также он очень длинный, когда мне нужно прокручивать по горизонтали, чтобы прочитать всю строку. Новичку вроде меня становится сложно понять эту раскладку. Пожалуйста, помогите мне выровнять код, чтобы он был в удобочитаемом формате.

PS: Пожалуйста, запустите код, посмотрите результат и предложите, есть ли лучший способ сделать это, чтобы получить тот же результат. Буду признателен, если я могу получить несколько предложений.

Спасибо

Public apiKey As String
Public matchID As String
Sub Macro5()

    Range("$A$4").Select

    ActiveWorkbook.Queries.Add Name:="Teams", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Source = Json.Document(Web.Contents(""https://cricapi.com/api/fantasySummary?apikey=" & "rrWedCKeclf1GqiY0pCBy05mdd" & "&unique_id=" & "1152843""))," & Chr(13) & "" & Chr(10) & "    data = Source[data]," & Chr(13) & "" & Chr(10) & "    team = data[team]," & Chr(13) & "" & Chr(10) & "    #""Converted to Table"" = Table.FromList(team, Splitter.SplitByNothing(), null, null, ExtraValues.Ignore)," & Chr(13) & "" & Chr(10) & "    #""Renamed Columns"" = Table.RenameColumns(#""Converted " & _
        "to Table"",{{""Column1"", ""Teams""}})," & Chr(13) & "" & Chr(10) & "    #""Expanded Teams"" = Table.ExpandRecordColumn(#""Renamed Columns"", ""Teams"", {""players"", ""name""}, {""Teams.players"", ""Teams.name""})," & Chr(13) & "" & Chr(10) & "    #""Expanded Teams.players"" = Table.ExpandListColumn(#""Expanded Teams"", ""Teams.players"")," & Chr(13) & "" & Chr(10) & "    #""Expanded Teams.players1"" = Table.ExpandRecordColumn(#""Expanded Teams.pl" & _
        "ayers"", ""Teams.players"", {""name"", ""pid""}, {""Teams.players.name"", ""Teams.players.pid""})," & Chr(13) & "" & Chr(10) & "    #""Reordered Columns"" = Table.ReorderColumns(#""Expanded Teams.players1"",{""Teams.name"", ""Teams.players.pid"", ""Teams.players.name""})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    #""Reordered Columns"""

        With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Teams;Extended Properties=""""" _
        , Destination:=Range("$A$4")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Teams]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Teams"
        .Refresh BackgroundQuery:=False
    End With

    Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False
    ActiveSheet.ListObjects("Teams").TableStyle = ""

    Range("$A$4").Select

End Sub

  • Если все, что вам нужно, это использовать значения ячеек в качестве параметров в вашем запросе, нет необходимости в VBA. Ознакомьтесь с моим ответом на этот вопрос. 05.06.2019

Новые материалы

Как создать диаграмму градиентной кисти с помощью D3.js
Резюме: Из этого туториала Вы узнаете, как добавить градиентную кисть к диаграмме с областями в D3.js. Мы добавим градиент к значениям SVG и применим градиент в качестве заливки к диаграмме с..

Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что это выглядит сложно…
Просто начните и учитесь самостоятельно Я хотел выучить язык программирования MVC4, но не мог выучить его раньше, потому что он кажется мне сложным, и я бросил его. Это в основном инструмент..

Лицензии с открытым исходным кодом: руководство для разработчиков и создателей
В динамичном мире разработки программного обеспечения открытый исходный код стал мощной парадигмой, способствующей сотрудничеству, инновациям и прогрессу, движимому сообществом. В основе..

Объяснение документов 02: BERT
BERT представил двухступенчатую структуру обучения: предварительное обучение и тонкая настройка. Во время предварительного обучения модель обучается на неразмеченных данных с помощью..

Как проанализировать работу вашего классификатора?
Не всегда просто знать, какие показатели использовать С развитием глубокого обучения все больше и больше людей учатся обучать свой первый классификатор. Но как только вы закончите..

Работа с цепями Маркова, часть 4 (Машинное обучение)
Нелинейные цепи Маркова с агрегатором и их приложения (arXiv) Автор : Бар Лайт Аннотация: Изучаются свойства подкласса случайных процессов, называемых дискретными нелинейными цепями Маркова..

Crazy Laravel Livewire упростил мне создание электронной коммерции (панель администратора и API) [Часть 3]
Как вы сегодня, ребята? В этой части мы создадим CRUD для данных о продукте. Думаю, в этой части я не буду слишком много делиться теорией, но чаще буду делиться своим кодом. Потому что..


Для любых предложений по сайту: [email protected]