Вызов другого приложения из Excel ? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вызов другого приложения из Excel ?

9 сообщений из 9, страница 1 из 1

Вызов другого приложения из Excel ?

#36835937

I need your help

Гость

Всем доброго дня.
В VBA ни в зуб ногой. Поэтому прошу помощи.

Преамбула :
1. На листе Excel (начиная со второго столбца) есть данные : город, улица, № дома - в разных столбцах.
2. В том же каталоге, где лежит экселевский лист, есть подкаталоги по каждому городу.
3. В каталогах с городами лежат фотографии. Названия сформированы из названия улицы и № дома. 4. Фотографии в формате JPG.

Задача такова :
1. по щелчку на НЕПУСТОЙ строке Экселя показать фото соответсвующую городу, улице и № дома.

Решение, которое выбрал я :
1. На листе будет COMMANDBUTTON, по CLICKу которого в первом столбце будут ссылка на макрос. Нименование ссылки будет сформировано из город+улица+№ дома
2. По щелчку на ссылку активируется макрос, который определяет текущую директорию, определяет путь к соответсвующей фото.
3. Затем вызывает фото на показ. Посредством какой программы будет показано фото - не имеет значение. ShellExecute - вызовет приложение по умолчанию.

Собственно вопрос :
1. Как организовать ссылки - наверняка разберусь по форуму. Но если подскажете решение, то хорошо
2. Как орпределить текущую директорию ? Хотя бы название функции
3. Как вызывать сторонние программы ?
Declare Long ShellExecute in Shell32 - на такое объявление ругается.
4. Если есть готовое решение - буду очень признателен.
5. Если есть другие пути - буду очень признателен.

Заранее всем спасибо.

...

Рейтинг:

0 / 0

08.09.2010, 14:08

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36835993

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

не надо гемор разводить такой.

на вскидку - как минимум два варианта без организации подключений (в обоих одно условие - список должен быть статический)
1. добавить фотки в ячейки
2. добавить фотки ниже и скрывать/отображать их по средствам группировки строк средствами excel

...

Рейтинг:

0 / 0

08.09.2010, 14:26

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36836001

Aster32

Гость

Нафиг такие сложности. Вставьте на каждой строке гиперссылку на соответствующий файл фотографии. Всё. Фотография откроется в браузере.

...

Рейтинг:

0 / 0

08.09.2010, 14:28

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36836143

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

у меня появилась ещё одна идея, на этот раз с использованием userform, что изначально представляется самым логичным, просто я сегодня туговат.
я не делал, как в описании шифруются имена городов из имени, улицы и т.д..
у меня в приложении две фотки, поместите их в папку и не забудьте поменять в коде соответствующий адрес на свой.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Column =  1 ) And (Target.Value <> "") Then
        UserForm1.Image1.Picture = LoadPicture("ваш адрес\ваша папка" & Target.Value & ".JPG")
        If UserForm1.Visible = False Then
            UserForm1.Show
        End If
    End If
End Sub

чтобы завести прогу, разрештие макросы и активируйте ачейки A1 или A2.

...

Рейтинг:

0 / 0

08.09.2010, 15:06

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36836328

Cursky

Участник

Сообщения: 164

Рейтинг: 0 / 0

I need your help
2. Как орпределить текущую директорию ? Хотя бы название функции
3. Как вызывать сторонние программы ?

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Sub OpenPicture()
    Dim strPath As String, strFile As String, strPictureName As String
    Dim RetVal As Long
    strPath = ThisWorkbook.Path & "\" 'Путь к файлу Excel
    strFile = ThisWorkbook.Name
    strPictureName = "Безымянный1.jpg"
    RetVal = Shell("E:\Program Files\IrfanView\i_view32.exe" & " " & strPath & strPictureName, vbMinimizedFocus)
End Sub

...

Рейтинг:

0 / 0

08.09.2010, 16:06

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36836386

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

PlanB1. добавить фотки в ячейкисори, речь шла о примечаниях. описано тут

...

Рейтинг:

0 / 0

08.09.2010, 16:24

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36837236

I need your help

Гость

Всем преогромное спасибо за помощь.
Великая вещь - форумы !!!

...

Рейтинг:

0 / 0

09.09.2010, 06:53

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36837269

PlanB

Участник

Откуда: Moscow

Сообщения: 2 731

Рейтинг: 0 / 0

I need your helpВсем преогромное спасибо за помощь.
Великая вещь - форумы !!!помогло?

...

Рейтинг:

0 / 0

09.09.2010, 09:20

| Ответить | Цитировать | Написать

Вызов другого приложения из Excel ?

#36843219

I need your htlp

Гость

Да, спасибо.
Я воспользовался советами и ответами Cursky, PlanB и RTFM. Пару часов работы с напильником.
В итоге получилось то, что надо.

...

Рейтинг:

0 / 0

13.09.2010, 12:02

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Вызов другого приложения из Excel ?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=36836386&tid=2177689]:	0ms
get settings:	8ms
get forum list:	17ms
check forum access:	4ms
check topic access:	4ms
track hit:	193ms
get topic data:	10ms
get forum data:	2ms
get page messages:	41ms
get tp. blocked users:	1ms
others:	241ms

total:	521ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы