[romfus]

Опишите/продемонстрируйте, как Вы его запускаете. »

Я ваш код скопировал в текстовый файл сохранил как vbs и при запуске такая ошибка. Видимо я что-то опустил. Я просто в wsh не силен. Что-то видимо нужно где-то еще дополнительно указать, чего я не сделал как я понял

[Iska]

Я ваш код скопировал в текстовый файл сохранил как vbs »

Здесь правильно.

и при запуске такая ошибка. »

Это сообщение о том, как следует осуществлять запуск скрипта правильно.

Откройте командную строку. Напишите в ней cscript.exe //nologo, добавьте пробел. Перетащите туда же скрипт из Проводника, добавьте ещё пробел. Теперь перетащите туда же из Проводника папку, в которой находятся файлы, которые требуется обработать. Нажмите Enter.

Если увидите сообщение вида «ADODB.Properties: Не удается найти указанный поставщик. Вероятно, он установлен неправильно» и у Вас x64 ОС — пишете не просто cscript.exe, а %SystemRoot%\SysWOW64\cscript.exe и т.д.

[romfus]

Здесь правильно. »

Спасибо работает. А можно ли
R34ROMANOVSKIY4 C:\Users\Alexander.Romanovski>cscript.exe //nologo C:\Users\Alexander.Romanovski\Des
ktop\0001.vbs D:\IVC\Operators\Printer\20.04.2018
Закрепить в самом скрипте? чтобы при запуске сразу выводилось окно с просьбой ввести индекс?

[Iska]

romfus, Вы хотите сказать, что каталог с файлами всегда будет один и тот же? Создайте ярлык вида:

Код:

C:\Windows\System32\cscript.exe //nologo "C:\Users\Alexander.Romanovski\Desktop\0001.vbs" "D:\IVC\Operators\Printer\20.04.2018"

[romfus]

C:\Windows\System32\cscript.exe //nologo "C:\Users\Alexander.Romanovski\Desktop\0001.vbs" "D:\IVC\Operators\Printer\20.04.2018" »

а если созданный ярлык при запуске закрывается сразу? То есть появляется окно ввести индекс после ввода все счиытвает и моментально закрывается

[Iska]

а если созданный ярлык при запуске закрывается сразу? То есть появляется окно ввести индекс после ввода все счиытвает и моментально закрывается »

Виноват, не подумал. Приношу Вам свои извинения.

Попробуйте задать такую строку в ярлыке:

Код:

"%comspec%" /c"C:\Windows\System32\cscript.exe //nologo "C:\Users\Alexander.Romanovski\Desktop\0001.vbs" "D:\IVC\Operators\Printer\20.04.2018" & pause"

Если требуются какие-либо манипуляции с окном — тогда так:

Код:

"%comspec%" /k"C:\Windows\System32\cscript.exe //nologo "C:\Users\Alexander.Romanovski\Desktop\0001.vbs" "D:\IVC\Operators\Printer\20.04.2018""

romfus, общий принцип и вид вывода — это то, что Вам требовалось? Более ничего менять/настраивать не надо?

[romfus]

Все отлично. Спасибо!

[megaloman]

romfus, Я, наверное, лезу не в своё дело, но постановку задачи я переосмыслил.

Я написал vbs-скрипт, который объединит в одну все Ваши таблицы,

Код:

inName = "Z:\Soft_In"

With WScript.Arguments
    If .Count <> 0 Then inName = .Item(0)
End With

Set FSO = CreateObject("Scripting.FileSystemObject")

On Error Resume Next
Set nDir = FSO.GetFolder(inName)
If Err.Number <> 0 Then
    MsgBox inName + vbCrLf + Err.Description
    WScript.Quit 1
End If
On Error GoTo 0

Tit = Array("num", "indexto", "region", "area", "city", "adres", "adresat", "mass", "value", "payment", "comment")
NTit = UBound(Tit) - LBound(Tit)

inExt = "xls"
Rng1 = "A1"
Rng2 = "B1"

Set AllFiles = nDir.Files

With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Add

    CN = .Range(Rng1).Offset(0, NTit).Address
    .Range(Rng1 + ":" + CN).Value = Tit
    Cont = .Range(Rng2)
    ii = 0
        
    For Each iFile In AllFiles
        If LCase(inExt) = LCase(FSO.GetExtensionName(iFile)) Then
            .Workbooks.Open (iFile)
            i = 0
            If .Range(Rng2) = Cont Then
                Do
                    If Trim(.Range(Rng2).Offset(i + 1, 0)) = "" Then Exit Do
                    i = i + 1
                Loop
                R0 = .Range(Rng1).Offset(1, 0).Address
                RN = .Range(Rng1).Offset(i, NTit).Address
                Mas = .Range(R0 + ":" + RN)
            End If
            .ActiveWorkbook.Close
            .Range(R0 + ":" + RN).Offset(ii, 0).NumberFormat = "@"
            .Range(R0 + ":" + RN).Offset(ii, 0) = Mas
            ii = ii + i
        End If
    Next
    R0 = .Range(Rng2).Offset(1, 0).Address
    RN = .Range(Rng2).Offset(ii, 0).Address
    RF = .Range(Rng2).Offset(ii + 1, 0).Address
    
    .ActiveWindow.SplitRow = 1
    .ActiveWindow.FreezePanes = True
    
    .Columns("A:A").EntireColumn.AutoFit
    .Range(Rng2).AutoFilter
    .Range(RF).FormulaLocal = "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(3;" + R0 + ":" + RN + ")"
    .Rows(CStr(.Range(Rng2).Row)).Insert (xlDown)
    .Range(Rng2).FormulaLocal = "=" + .Range(RF).Offset(1, 0).Address

End With

затем накладывает на нее фильтр и прописывает формулу подсчета отфильтрованных значений. Если данных не слишком много, это сработает.
Что плохо в этом решении: конечно, сборка отработает медленнее. Я не знаю, сколько строк получится в итоговой таблице.
Что хорошо: после сборки при необходимости выборки нескольких индексов этот процесс быстр и удобен. Плюс, имеем полную инфу по каждому адресату. Можем выбирать сразу несколько индексов и подсчитывать их количество.
Можем выбрать инфу и по другому полю.
Обрабатываемую папку можно указать явно, например, как сейчас: inName = "Z:\Soft_In" (пропишИте своё!).
Однако, если при запуске скрипта папку указать в аргументе, то возьмётся не явное описание из текста скрипта, а то, что в аргументе.
Как следствие, на этот скрипт можно создать, например, на рабочем столе значок, и затягивать на него из проводника нужную папку .