Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Найти местоположение файла - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти местоположение файла
Найти местоположение файла
pechkin Дата: Воскресенье, 07.02.2016, 17:16 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Прошу подсказать решение следующего вопроса. Ранее создавал тему по сохранению копии файла в определенную папку (Еще раз спасибо AndreTM и всем откликнувшимся) задача усложняется Рабочий файл находится на флэшке и в разных компьютерах флэшка именуется по разному. Необходимо, чтобы при открытии файла Макрос определял его "положение" и создавалась папка типа "Буква диска с файлом:\Копии\"
Спасибо!
 
Ответить
СообщениеЗдравствуйте! Прошу подсказать решение следующего вопроса. Ранее создавал тему по сохранению копии файла в определенную папку (Еще раз спасибо AndreTM и всем откликнувшимся) задача усложняется Рабочий файл находится на флэшке и в разных компьютерах флэшка именуется по разному. Необходимо, чтобы при открытии файла Макрос определял его "положение" и создавалась папка типа "Буква диска с файлом:\Копии\"
Спасибо!
Автор - pechkin
Дата добавления - 07.02.2016 в 17:16
RAN Дата: Воскресенье, 07.02.2016, 17:20 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
ThisWorkbook.Path
[/vba] и выцарапывайте нужное.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
ThisWorkbook.Path
[/vba] и выцарапывайте нужное.
Автор - RAN
Дата добавления - 07.02.2016 в 17:20
TimSha Дата: Воскресенье, 07.02.2016, 17:27 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 94 ±
Замечаний: 0% ±

Excel 2013 Pro +
А мо быть так... ;)
Код
=ЯЧЕЙКА("имяфайла")

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Сообщение отредактировал TimSha - Воскресенье, 07.02.2016, 17:46
 
Ответить
СообщениеА мо быть так... ;)
Код
=ЯЧЕЙКА("имяфайла")
Автор - TimSha
Дата добавления - 07.02.2016 в 17:27
pechkin Дата: Воскресенье, 07.02.2016, 17:37 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Спасибо за ответ!
В файле Макрос (AndreTM hands ) который сохраняет файлы в конкретную папку "D:\Копии\.
Подскажите как ее заменить на другую созданную при открытии файла
К сообщению приложен файл: 3891192.xls (27.0 Kb)


Сообщение отредактировал pechkin - Воскресенье, 07.02.2016, 17:44
 
Ответить
СообщениеСпасибо за ответ!
В файле Макрос (AndreTM hands ) который сохраняет файлы в конкретную папку "D:\Копии\.
Подскажите как ее заменить на другую созданную при открытии файла
Автор - pechkin
Дата добавления - 07.02.2016 в 17:37
RAN Дата: Воскресенье, 07.02.2016, 18:15 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Тяжела она, шапка Мономаха? :D
[vba]
Код
FolderName = Split(ThisWorkbook.Path, ":")(0) & ":\Копии\"
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеТяжела она, шапка Мономаха? :D
[vba]
Код
FolderName = Split(ThisWorkbook.Path, ":")(0) & ":\Копии\"
[/vba]
Автор - RAN
Дата добавления - 07.02.2016 в 18:15
pechkin Дата: Воскресенье, 07.02.2016, 18:47 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 332
Репутация: 49 ±
Замечаний: 0% ±

2003
Спасибо!
Цитата
Тяжела она, шапка Мономаха?

Почти 994 грамма!


Сообщение отредактировал pechkin - Воскресенье, 07.02.2016, 18:51
 
Ответить
СообщениеСпасибо!
Цитата
Тяжела она, шапка Мономаха?

Почти 994 грамма!
Автор - pechkin
Дата добавления - 07.02.2016 в 18:47
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти местоположение файла
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!