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

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

null@example.com (Flasher) — Thu, 17 Sep 2015 17:14:57 +0000

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

null@example.com (Dedcase) — Thu, 17 Sep 2015 14:43:40 +0000

Surrogate пишет:

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

На первую

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

null@example.com (Surrogate) — Thu, 17 Sep 2015 14:36:29 +0000

Dedcase пишет:

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

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

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

null@example.com (Dedcase) — Thu, 17 Sep 2015 14:06:28 +0000

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