Гиперссылки в EXCEL

[esquire]

Добрый день!
Такой вопрос...В компании создается библиотечный каталог в EXCEL. На сервере лежит куча заархивированных книг. Как перенести все их "по-умному"? т.е. не копируя отдельно названия, не создавая вручную отедльно каждой книге гиперссылкe? Спасибо заранее..

[SAS888]

Если я правильно понял задачу, то следующий макрос скопирует все файлы с расширением ".rar" из одной папки в другую.
В коде макроса подставьте свои пути к папкам и задайте необходимые параметры для копируемых файлов.

[дмидми]

Другое предположение: требуется список гиперссылок на файлы.

Sub FileHyperlinks()
    Dim SrcPath As String, FileName As String, FileExt, ExtList
    Dim DstWb As Workbook

    SrcPath = CurDir & Application.PathSeparator
    ExtList = Array("rar", "zip", "txt") 'etc.
    
    For Each FileExt In ExtList
        FileName = Dir(SrcPath & "*." & FileExt _
            , vbNormal + vbArchive + vbReadOnly)
        Do While FileName <> ""
            If DstWb Is Nothing Then
                Set DstWb = Workbooks.Add(xlWBATWorksheet)
            End If
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Hyperlinks.Add Anchor:=Selection _
                , Address:=SrcPath & FileName _
                , ScreenTip:=Format(Round( _
                    FileLen(SrcPath & FileName) / 1024)) & " KB" _
                , TextToDisplay:=FileName
            FileName = Dir
        Loop
    Next 'FileExt
End Sub

P.S. esquire, как вы собираетесь ставить задачи компьютеру, если вы не можете внятно поставить задачу человеку?