let
    FromFile = Web.Contents("file:///J:/Laragon/www/ferre.xml"),
    FromWeb = ()=>Value.Metadata(Web.Contents("http://localhost/ferre.xml"))[Content.Uri],
    Check1 = (Web.Page(FromFile){0}[Data]                                                   /*так грузится только xml*/),
    Check2 = (Web.Page(Value.RemoveMetadata(FromFile) meta [Content.Uri=FromWeb()]){0}[Data]/*так грузится html,сформированный xslt,*/
                                                                                 /*но по ссылке из FromWeb, бинарник из */
                                                                                 /*FromFile игнорируется*/)
in
    Check2

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