[romfus]

Заработал да. Я отписался что работает

[Iska]

Давайте. Попробуем »

Пробуйте:

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

Код:

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile

Dim objExcel


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objExcel = Nothing
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			Select Case LCase(objFSO.GetExtensionName(objFile.Name))
				Case "xls", "xlsx"
					If objExcel Is Nothing Then
						Set objExcel = WScript.CreateObject("Excel.Application")
					End If
					
					With objExcel
						With .Workbooks.Open(objFile.Path)
							With .Worksheets.Item(1)
								If StrComp(.Cells(1, 1).Value, "num", vbTextCompare) = 0 Then
									With .UsedRange.EntireColumn
										.Offset(0, 1).Delete
										.AutoFit
									End With
									
									.PrintOut
								Else
									WScript.Echo "Can't find [num] in A1 cell in first worksheet in [" & objFile.Name & "] workbook."
								End If
							End With
							
							.Close False
						End With
					End With
				Case Else
					' Nothing to do
			End Select
		Next
		
		objExcel.Quit
		
		Set objExcel = Nothing
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 2
	End If
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source folder>"
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

Путь к исходной папке указывается параметром скрипта (также можно просто перетащить исходную папку на скрипт в Проводнике).

[romfus]

Usage cscript.exe //nologo "3.vbs" <Source folder> как тут быть?

а все разобрался

[Iska]

Заработал да. Я отписался что работает »

Ясно. Я не увидел то, что Вы дописывали.

А вот такой вопрос. А нельзя ли чтобы столбец NUM шел не просто вниз а по всему листу?. ПРи печати хорошая Экономия бумаги получится. То что я вам кинул это самый маленький файл. Так если на печатаь бросать результат получается на 8 листов аж »

Можно будет попробовать. Сверху вниз, затем слева направо, затем опять сверху вниз, затем опять слева направо, …, затем следующий лист и повторяем то же самое, так?

[romfus]

так да

[Iska]

Usage cscript.exe //nologo "3.vbs" <Source folder> как тут быть? а все разобрался »

Удобнее всего Вам будет просто перетаскивать папку на скрипт в Проводнике — подхватить папку, перетащить и бросить её на скрипт.

[romfus]

Да да. Я тут разобрался уже

[Iska]

так да »

Тогда давайте, чтоб не заниматься излишней универсализацией (да я и не уверен, что такое возможно в принципе, всё ж это не Microsoft Access), Вы посчитаете, сколько столбцов у Вас, на Вашем принтере, умещаются на одной странице при печати (и, кстати, мы будем вставлять для наглядности по короткому пустому вспомогательному столбцу между основными?) и сколько строк у Вас умещается на одной странице при печати. От этого и будем танцевать.

[romfus]

7 строк по горизонтали и 56 по вертикали

[Iska]

romfus, Вы точно уверены насчёт семи столбцов? У меня токмо шесть помещаются. И — по короткому пустому столбцу между столбцами будем вставлять для наглядности, або нет?