Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 06.01.2009, 12:20   #1
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию Программа просмотра файлов в директории

Добрый день.
Всех с наступившим НГ.

Подскажите, пжл, нужна помощь, возможно такое сделать в Excel, чтобы Excel показывал сколько файлов в директории (специальной) и показывал список файлов в этой директории по дате файла?
asale вне форума
Старый 06.01.2009, 12:27   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Посмотрите эту тему. Может, подойдёт...
EducatedFool вне форума
Старый 06.01.2009, 12:41   #3
asale
Форумчанин
 
Регистрация: 09.01.2007
Сообщений: 108
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Посмотрите эту тему. Может, подойдёт...
Супер, а еще гиперссылку на данный файл можно сделать?
asale вне форума
Старый 06.01.2009, 13:04   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Вставьте в модуль "Эта книга" следующий код:
Код:
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Column = 1 And Target <> "" Then
        URL = "C:\Temp\" & Target.Value
        On Error Resume Next
        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
    End If

End Sub
Естественно, что вместо "C:\Temp\" должно быть название сканируемой папки.
Можно, например, в коде от EducatedFool объявить "Public" переменную (имя папки или диска) и использовать ее в дальнейшем.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 06.01.2009 в 13:09.
SAS888 вне форума
Старый 06.01.2009, 13:53   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
а еще гиперссылку на данный файл можно сделать?
А что Вы под этим понимаете?
Где будет находиться гиперссылка? Что должно происходить при щелчке на ней?

На данный файл, как и на любой другой файл Excel, можно установить гиперссылку в любом другом файле Excel.

Если при щелчке в сформированном списке файлов должен открываться выбранный файл - то решение изложено SAS888 в предыдущем посте.

Если Вы хотите добавить в контекстное меню папки Проводника пункт типа "Просмотреть список файлов в Excel", и чтоб при выборе этого пункта запускался этот файл, отображая содержимое папки, - то и это возможно, но сложно.
EducatedFool вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Компилятор ресурсов - программа для создания res файлов Terran Софт 16 02.01.2021 23:48
скачивание файла после просмотра рекламы westakof JavaScript, Ajax 3 02.07.2008 15:48
как считать имена файлов из директории и поддерикторий в массив, ХЭЛП uraveselov Microsoft Office Excel 2 10.04.2008 09:50
Защита просмотра файла Антон Шестаков Безопасность, Шифрование 1 13.05.2007 20:33