Помогите подстроить скрипт под эксель

[Viktorkv]

Это скрипт для подсчета количества документов ворд и общего количества их страниц. Как мне его подстроить под эксель?

With CreateObject("word.application")
For Each x In CreateObject("scripting.filesystemo bject").getfile(wscript.scriptfulln ame).parentfolder.Files
If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then
With .documents.open(x.Path, , True) 'ReadOnly
numDocs = numDocs + 1
sumPages = sumPages + .Content.ComputeStatistics(2) 'wdStatisticPages
' sumPages = sumPages + .BuiltInDocumentProperties(14) 'wdPropertyPages 'считает неправильно!
.Close False 'don't save changes
End With
End If
Next
.Quit
End With
wscript.echo "Всего страниц " & sumPages & Chr(13) & "Документов " & numDocs

[ADSoft]

явно не в разделе JS

[Viktorkv]

Подскажите раздел ?

[Stilet]

Я переместил в нужный.

[Казанский]

Уточните: нужно общее число печатных СТРАНИЦ на всех ЛИСТАХ всех КНИГ Excel в папке со скриптом?

[maksim_serg]

VBA excel:

   With CreateObject("word.application")
        For Each x In CreateObject("Scripting.FileSystemObject").getfolder(ThisWorkbook.Path).Files
            If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then
                With .documents.Open(x.Path, , True) 'ReadOnly
                numDocs = numDocs + 1
                sumPages = sumPages + .Content.ComputeStatistics(2) 'wdStatisticPages
                ' sumPages = sumPages + .BuiltInDocumentProperties(14) 'wdPropertyPages 
                .Close False 'don't save changes
                End With
            End If
        Next
        .Quit
    End With
    
    MsgBox "Всего страниц " & sumPages & Chr(13) & "Документов " & numDocs