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

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

2015-09-17T17:14:57Z

Add:
Так что с оверквотингом? Исправлять будем?

File = "C:\Test.xlsx"

Set Excel = CreateObject("Excel.Application")
With Excel.Workbooks.Open(File)
  If .Application.ReferenceStyle = 1 Then _
     RStyle = "A1" Else RStyle = "R1C1"
  Set oSh = .Sheets
  For i = 2 to oSh.Count
    oSh(i).Activate
    oSh(i).Cells(1,1).Hyperlinks.Add Excel.Range("A1"),_
    "", oSh(1).Name & "!" & RStyle, , "Оглавление"
  Next : .Save : .Close
End With : Excel.Quit

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

2015-09-17T14:43:40Z

Surrogate пишет:

Dedcase пишет:
Доброго дня! Существует книга, из 2-х листов. Во второй лист, в 1 ячейку нужно вставить ссылку с названием, скажем, "Оглавление", ссылающуюся на первый лист. Как реализовать это в именно VBS ?
ссылку на какую ячейку первого листа ?

На первую

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

2015-09-17T14:36:29Z

Dedcase пишет:

Доброго дня! Существует книга, из 2-х листов. Во второй лист, в 1 ячейку нужно вставить ссылку с названием, скажем, "Оглавление", ссылающуюся на первый лист. Как реализовать это в именно VBS ?

ссылку на какую ячейку первого листа ?

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

2015-09-17T14:06:28Z

Доброго дня! Существует книга, из 2-х листов. Во второй лист, в 1 ячейку нужно вставить ссылку с названием, скажем, "Оглавление", ссылающуюся на первый лист. Как реализовать это в именно VBS ?