let
    InputBox = (Prompt,optional Caption as nullable text,optional Default as nullable any,optional Type as nullable number)=>
        Web.Page("<script>
            try {
                var xlapp = GetObject('','Excel.Application');
                var ret=xlapp.InputBox('"&Prompt&"','"&(if Caption=null then "null" else Text.From(Caption))&"','"&
                    (if Default=null then "null" else Text.From(Default))&"',null,null,null,null,"&
                    (if Type=null then "null" else Text.From(Type))&")
            } catch (e){
                var err=(e.message)
            } 
            document.write('<table><tr><th>ret</th></tr><tr><td>'+(typeof err!=='undefined'?err:ret)+'</td></tr></table>')
        </script>"){0}[Data][ret]{0},
    SelectFolder = (InitialFileName,Title) => 
        Web.Page("<script>
            try{
                var dlg=GetObject('','Excel.Application').FileDialog(4);
                dlg.title='"&Title&"';
                dlg.InitialFileName='"&Text.Replace(InitialFileName,"\","\\")&"';
                var ret=(dlg.show()==-1?dlg.selecteditems.item(1):'')
            } catch (e){
                var err=(e.message)
            } 
            document.write('<table><tr><th>ret</th></tr><tr><td>'+(typeof err!=='undefined'?err:ret)+'</td></tr></table>')
        </script>"){0}[Data][ret]{0},
    ThisWBPath  = Web.Page("<script>
            try{
                var xlapp = GetObject('','Excel.Application');
                var ret=xlapp.activeworkbook.fullname
            } catch (e){
                var err=(e.message)
            }
            document.write('<table><tr><th>ret</th></tr><tr><td>'+(typeof err!=='undefined'?err:ret)+'</td></tr></table>')
        </script>"){0}[Data][ret]{0},
    Path = if try Number.From(InputBox("Введите значение параметра X","Запрос1 - Ввод параметра X",0,1))>0 otherwise false then SelectFolder("C:\","Выберите папку") else ThisWBPath
in
    Path