[Iska]

Думаю имена файлов xls неважно? Достаточно просто с:/путь/*.xls указать »

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

Имеются несколько десяткой excel файлов »

Упакуйте несколько образцов файлов в архив и приложите к сообщению, либо выложите на обменник/Яндекс.Диск.

выводилось количество данных с этим индексом »

Что подразумевается под «количеством данных»?

[romfus]

Вот пример одного файла, структура у них у всех одинакова. Так да, перебираем все рабочие книги. Посмотрите пример файла, думаете поймете о чем я. В файле много индексов. вводим один индекс и скрипт считывает сколько раз этот индекс повторился в книге и выдает количество

[romfus]

вот 2 файл для примера

[Iska]

Вот пример одного файла, »

Ну, почему, почему всегда одно и то же, одно и то же. Вам так сложно упаковать несколько разных файлов в архив и выложить?

повторился в книге »

Вы хотели сказать «в книгах»?

Ну, вот как-то так я себе это представляю (на WSH):

Скрытый текст

Код:

Option Explicit

Const adOpenStatic     = 3
Const adLockOptimistic = 3
Const adCmdText        = 1


Dim strSourceFolder
Dim strPostCode

Dim objFSO
Dim objFile

Dim objConnection
Dim objCatalog
Dim objTable
Dim objRecordset

Dim intTotalOccuped


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		strPostCode = "123456"
		strPostCode = InputBox("Введите почтовый индекс:", "Введите почтовый индекс", strPostCode)
		
		Set objConnection = WScript.CreateObject("ADODB.Connection")
		Set objRecordset  = WScript.CreateObject("ADODB.Recordset")
		Set objCatalog    = WScript.CreateObject("ADOX.Catalog")
		
		WScript.Echo "Почтовый индекс [" & strPostCode & "] встречается в:"
		WScript.Echo "------------------------------------------------------------------"
		
		intTotalOccuped = 0
		
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If StrComp(objFSO.GetExtensionName(objFile.Name), "xls", vbTextCompare) = 0 Then
				WScript.Echo "[" & objFile.Path & "]"
				
				With objConnection
					.Provider = "Microsoft.Jet.OLEDB.4.0"
					.Properties.Item("Extended Properties").Value = "Excel 8.0;HDR=Yes;IMEX=1"
					.Open objFile.Path
					
					objCatalog.ActiveConnection = objConnection
					
					For Each objTable In objCatalog.Tables
						If StrComp(objTable.Type, "TABLE", vbTextCompare) = 0 Then
							With objRecordset
								.Open "SELECT indexto FROM [" & objTable.Name & "] WHERE indexto = '" & strPostCode & "'", objConnection, adOpenStatic, adLockOptimistic, adCmdText
								intTotalOccuped = intTotalOccuped + .RecordCount
								WScript.Echo vbTab & "[" & objTable.Name & "] - " & .RecordCount & " раз(а)"
								.Close
							End With
						End If
					Next
					
					objCatalog.ActiveConnection = Nothing
					
					.Close
				End With
			End If
		Next
		
		WScript.Echo "------------------------------------------------------------------"
		WScript.Echo "Всего " & intTotalOccuped & " раз(а)"
		
		Set objCatalog    = Nothing
		Set objRecordset  = Nothing
		Set objConnection = Nothing
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
		WScript.Quit 2
	End If
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptFullName & """ <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к целевому каталогу указывается аргументом скрипта. Скорректируйте строку подключения под Ваш драйвер OLEDB. В случае x64 ОС и x86 версии драйвера (как, например, в моём примере) используйте x86-версию исполнителя cscript.exe из каталога %SystemRoot%\SysWOW64.

[Iska]

Поправил недоработку в предыдущем сообщении, оставшуюся от отладки (не везде заменил прямой константный путь на переменную strSourceFolder).

[romfus]

Спасибо. Что-то у меня cscript не запускается.

[Iska]

Что-то у меня cscript не запускается. »

Продемонстрируйте.

[romfus]

Продемонстрируйте. »

Iska, я скорее всего неправильно понял что-то. При запуске скрипта выдает Echo "Usage: cscript.exe //nologo """ & WScript.ScriptFullName & """ <Source folder>"

[Iska]

выдает Echo "Usage: cscript.exe //nologo """ & WScript.ScriptFullName & """ <Source folder>" »

В сказки не верю. Покажите скриншот.

При запуске скрипта »

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