Вставка ссылки на первый лист в ячейку Excel с помощью VBS

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

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

Код:

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

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