[pavsem7]

Там кода нет, кроме a*b, » В сказки не верю, коллега. »

Не сказки, это 1с8 СКД, специальное встроенное графическое приложение для создания отчетов без кода, кода там нет, кроме цена*кол-во.

Граница очевидна - первая пустая строка, » Это нижняя. А верхняя граница? И всегда ли это будет столбец «G», а не какой-либо другой?! »

Верхняя всегда G6. Столбец всегда устанавливается в G.

[Iska]

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

Верхняя всегда G6. Столбец всегда устанавливается в G. »

Давайте попробуем так:

Код:

Option Explicit

Sub Sample()
    Dim objRange As Range
    
    If IsWorksheetExists("TDSheet") Then
        With ActiveWorkbook.Worksheets.Item("TDSheet")
            For Each objRange In Intersect(.UsedRange, .Range("G6:G65536")).Cells
                If objRange.Rows.Item(1).OutlineLevel = 2 Then
                    'objRange.Value = objRange.Offset(0, -2).Value * objRange.Offset(0, -1).Value
                    objRange.Formula = "=" & objRange.Offset(0, -2).Address & "*" & objRange.Offset(0, -1).Address
                Else
                    objRange.ClearContents
                End If
            Next objRange
        End With
    Else
        MsgBox "Can't find worksheet named [TDSheet] in active workbook", vbInformation + vbOKOnly
    End If
End Sub

Private Function IsWorksheetExists(strWorksheetName As String) As Boolean
    Dim objWorksheet As Worksheet
    
    
    IsWorksheetExists = False

    For Each objWorksheet In ActiveWorkbook.Worksheets
        If StrComp(objWorksheet.Name, strWorksheetName, vbTextCompare) = 0 Then
            IsWorksheetExists = True
            
            Exit For
        End If
    Next objWorksheet
End Function

Добавил проверку существования в активной Рабочей книге Рабочего листа с указанным именем, и сделал добавление формулы:

колонка Стоимость, которая должна быть произведением Цены на КонРезерв »

вместо готового значения (старый вариант там же выше, закомментирован).


pavsem7, может имеет смысл сделать код не в Excel, а во внешнем скрипте? Тогда сможете, скажем, банально перетаскивать на скрипт (или на ярлык на скрипт) потребный файл Рабочей книги в Проводнике, использовать его запуск из Планировщика, пакетного файла или же непосредственно из 1С (если экспорт этого отчёта 1C в Рабочую книгу у Вас делается программно).

[pavsem7]

Добавил проверку существования в активной Рабочей книге Рабочего листа с указанным именем, и сделал добавление формулы »

Не понимаю смысла совершать эту проверку. Такой лист создался при сохранении из 1С автоматически, я даже не знал его названия, пока Вы не подсказали. Отчеты из 1С, насколько я понял, всегда сохраняются в однолистовую книгу. В принципе могут быть отчеты совсем о другом, но по-видимому, с тем же именем.

может имеет смысл сделать код не в Excel, а во внешнем скрипте? Тогда сможете, скажем, банально перетаскивать на скрипт (или на ярлык на скрипт) »

А вот это интересно. Это как раз типа командной строки. Только я не понял, как сделать скрипт, чтоб при его перетаскивании на файл Excel этот файл Excel обрабатывался?
Мне годится тот короткий скрипт, который был раньше.

[Iska]

Не понимаю смысла совершать эту проверку. »

Запустили макрос в Рабочей книге, в которой нет данного листа (случайно, специально, звёзды так сошлись — не суть важно). Без этой проверки макрос отвалится с ошибкой времени исполнения, с проверкой — просто сообщит об отсутствии листа.

но по-видимому, с тем же именем. »

Не уверен.

А вот это интересно. Это как раз типа командной строки. Только я не понял, как сделать скрипт, чтоб при его перетаскивании на файл Excel этот файл Excel обрабатывался? »

Попробуйте так (WSH):

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

Код:

Option Explicit

Dim strSourceFile
Dim objWorksheet
Dim objRange


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceFile = .GetAbsolutePathName(WScript.Arguments.Item(0))
		
		If .FileExists(strSourceFile) Then
			Select Case LCase(.GetExtensionName(strSourceFile))
				Case "xls", "xlsx"
					With WScript.CreateObject("Excel.Application")
						With .Workbooks.Open(strSourceFile)
							For Each objWorksheet In .Worksheets
								With objWorksheet
									If StrComp(.Name, "TDSheet", vbTextCompare) = 0 Then
										For Each objRange In .Parent.Parent.Intersect(.UsedRange, .Range("G6:G65536")).Cells
											If objRange.Rows.Item(1).OutlineLevel = 2 Then
												objRange.Formula = "=" & objRange.Offset(0, -2).Address & "*" & objRange.Offset(0, -1).Address
											Else
												objRange.ClearContents
											End If
										Next
										
										Exit For
									End If
								End With
							Next
							
							.Save
							.Close
						End With
						
						.Quit
					End With
				Case Else
					WScript.Echo "Probably not an Excel workbook."
					WScript.Quit 3
			End Select
		Else
			WScript.Echo "Can't find source file [" & strSourceFile & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0