[Iska]

Можно интерпретировать вот так:

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

Код:

Option Explicit

Dim strSourceWorkbook

Dim objWorksheet


If WScript.Arguments.Count = 1 Then
	With WScript.CreateObject("Scripting.FileSystemObject")
		strSourceWorkbook = .GetAbsolutePathName(WScript.Arguments.Item(0))
		
		If .FileExists(strSourceWorkbook) Then
			Select Case LCase(.GetExtensionName(strSourceWorkbook))
				Case "xls", "xlsx"
					With WScript.CreateObject("Excel.Application")
						With .Workbooks.Open(strSourceWorkbook)
							For Each objWorksheet In .Worksheets
								If Not StrComp(objWorksheet.Name, "Оглавление", vbTextCompare) = 0 Then
									objWorksheet.Hyperlinks.Add objWorksheet.Range("A1"), "", "Оглавление!R1C1", "Перейти к оглавлению", "Оглавление"
								End If
							Next
							
							.Save
							.Close
						End With
						
						.Quit
					End With
				Case Else
					WScript.Echo "Probably not a Excel workbook."
					WScript.Quit 3
			End Select
		Else
			WScript.Echo "Can't find source workbook [" & strSourceWorkbook & "]."
			WScript.Quit 2
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <Source workbook>"
	WScript.Quit 1
End If

WScript.Quit 0

Путь к целевой рабочей книге задаётся аргументом скрипта. Также можно просто перетаскивать целевую рабочую книгу на скрипт в Проводнике.