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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти местоположение файла
Найти местоположение файла
pechkin Дата: Воскресенье, 07.02.2016, 17:16 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 208
Репутация: 27 ±
Замечаний: 0% ±

2003
Здравствуйте! Прошу подсказать решение следующего вопроса. Ранее создавал тему по сохранению копии файла в определенную папку (Еще раз спасибо AndreTM и всем откликнувшимся) задача усложняется Рабочий файл находится на флэшке и в разных компьютерах флэшка именуется по разному. Необходимо, чтобы при открытии файла Макрос определял его "положение" и создавалась папка типа "Буква диска с файлом:\Копии\"
Спасибо!
 
Ответить
СообщениеЗдравствуйте! Прошу подсказать решение следующего вопроса. Ранее создавал тему по сохранению копии файла в определенную папку (Еще раз спасибо AndreTM и всем откликнувшимся) задача усложняется Рабочий файл находится на флэшке и в разных компьютерах флэшка именуется по разному. Необходимо, чтобы при открытии файла Макрос определял его "положение" и создавалась папка типа "Буква диска с файлом:\Копии\"
Спасибо!

Автор - pechkin
Дата добавления - 07.02.2016 в 17:16
RAN Дата: Воскресенье, 07.02.2016, 17:20 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4301
Репутация: 839 ±
Замечаний: 0% ±

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


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
ThisWorkbook.Path
[/vba] и выцарапывайте нужное.

Автор - RAN
Дата добавления - 07.02.2016 в 17:20
TimSha Дата: Воскресенье, 07.02.2016, 17:27 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 491
Репутация: 76 ±
Замечаний: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 208
Репутация: 27 ±
Замечаний: 0% ±

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


Сообщение отредактировал pechkin - Воскресенье, 07.02.2016, 17:44
 
Ответить
СообщениеСпасибо за ответ!
В файле Макрос (AndreTM hands ) который сохраняет файлы в конкретную папку "D:\Копии\.
Подскажите как ее заменить на другую созданную при открытии файла

Автор - pechkin
Дата добавления - 07.02.2016 в 17:37
RAN Дата: Воскресенье, 07.02.2016, 18:15 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4301
Репутация: 839 ±
Замечаний: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 208
Репутация: 27 ±
Замечаний: 0% ±

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

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


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

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

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

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