Есть ли какая-либо альтернатива ActiveWorkbook.Queries.Add для получения данных из Интернета, поскольку это приводит к исключению нехватки памяти при загрузке данных в лист. У него всего около 60 записей.
ActiveWorkbook.Queries.Add Name:="Table 0 (" & strtabname & " )", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Web.Page(Web.Contents(""http://reports/getdata.aspx?sid=" & strname & """))," & Chr(13) & "" & Chr(10) & " Data0 = Source{0}[Data]," & Chr(13) & "" & Chr(10) & " #""Changed Type"" = Table.TransformColumnTypes(Data0,{{""Id"", Int64.Type}, {""Name"", type text}, {""Company"", type text}, {""Amount"", type number}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Changed Type"""
Заранее спасибо