[DJ Mogarych]

Из бат-файла - никак. VBS или Powershell.

Надо сформировать excel-файл с датой или записать значение в ячейку уже готового файла?

[megaloman]

Код:

FName = "Z:\Box_In\Дунаев_Д.П._ОТЧЕТ 19.12.2019.xlsx"
ToCell = "B1"

Dt = CStr(MonthName(Month(Date)))
Dt = "Отчет за " + Right("0" + CStr(Day(Date)), 2) + " " + Left(Dt, Len(Dt) - 1) + "я " + CStr(Year(Date)) + " г."

With CreateObject("Excel.Application")
	.Visible = True
	.Workbooks.Open FName
	.Range(ToCell) = Dt
	.ActiveWorkbook.Save
	.ActiveWorkbook.Close
	.Quit
End With

[Iska]

DUNAEV78, как-то так, если я всё правильно понял:

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

Код:

Option Explicit

Dim strSourceFile

Dim objFSO
Dim objExcel

Dim strWorksheetName
Dim strPartsDelimiter

Dim boolFound
Dim objWorksheet
Dim arrParts


strWorksheetName  = "ОТЧЕТ"
strPartsDelimiter = "_ОТЧЕТ "


If WScript.Arguments.Count = 1 Then
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	strSourceFile = objFSO.GetAbsolutePathName(WScript.Arguments.Item(0))
	
	If objFSO.FileExists(strSourceFile) Then
		Select Case LCase(objFSO.GetExtensionName(strSourceFile))
			Case "xls", "xlsx"
				Set objExcel = WScript.CreateObject("Excel.Application")
				
				With objExcel.Workbooks.Open(strSourceFile)
					boolFound = False
					
					For Each objWorksheet In .WorkSheets
						If StrComp(objWorksheet.Name, strWorksheetName, vbTextCompare) = 0 Then
							boolFound = True
							
							arrParts = Split(objFSO.GetBaseName(strSourceFile), strPartsDelimiter)
							
							If IsArray(arrParts) And UBound(arrParts) = 1 Then
								objWorksheet.Cells.Item(3, 2).Value = Replace(arrParts(0), "_", " ")
								
								WScript.Echo objWorksheet.Cells.Item(3, 2).Value
								
								If IsDate(arrParts(1)) Then
									objWorksheet.Cells.Item(1, 2).Value = "Отчет за " & FormatDateTime(CDate(arrParts(1)), vbLongDate)
									WScript.Echo objWorksheet.Cells.Item(1, 2).Value
								Else
									WScript.Echo "Can't translate part [" & arrParts(1) & "] of file name [" & objFSO.GetBaseName(strSourceFile) & "] as date."
								End If
							Else
								WScript.Echo "Can't parse file name [" & objFSO.GetBaseName(strSourceFile) & "] by delimiter [" & strPartsDelimiter & "]."
							End If
							
							Exit For
						End If
					Next
					
					If boolFound Then
						.Save
					Else
						WScript.Echo "Can't find worksheet [" & strWorksheetName & "] in [" & strSourceFile & "]."
					End If
				End With
				
				objExcel.Quit
				Set objExcel = Nothing
			Case Else
				' Nothing to do
		End Select
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source file>"
	WScript.Quit 1
End If

WScript.Quit 0

[DUNAEV78]

DJ Mogarych, файл уже существует такой как в примере

[DUNAEV78]

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

FName = "Z:\Box_In\Дунаев_Д.П._ОТЧЕТ 19.12.2019.xlsx"

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

FName = "Z:\Box_In\Дунаев_Д.П._ОТЧЕТ 19.12.2019.xlsx"

Iska, запускаю - сообщение - и ни чего не происходит

[DUNAEV78]

Iska, запускаю - сообщение - и ни чего не происходит

[megaloman]

DUNAEV78, Объясните:
Имеется файл, например "Дунаев_Д.П._ОТЧЕТ ДД.ММ.ГГГГ.xlsx"
То есть, его создавать не нужно, сегодня существует файл "Дунаев_Д.П._ОТЧЕТ 20.12.2019.xlsx" и туда надо вбить в шапку дату.
Вы хотите чтобы скрипт обращался к файлу с датой в имени.

Код:

FName = "Z:\Box_In\Дунаев_Д.П._ОТЧЕТ ДД.ММ.ГГГГ.xlsx"
ToCell = "B1"

FName = Replace(FName, "ДД.ММ.ГГГГ", Right("0" + CStr(Day(Date)), 2) + "." + Right("0" + CStr(Month(Date)), 2) + "." + CStr(Year(Date)))
Dt = CStr(MonthName(Month(Date)))
Dt = "Отчет за " + Right("0" + CStr(Day(Date)), 2) + " " + Left(Dt, Len(Dt) - 1) + "я " + CStr(Year(Date)) + " г."

With CreateObject("Excel.Application")
    .Visible = True
    .Workbooks.Open FName
    .Range(ToCell) = Dt
    .ActiveWorkbook.Save
    .ActiveWorkbook.Close
    .Quit
End With

Формат даты в имени ДД.ММ.ГГГГ, то есть, например: 01.09.2025

[DUNAEV78]

megaloman, получилось спасибо!, А по поводу пути можно прописать не сам путь а там где и лежит сам файл , просто пути меняются каждый раз

[megaloman]

DUNAEV78, Если не писать словами Декабря, то можно обойтись без скрипта, при условии что у файла называние в формате
"Что угодно ДД.ММ.ГГГГ.xlsx"
Дата возьмется из названия.
Пишем в нужной ячейке формулу:

Код:

="Отчет за "&ПСТР(ЯЧЕЙКА("имяфайла");ПОИСК(".xlsx";ЯЧЕЙКА("имяфайла"))-10;10)&" г."

Разве что при первом вызове таблицы понадобится нажать F9 чтобы дата пересчиталась.
Ваш пример прикрепил
Наверное можно извратиться и написать буквами, но лень.