| Вопрос: линк на папку | Добавлено: 29.09.06 02:01 |
Автор вопроса:  ayla_s
|
|
как можно зделать так чтоб при клике на определьенную ячейку с именем произошол поиск на папке файла с именем на ячейке.
былабы очень блогадарна если бы помагли решить эту задачу. P.S. izvenyayus esli ne napisala chtoto ne tak. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #1 | Добавлено: 29.09.06 10:13 |
|
Если в ячейке указано имя файла с полным абсолютным путем к нему (например: C:\temp\my file.xls), то можно сделать так:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim m As Integer m = InStrRev(Target.Value, "\", , vbTextCompare) With Application.FileSearch .LookIn = Mid(Target.Value, 1, m - 1) .Filename = Mid(Target.Value, m + 1) .Execute If .FoundFiles.Count > 0 Then MsgBox "Есть такой файл:" & vbCrLf & Target.Value Else MsgBox "Не найден файл:" & vbCrLf & Target.Value End If End With End Sub Этот код нужно вставить в модуль листа, где такая проверка должна работать (чтобы войти в окно модуля именно этого листа можно выбрать из контекстного меню, выпадающего по правой клавише мыши на ярлыке этого листа, выбрать "Исходный текст"  .
После вставки кода и при условии включенной работы макросов при двойном клике на ячеке с именем файла (с полным путем до него) будет происходить проверка существования указанного в этой ячейке файла. |
||
Страница: 1 |