1 Тема от Dedcase

  • Dedcase
  • Участник
  • Неактивен

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

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

2 Ответ от Surrogate

  • Surrogate
  • Участник
  • Неактивен

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

Dedcase пишет:

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

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

3 Ответ от Dedcase (изменено: Dedcase, 2015-09-17 18:44:36)

  • Dedcase
  • Участник
  • Неактивен

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

Surrogate пишет:
Dedcase пишет:

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

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

На первую

4 Ответ от Flasher (изменено: Flasher, 2015-09-27 06:25:40)

  • Flasher
  • Заблокирован
  • Неактивен

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

Сперва.

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