Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 След.
Как спарсить определённую строчку HTML кода в VBA, Нужно незаметно скопировать с сайта одну цифру в переменную VBA или хотя-бы в буфер обмена.
 
Цитата
Danya-asg написал:
в IE нужный сайт не работает
пользуйте SeleniumBasic
тут ссылки на перевод документации и туториалы
Удаление группировки с содержимым, начиная с 3 уровня и выше (до 8)
 
Код
Sub DeleteOutlineLevels()
    Dim r As Range, ar As Range
    With Application
        .ScreenUpdating = 0: .EnableEvents = 0
        With .ActiveSheet
            .Outline.ShowLevels RowLevels:=3
            Set r = .UsedRange.SpecialCells(12)
            .Outline.ShowLevels RowLevels:=8
            r.EntireRow.Hidden = 1
            On Error Resume Next
            For Each ar In .UsedRange.SpecialCells(12).Areas
                ar.EntireRow.Delete xlUp
            Next
            On Error GoTo 0
            .UsedRange.EntireRow.Hidden = 0
        End With
        .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub
Разобрать строку на столбцы
 
Вариант в Power Query
Код
 = let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Split = Table.SplitColumn(Source, "Столбец1", 
        (a)=> let 
            a = Text.Replace(a," RUB",""),
            b = Table.AddIndexColumn(Table.FromColumns({Text.PositionOf(a,"   ",3)}),"i",0),
            c = Table.Group(b, {"Column1","i"}, {{"a", each List.Last(_[Column1])}},0,
                    (current,checked)=>Number.From((checked[Column1]-current[Column1])>3*(checked[i]-current[i]))
                )[a],
            d = Splitter.SplitTextByPositions({0}&c)(a), 
            e = List.Transform(d,each Text.Trim(_)),
            f = Text.Split(List.Last(e)," ")
        in List.RemoveLastN(e,1)&f
    )            
in
    Table.TransformColumnTypes(Split,{
        {"Столбец1.4", type number}, 
        {"Столбец1.5", type time}, 
        {"Столбец1.6", Int64.Type}, 
        {"Столбец1.7", type number}
    },"en-us")
Power Query про замену кучи пробелов в столбце на 1 разделитель
 
До кучи
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    a = (a) => Splitter.SplitTextByWhitespace()(Text.Trim(a)),
    b = (b) => {b{0}&" "&b{1}}&List.Skip(b,2),
    c = (c) => Table.SplitColumn(Source,c,a,b(a(c)))
in
    c(Table.ColumnNames(Source){0})
Как скопировать/создать однотипный выпадающий список на другие листы
 
Цитата
Юрий М написал:
без наполнения.
ну да, если список из диапазона на листе, а на листе, куда скопирована проверка данных этот диапазон пуст, список будет пустым.
Изменено: Андрей Лящук - 5 Ноя 2019 19:12:04
Расчетные данные в исходной таблице. Что использовать PP или PQ?
 
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Данные"]}[Content],
    Group = Table.Group(Source, {"Регион", "Месяц"}, {{"-", 
        each let 
            t=Table.Buffer(_[[Статья],[Факт18],[Факт19]]), 
            a=t{[Статья=300]},
            b=t{[Статья=100]} 
        in Table.InsertRows(t,0,{[Статья=500,Факт18=a[Факт18]-b[Факт18],Факт19=a[Факт19]-b[Факт19]]})
    }})    
in
    Table.ExpandTableColumn(Group, "-", {"Статья", "Факт18", "Факт19"})
Изменено: Андрей Лящук - 5 Ноя 2019 21:00:42
Как скопировать/создать однотипный выпадающий список на другие листы
 
Проверял. Что-то не так?
Изменено: Андрей Лящук - 3 Ноя 2019 19:45:17
Как скопировать/создать однотипный выпадающий список на другие листы
 
Код
Sub CopyPasteValidation()
    Dim wsV As Worksheet, ws As Worksheet
    Set wsV = ActiveSheet
    wsV.Range("A1:A12").Copy
    For Each ws In ActiveWindow.SelectedSheets
        If ws.Name <> wsV.Name Then
            ws.Range("A1:A12").PasteSpecial xlPasteValidation
        End If
    Next
    Application.CutCopyMode = False
End Sub
Как рассчитать расстояние между двумя адресами?
 
