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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2022, 17:47   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию не указывать явно диск при открытии директории просмотра

Ребята подскажите! возможно ли прописать путь (не указывая явно диск) сохранении файла таким же как и открытие директории для просмотра код:
файл и папка лежат всегда рядом в одной директории
Код:

‘путь, так сохраняю файл 
s = ThisWorkbook.Path & "\ЗАЯВКИ\Заявка_ЗИП\"  

ThisWorkbook.FollowHyperlink  "C:\Users\User\Desktop\ЗАЯВКИ\Заявка_ЗИП\"
‘путь, так открываю путь куда сохранил файл
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 12.02.2022, 18:31   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

ThisWorkbook.FollowHyperlink s
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.02.2022, 19:02   #3
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

IgorGO, Дико прошу прощения, допустил не точность в описании пути
дело в том что в пути "сохранения" прописано так:
Код:
дополнительно прикрепляется имя папки, имя файла и расширение
s = ThisWorkbook.Path & "\ЗАЯВКИ\Заявка_БТ\" & Format(Date, "mmmm yyyy") & "\заявка от " _
  & sbt.Cells(LastRow, 4) & " на " & BTDate & ".jpg"
если только создать еще одну переменную с тем путем что требовалось
Код:
Dim dcr
dcr = ThisWorkbook.Path & "\ЗАЯВКИ\Заявка_БТ\" & Format(Date, "mmmm yyyy")
 и тогда уже
ThisWorkbook.FollowHyperlink dcr
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!

Последний раз редактировалось DMITRIY_78; 12.02.2022 в 19:09.
DMITRIY_78 вне форума Ответить с цитированием
Старый 12.02.2022, 19:14   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

на самом деле мне по-барабану
вы получаете настолько точный ответ насколько четко описали задачу
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.02.2022, 19:23   #5
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

IgorGO, СПАСИБО хоть на мысль навели, тема закрыта
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
phpbb:subsilver2, изменение ширины блока смайлов(при ответе), или почему браузеры игнорят явно заданую ширину ячейки? Пепел Феникса HTML и CSS 1 25.06.2012 09:29
Программа для просмотра файлов, не записанных на диск Tolias Софт 6 13.01.2012 14:34
Скрытие панелей инструментов при открытии и отображение при закрытии документа Василий. Microsoft Office Word 0 23.10.2010 00:41
Проблема при открытии базы при помощи ADO SlavaSH БД в Delphi 21 30.06.2009 16:51
Программа просмотра файлов в директории asale Microsoft Office Excel 4 06.01.2009 13:53