Вопрос № 89789: Здравствуйте ув. Эксперты!!!
Со временем у меня накопилось большое количество даташитов на импортные и наши детали. Решил их собрать в базу, создал документ в Excell – таблицу с двумя колонками: наименование и краткое описание. В колонке наименов...
Вопрос № 89.789
Здравствуйте ув. Эксперты!!!
Со временем у меня накопилось большое количество даташитов на импортные и наши детали. Решил их собрать в базу, создал документ в Excell – таблицу с двумя колонками: наименование и краткое описание. В колонке наименование - каждый даташит сделал как ссылку на документ ( pdf, djvu).
Возможно, ли сделать так:
1) что бы ссылка открывалась (просмотрщик) в выделенной области ячеек, т.е. в самом документе Excell.
2) что бы база работала с флещки, т.е. документы по ссылке (pdf, djvu) открывались на любом компьютере (не на всех стоят просмотрщики). Просмотрщики могут быть на флешке. Как указать с помощью чего и откуда должен открываться документ (кроме – открыть с помощью)?
Может у кого есть ссылки на программы для создания подобных баз данных, только попроще.
Отправлен: 03.06.2007, 09:29
Вопрос задал: Dusha (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Rewer8
Здравствуйте, Dusha!
Насколь ко я понял у Вас в столбце таблицы Excel записаны имена файлов,
которые должны открываться, тогда можно использовать API-функцию ShellExecute
смотрите приложение. Чтобы всё заработало откройте редактор VBA и создайте
модуль в него скопируйте вот этот код:
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As _
String, ByVal lpszFile As String, ByVal lpszParams As String, _
ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
Public Sub RunTheFile()
Call ShellExecute(Application.hwnd, vbNullString, ActiveWorkbook.Path + "" + ActiveCell.Value, vbNullString, vbNullString, 5)
End Sub
Далее активируйте вкладку ThisWorkBook туда скопируйте следующий код:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
RunTheFile
End Sub
Теперь как это работает:
У ВАс в ячейке таблицы Excel записано имя файла+его расширение. Вы двойным
щелчком левой кнопки мыши щёлкаете по имени и открывается ВАш файл. Но
минус данного метода в том, что программы просмотрщики pdf и дежавю файлов
должны быть всё же установлены в системе(от этого не смог уйти полагаю надо их как то регистрировать если они лежат на флешке) и документы(pdf djvu) должны лежать в той же папке, где и файл электронной таблицы откуда происходит запуск макроса этим обеспечивается запуск их на любом компьютере без проблем изменения пути к файлам.
Вроде всё. Если какие проблемы с работой макроса пишите в личку
УДАЧИ!!!
Приложение:
Ответ отправил: Rewer8 (статус: 10-ый класс)
Ответ отправлен: 03.06.2007, 22:47 Оценка за ответ: 5
