Создать список файлов в виде гиперсылок на листе.

Пользователь

Сообщений: 88 Регистрация: 01.01.1970

03.08.2010 14:14:36

Здравствуйте!
Искал на форуме но нешел. Может кто-то сталкивался с моей проблемой и есть готовое решение.
Шеф озадачил, а я не спец ))) Заранее всем спасибо.
суть такова: есть на диске (или в сети) папка (возможно с подпапками)(как вариант -несколько папок) куда сбрасывают разнообразные файлы (как правило отчеты вордовские и екзклевские).
Необходимо на листе разместить кнопку при нажатии на которую на данном листе строиться список файлов из этой папки (этих папок) (по их названию) в виде гиперссылок (чтоб при нажатии на нее можно было открыть документ).
Еще раз сенкс за помощь.

Marchuk

Пользователь

Сообщений: 1167 Регистрация: 01.01.1970

03.08.2010 14:29:58

Microsoft Scripting Runtime - вот это Вам в помощь.
Далее сами.

Sub ScanW()
Dim FSys As New FileSystemObject
MyPath = "w:\" ' Set the path.
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
ActiveWorkbook.Sheets(1).Range("a2").Select
Do While MyName <> "" ' Start the loop.
' Ignore the current directory and the encompassing directory.
If MyName <> "." And MyName <> ".." Then
' Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
Debug.Print MyName ' Display entry only if it
Set qn = FSys.GetFolder(MyPath & MyName & "\")
'Debug.Print "Полный путь " & qn.Path
ActiveCell.Value = qn.Path
'Debug.Print "Дата создания " & qn.DateCreated
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = qn.DateCreated
'Debug.Print "Размер папки " & qn.Size
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = qn.Size
ActiveCell.Offset(1, -2).Select
End If ' it represents a directory.
End If
MyName = Dir ' Get next entry.
Loop

Debug.Print "Имя папки " & qn.Name
Debug.Print "Полный путь " & qn.Path
Debug.Print "Дата создания " & qn.DateCreated
Debug.Print "Размер папки " & qn.Size

End Sub

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#3 03.08.2010 14:31:34 Плохо искали... Вот ещё посмотрите обсуждение: http://www.planetaexcel.ru/forum.php/?thread_id=14686

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#4 03.08.2010 14:53:10 Посмотрите готовое решение в файле: http://excelvba.ru/XL_Files/Sample__03-08-2010__16-52-05.zip <BR>Функция поиска файлов взята отсюда: http://excelvba.ru/code/FilenamesCollection Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

mirvaal Пользователь Сообщений: 88 Регистрация: 01.01.1970	#5 09.08.2010 08:56:24 Спасибо всем еще раз огромное.

Читают тему