Выгрузка из Json в Excel

If WinExists(@ScriptName) Then Exit AutoItWinSetTitle(@ScriptName)

HotKeySet('{ESC}', "Terminate")

#include <INet.au3>
#include <Encoding.au3>
#include <JSON.au3>
#include <JSON_helper.au3>
#include <JSON_translate.au3>

Dim $_inn
$_inn = 123456789
$data=_INetGetSource("http://budget.gov.ru/opendata/" & $_inn & "-FEDBUDGETAGREEMENT/meta.json")
$data=_Encoding_UTF8toansi($data)
$web=_JSONdecode($data)

Sleep(700)

ShellExecute("Excel.exe")

$file = FileOpen($_inn & ".json", 1)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

FileRead($file, $sData)

$tab=$table[$i]
For $i=0 to Ubound ($table) - 1
Send($tab[1])
Send("{RIGHT}")
Sleep(200)
Send($tab[3])
Send("{RIGHT}")
Sleep(200)
Send($tab[5])
Send("{RIGHT}")
Sleep(200)
Send($tab[7])
Send("{RIGHT}")
Sleep(200)
Send($tab[9])
Send("{RIGHT}")
Sleep(200)
Send("{HOME}{DOWN}")
Next

Func Terminate()
Exit 0
EndFunc

$oExcel = ObjCreate("Excel.Application") ; Создаёт Excel объект
$oExcel.Visible = 1 ; Отобразить объект Excel
$oExcel.WorkBooks.Add ; Добавляет новую книгу
$oExcel.ActiveWorkBook.ActiveSheet.Cells(1, 1).Value = "Text" ; Заполняет ячейку
Sleep(4000) ; Посмотреть результаты в течении 4-х секунд
$oExcel.ActiveWorkBook.Saved = 1 ; Имитация сохранения книги
$oExcel.Quit ; Выход из Excel

Dim $_inn
$_inn = 7710568760
$data=_INetGetSource("http://budget.gov.ru/opendata/" & $_inn & "-FEDBUDGETAGREEMENT/meta.json")
;$data=_INetGetSource("http://budget.gov.ru/epbs/registry/grants/data?offset..")
$data=_Encoding_UTF8toansi($data)
$web=_JSONdecode($data)

$oExcel = ObjCreate("Excel.Application") ; Создаёт Excel объект
$oExcel.Visible = 1 ; Отобразить объект Excel
$oExcel.WorkBooks.Add ; Добавляет новую книгу

For $i = 0 To UBound($web)-1
For $ii = 0 To UBound($web,2)-1
$oExcel.ActiveWorkBook.ActiveSheet.Cells($i+1, $ii+1).Value = $web[$i][$ii] ; Заполняет ячейку
Next
Next