Excel+Гиперссылка+ИмяЛиста

[DzenDen1]

Попробуйте ЭТО.

Должно помочь.!!!

Это дейсвительно лажа., не тяните, 2-й рабочий.!!!
Удачи.

[Marina-]

esquire,
Попробуйте ЭТО.

Должно помочь.!!!

Помогите. Хочу создать каталог в EXCEL. На диске лежит много файлов. Как перенести все их так, чтобы не копировать отдельно названия, не создавать в ручную к каждой книге гиперссылку? Спасибо заранее..

[pashulka]

1) Если 'много файлов' - это не более 256, то можно использовать макрофункцию =ФАЙЛЫ() и стандартную функцию рабочего листа =ГИПЕРССЫЛКА()
2) Если файлов больше, то можно воспользоваться макросом

[Marina-]

А можно по подробнее....файлов меньше чем 256....с функцией ГИПЕРССЫЛКА знакома, а вот с макрофункцией =ФАЙЛЫ() нет....

[pashulka]

Вот один из моих старых примеров, где демонстрируются возможности этой самой макрофункции.

А если возникнет необходимость в написании макроса, то можно почитать, например, эту заметку и родить что-то вроде :

Код: Выделить всё

Private Sub Example6_Dir()
    Dim iPath$, iFileName$, iRow&, iHyperlinks As Excel.Hyperlinks
    
    iPath = "C:\Мои документы\" 'укажите (или выберите) свою папку
    iFileName = Dir(iPath) 'Dir(iPath & "*.xl*")
    
    If iFileName <> "" Then
       'Application.ScreenUpdating = False
       
       ActiveSheet.Columns(1).Clear
       Set iHyperlinks = ActiveSheet.Hyperlinks
       Do
          iRow = iRow + 1
          iFileName = Dir
          iHyperlinks.Add Cells(iRow, 1), iPath & iFileName, , , "'" & iFileName
       Loop Until iFileName = ""
       
       'Application.ScreenUpdating = True
    End If
End Sub