Вариант через API Google карт в Power Query, полученные числа не совпадают с теми, что возвращает сайт
Всесто GOOGLE_API_KEY нужно вставить ключ Google API (если своего нет, то ,если постараться, его можно найти на сайте из первого поста)
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content][[Место отбытия],[Место прибытия]],
    GapiKey = "GOOGLE_API_KEY",
    PlaceID=(address)=>try Xml.Tables(Web.Contents("https://maps.google.com/maps/api/geocode/xml?address="&address&"&key="&GapiKey)){0}[result]{0}[place_id] otherwise null,
    DistMatrix=(Origin,Destination)=>if Origin=null or Destination=null then null else Xml.Tables(Web.Contents("https://maps.googleapis.com/maps/api/distancematrix/xml?origins=place_id:"&Origin&"&destinations=place_id:"&Destination&"&key="&GapiKey)){0}[row]{0}[element],
    AddColumn = Table.AddColumn(Source, "Пользовательская", each Function.InvokeAfter(()=>DistMatrix(PlaceID([Место отбытия]),PlaceID([Место прибытия])),#duration(0,0,0,1.5))),
    Expand = Table.ExpandTableColumn(Table.ExpandTableColumn(Table.ExpandTableColumn(AddColumn, "Пользовательская", {"distance","duration"}), "distance", {"value"}, {"Расстояние, км."}),"duration", {"value"}, {"Время"})
in
    Table.TransformColumns(Expand,{{"Расстояние, км.", each try Number.From(_)/1000 otherwise null, type number},{"Время", each try Time.From(Number.From(#duration(0,0,0,Number.From(_)))) otherwise null, type time}})
Изменено: Андрей Лящук - 30 Окт 2019 19:32:59
Power Query. Создать настраиваемый столбец, который подсчитает количество заполненных столбцов в диапазоне
 
Цитата
extrafant написал:
начинаю понимать в чем моя ошибка. Она здесь
Не правильно понимаете. Ошибка в том, что запрос был написан для файлов одной структурой, а вы ему суете совершенно другую.
1. В файле диапазон над таблицей было 3 ненужные строки, которые удалялись на шаге RemovedTopRows , в файле отчет их нету. Эту проблему решил заменой количества удаляемых строк функцией, которая удаляет строки, пока в первом столбце не обнаружится заголовок "№ п/п". Если этот столбец будет переименован, запрос перестанет работать.
2. В файлах Диапазон и Отчет разные названия столбцов, из-за этого сыпались ошибки на шаге ChangedType. Эту проблему решил генерацией динамического списка на основе названий столбцов.
Цитата
extrafant написал:
на что поменять source при том
да на что душе угодно, хоть на
Код
File.Contents("E:\extra\Загрузки\Отчет.xlsx")

Я использовал url, дабы не качать, ибо оно мне не надо
Работа с Excel разных версий в нескольких процессах
 
Win7 Ultimate x86

Excel 2013 Pro+
с одним открытым файлом k = 1
c двумя 10-секундный паркинсон, k = 494

повторил то же самое в 2010 portable, 2007,  2003 portable
с любым количеством файлов k=1

до кучи, написал вариант c EnumWindows и EnumChildWindows (для x86)
Скрытый текст
Изменено: Андрей Лящук - 29 Окт 2019 16:40:35
Power Query. Создать настраиваемый столбец, который подсчитает количество заполненных столбцов в диапазоне
 
Код
let
    Source = Excel.Workbook(Web.Contents("https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=364632&action=download"), null, true),
    Navigation = Source{[Item="Отчет Заполнение личной карточк",Kind="Sheet"]}[Data],
    RemovedTopRows = Table.Skip(Navigation,each [Column1]<>"№ п/п"),
    RemovedBottomRows = Table.RemoveLastN(RemovedTopRows,each (try Number.From([Column1]) otherwise null)=null),
    PromotedHeaders = Table.PromoteHeaders(RemovedBottomRows, [PromoteAllScalars=true]),
    ChangedType = Table.TransformColumnTypes(PromotedHeaders,{{"№ п/п", Int64.Type}}&List.Zip({List.Skip(Table.ColumnNames(PromotedHeaders)),List.Repeat({type text},Table.ColumnCount(PromotedHeaders)-1)})),
    AddedCustom = Table.AddColumn(ChangedType, "Всего ячеек", each List.Count(Record.ToList(_))),
    AddedCustom1 = Table.AddColumn(AddedCustom, "Незаполненных ячеек", each [Всего ячеек] + 1 - List.NonNullCount(Record.ToList(_)))
in
    AddedCustom1
Работа с Excel разных версий в нескольких процессах
 
Я  тут как-то так писал обход дерева окон (вычислил от всего, что не касается поиска окон книг)
Код
Option Explicit

Option Explicit
Option Base 1
 
Private Declare Function GetClassName& Lib "user32" Alias "GetClassNameA" (ByVal hwnd&, ByVal lpClassName$, ByVal nMaxCount&)
Private Declare Function GetWindowText& Lib "user32" Alias "GetWindowTextA" (ByVal hwnd&, ByVal lpString$, ByVal cch&)
Private Declare Function AccessibleObjectFromWindow& Lib "oleacc" (ByVal hwnd&, ByVal dwId&, riid As GUID, xlWB As Object)
Public Declare Function GetWindow& Lib "user32" (ByVal hwnd&, ByVal wCmd&)
Public Declare Function GetDesktopWindow& Lib "user32" ()
 
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
Private Const OBJID_NATIVEOM = &HFFFFFFF0
 
Private Type GUID
    lData1 As Long
    iData2 As Integer
    iData3 As Integer
    aBData4(0 To 7) As Byte
End Type
 
Private IDispatch As GUID, oWnd As Window
Public WbArr() As Workbook, arr() As Variant
 
Public Sub EnumWorkbooks()
    Dim i&
    With IDispatch
        .lData1 = &H20400: .iData2 = &H0: .iData3 = &H0
        .aBData4(0) = &HC0: .aBData4(1) = &H0: .aBData4(2) = &H0
        .aBData4(3) = &H0: .aBData4(4) = &H0: .aBData4(5) = &H0
        .aBData4(6) = &H0: .aBData4(7) = &H46
    End With
    ReDim WbArr(1), arr(1)
    FindWindowHwndLike 0, "EXCEL7", "", 0, 0, 0
    Set oWnd = Nothing
End Sub
 
Private Function FindWindowHwndLike&(hWndStart&, ClassName$, WindowTitle$, level&, lHolder&, lCnt&)
    Dim hwnd&, sWindowTitle$, sClassName$, r&
    If level = 0 Then
        If hWndStart = 0 Then
            hWndStart = GetDesktopWindow()
        End If
    End If
    level = level + 1
    hwnd = GetWindow(hWndStart, GW_CHILD)
    Do While hwnd > 0
        lHolder = FindWindowHwndLike(hwnd, ClassName, WindowTitle, level, lHolder, lCnt)
        sWindowTitle = Space$(255)
        r = GetWindowText(hwnd, sWindowTitle, 255)
        sWindowTitle = Left$(sWindowTitle, r)
        sClassName = Space$(255)
        r = GetClassName(hwnd, sClassName, 255)
        sClassName = Left$(sClassName, r)
        If (InStr(1, sWindowTitle, WindowTitle, vbBinaryCompare) > 0 Or sWindowTitle = WindowTitle) And (sClassName Like ClassName & "*" Or sClassName = ClassName) Then
            FindWindowHwndLike = hwnd
            lHolder = hwnd
            AccessibleObjectFromWindow hwnd, OBJID_NATIVEOM, IDispatch, oWnd
            If Not oWnd Is Nothing Then
                If oWnd.Visible Then
                    lCnt = lCnt + 1
                    ReDim Preserve WbArr(1 To lCnt), arr(1 To lCnt)
                    Set WbArr(lCnt) = oWnd.ActiveSheet.Parent
                    arr(lCnt) = WbArr(lCnt).Name
                End If
            End If
        End If
        hwnd = GetWindow(hwnd, GW_HWNDNEXT)
    Loop
    FindWindowHwndLike = lHolder
End Function
Изменено: Андрей Лящук - 28 Окт 2019 00:46:46
Поиск среднего и медианы по условию и с фильтром
 
Вариант в Power Query
Код
let
    Source = Table.SelectRows(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],each [#"День недели"]<6),
    #"Grouped Rows" = Table.Group(Source, {"Наименование"}, {{"", each let x=Table.Group(_,{"Дата"},{{"b",each List.Sum([Продажа])}})[b] in [Среднее=List.Average(x),Медиана=List.Median(x)]}}),
    #"Expanded {0}" = Table.ExpandRecordColumn(#"Grouped Rows", "", {"Среднее", "Медиана"}),
    #"Sorted Rows" = Table.Sort(#"Expanded {0}",{{"Наименование", Order.Ascending}})
in
    #"Sorted Rows"
Power Query. Создать настраиваемый столбец, который подсчитает количество заполненных столбцов в диапазоне
 
Работает с выложенным вами примером
Возможно у вас в файлах разное количество строк сверху до таблицы? Тогда замена шага RemovedTopRows поможет
Код
RemovedTopRows = Table.Skip(Navigation,each [Column1]<>"№ п/п"),
Извлечь Дату из текста в соседнюю ячейку в Power Query, Извлечь Дату из текста в соседнюю ячейку в Power Query
 
а вдруг...
Код
= Table.SplitColumn(Source, "Регистратор", (a)=>{Text.BeforeDelimiter(a,"от",{0,1}),Date.From(Text.BetweenDelimiters(a,"от "," ",{0,1},0))}, {"Регистратор.№", "Регистратор.Дата"})
Нахождение уникальной строки с четырьмя уникальными ячейками и удалением повторяющихся
 
Код
Sub ClearDuplicates()
    Dim r As Range, Calc&, i
    Set r = Cells(Rows.Count, 2).End(xlUp)
    With Application
        Calc = .Calculation: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = xlCalculationManual
        Do While r.Row > 2
            On Error Resume Next
            For i = 0 To 3
                With Range([B2], r.Offset(-1, 3))
                    .Replace r.Offset(, i), "=0/0", xlWhole
                    Intersect([B:Z], .SpecialCells(xlCellTypeFormulas, 16).EntireRow).ClearContents
                End With
            Next
            Set r = IIf(IsEmpty(r(0)), r.End(xlUp), r(0))
            DoEvents
        Loop
        .Calculation = Calc: .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub

Код
Sub DeleteDuplicates()
    Dim r As Range, Calc&, i
    Set r = Cells(Rows.Count, 2).End(xlUp)
    With Application
        Calc = .Calculation: .ScreenUpdating = 0: .EnableEvents = 0: .Calculation = xlCalculationManual
        Do
            On Error Resume Next
            For i = 0 To 3
                With Range([B2], r.Offset(-1, 3))
                    .Replace r.Offset(, i), "=0/0", xlWhole
                    .SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete xlUp
                End With
                If r.Row = 2 Then Exit Do
            Next
            Set r = r(0)
            DoEvents
        Loop
        .Calculation = Calc: .ScreenUpdating = 1: .EnableEvents = 1
    End With
End Sub
В смешанных ячейках (буквы и цифры) -в строке формул только цифры, При просмотре листа отображается полностью вся информация, но в строке формул содержится только цифры
 
Цитата
RAN написал:
этонияэтооносамо?
ага :)
В смешанных ячейках (буквы и цифры) -в строке формул только цифры, При просмотре листа отображается полностью вся информация, но в строке формул содержится только цифры
 
БМВ, лень циклом по ячейкам бегать :)
В смешанных ячейках (буквы и цифры) -в строке формул только цифры, При просмотре листа отображается полностью вся информация, но в строке формул содержится только цифры
 
вариант макросом
Код
Sub DisplayText2Value()
    With Application: .ScreenUpdating = 0: .EnableEvents = 0: End With
    With ActiveSheet.UsedRange
        .Copy
        With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
            .GetFromClipboard
            .SetText .GetText
            Application.CutCopyMode = 0
            .PutInClipboard
        End With
        .Select
        .Parent.PasteSpecial Format:="Текст"
        .NumberFormat = "general"
        .Formula = .Value
    End With
    With Application: .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
Вывести массив чисел по условию.
 
Здравствуте
Код
=СТАНДОТКЛОН.Г(ЕСЛИОШИБКА(C2:C25/(A2:A25=G2)/(B2:B25=H2)/(D2:D25=I2);""))
Сумма диапазона по заданному условию и диапазону критериев.
 
до кучи
Код
=СУММПРОИЗВ((B1:BH1=A7:A13)*B2:BH2)

еще 2 транспа
Код
=СУММ(ТРАНСП(МУМНОЖ(ТРАНСП(--(A7:A13=B1:BH1));СТРОКА(A7:A13)^0))*B2:BH3)
Изменено: Андрей Лящук - 11 Окт 2019 22:34:17
Как в SQL-запросе игнорить дубли?
 
Код
Sub FromExcelToDB(xlFile As String, xlSheetName As String, dbFile As String, dbTableName As String, addStr As String, bLoad As Boolean)
    Dim dbcn As ADODB.Connection
    Dim ColumnsNames As String, strSql As String
    
    ColumnsNames = "[NUM] counter," & _
                   "[Период] date NOT NULL," & _
                   "[Имя] string," & _
                   "[Сумма] double," & _
                   "UNIQUE ([Период],[Имя],[Сумма])"
    
    Set dbcn = New ADODB.Connection
    dbcn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & dbFile
    
    If bLoad Then 'Если Загрузка таблицы, то стираем старую и создаем новую
        On Error Resume Next
        strSql = "DROP TABLE [" & dbTableName & "]"
        dbcn.Execute strSql
        On Error GoTo 0
        
        strSql = "CREATE TABLE [" & dbTableName & "] (" & ColumnsNames & ")"
        dbcn.Execute strSql
    End If
        
    'Вставляем данные в таблицу
    strSql = "INSERT INTO  [" & dbTableName & "]SELECT t2.* FROM [" & dbTableName & "] AS t1 RIGHT JOIN (SELECT t.* FROM [" & xlSheetName & "$] t IN '" & xlFile & "' [Excel 12.0; Xml; hdr=yes;]) AS t2 ON t2.[Период]=t1.[Период] WHERE t1.[Период] is null"
'    strSql = strSql & addStr
             
    dbcn.Execute strSql
    
    dbcn.Close
    Set dbcn = Nothing
 End Sub
Изменено: Андрей Лящук - 11 Окт 2019 18:25:29 (че-то меня прет...)
Группировка строк по условию в PowerQuery
 
Код
let
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Changed Type" = Table.TransformColumnTypes(Source,{{"Номер", type text}, {"Данные", type text}, {"ФИО", type text}}),
    #"Grouped Rows" = Table.Group(#"Changed Type", {"Номер"}, {{"Данные", each Text.Combine([Данные],","), type text}, {"ФИО", each List.Max([ФИО]), type text}})
in
    #"Grouped Rows"
Изменено: Андрей Лящук - 12 Окт 2019 02:17:09
Группировка строк по условию в PowerQuery
 
Цитата
KacaTuk написал:
В случае если в таблице более колонок, а группировать мне нужно только часть из них, не выходит, сыпет ошибки. Помогите разобраться.
вы считаете, что тут телепаты сидят? Где файл?
Вложенная таблица в ячейке, записать значения в строчку, Обработка XML-таблицы в Power Query
 
как-то так
Код
let
    Источник = Xml.Tables(Web.Contents("https://www.planetaexcel.ru/bitrix/components/bitrix/forum.interface/show_file.php?fid=361634&action=download")),
    #"Развернутый элемент object" = Table.ExpandTableColumn(Источник, "object", {"name", "city", "address", "attrubitesA", "attributesB", "workhours", "Attribute:ID"}),
    Custom1 = Table.ReplaceValue(#"Развернутый элемент object",null,null,(a,b,c)=>if Table.RowCount(a)>0 then Text.Combine(List.Combine(List.Transform(Table.ToColumns(a){0},(l)=>if Value.Is(l, type table) then Table.ToColumns(l){0} else {l})),", ") else null,{"attrubitesA","attributesB"})
in
    Custom1
При копирование листа таблицы нужно чтобы ссылки ссылались на предыдущий лист. Как это сделать?
 
В лиспетчере имен
aa
Код
="'"&ИНДЕКС(ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(1;ПОЛУЧИТЬ.ЯЧЕЙКУ(66;!M50));ЛИСТ(!M50)-1)&"'!"
bb
Код
=ДВССЫЛ(aa&"1:99")
cc
Код
=ПОИСКПОЗ("Начислено в текущем  месяце";ИНДЕКС(bb;;4);)
в ячейках
Код
=ИНДЕКС(bb;СТРОКА()-ПОИСКПОЗ("долг предыдущий";M$1:M49;)+cc;ПОИСКПОЗ("Итого ДОЛГ";ИНДЕКС(bb;cc;);))
Power Query. Путь к текущей книге, выбор папок из диалогового окна, ввод значений через InputBox
 
Пожалуйста)
Цитата
Андрей VG написал: стоит ли так?
Это вы про
Цитата
Андрей Лящук написал: 04:18:20
или про безопасность?
Заполнение документа Word из Excel, Проблема с присвоением имени документу Word
 
Format function
Power Query. Путь к текущей книге, выбор папок из диалогового окна, ввод значений через InputBox
 
Всем доброго времени суток.
Пока не спится, чтоб чем-то себя занять, написал наброски 3х функций
Вдруг кому-нибудь пригодятся :)
Для работы должен быть включен параметр "Использование элементов управления ActiveX, не помеченных как безопасные для использования" в параметрах безопасности IE

Код
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
Изменено: Андрей Лящук - 4 Окт 2019 04:30:14
Страницы: 1 2 3 4 5 6 7 8 След.
Наверх