Категории заданий

Макрос Excel "Путь к файлу"

Наталья Исполнитель: Наталья 
Оценка: +1
Отзыв: Спасибо за работу. Отличный исполнитель, рекомендую к сотрудничеству!
Стоимость: 300
Категория: Другое
Время выполнения: 1 час
Поиск кандидата: 0 сек


Подробное описание:

Требуется простой макрос для Excel 2013 и выше. Задача: При выборе ячейки с помощью данной команды, происходит вызов "проводника" и через него нужно вставлять полное имя файла (полное - имеется ввиду путь к файлу и имя файла, включая расширение), путь к папке указанного файла и путь к нескольким указанным файлам. Как можно реализовать запуск выполнения (любой вариант на выбор): - кнопка на панели инструментов - пункт в контекстном меню по правому щелчку мыши - кнопки на листе Выбор одного из вариантов заполнения ячеек: 1) Полный путь, включая имя файла - вставляет в активную ячейку полный путь к указанному файлу(например "C:\Documents and Settings\Мои документы\Мои рисунки\Новый рисунок (1).jpg"). 2) Путь только к папке с указанным файлом - вставляет в активную ячейку путь к папке, в которой находится указанный файл("C:\Documents and Settings\Мои документы\Мои рисунки"). 3) Занести последовательно в ячейки пути ко всем выбранным файлам - в данном случае Вы выбираете сразу группу файлов и полный путь каждого файла будет занесен в новую ячейку, начиная от активной. 4) Только имена выбранных файлов 4.1) Только имена выбранных файлов без расширений В качестве исходного кода можно реализовать на этом (клик по кнопке на листе) через методы FileDialog и GetOpenFilename: Sub ShowFileDialog() Dim oFD As FileDialog Dim x, lf As Long 'назначаем переменной ссылку на экземпляр диалога Set oFD = Application.FileDialog(msoFileDialogFilePicker) With oFD 'используем короткое обращение к объекту 'так же можно без oFD 'With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = True .Title = "Выбрать файлы отчетов" 'заголовок окна диалога .ButtonName = "Выбрать файлы Excel или текстовые файлы" .Filters.Clear 'очищаем установленные ранее типы файлов .Filters.Add "Images files", "*.jpg*;*.jpeg*", 1 'устанавливаем возможность выбора только файлов Excel .FilterIndex = 2 'устанавливаем тип файлов по умолчанию - Text files(Текстовые файлы) .InitialFileName = "C:\Temp\.jpg" 'назначаем папку отображения и имя файла по умолчанию .InitialView = msoFileDialogViewDetails 'вид диалогового окна(доступно 9 вариантов) If .Show = 0 Then Exit Sub 'показывает диалог 'цикл по коллекции выбранных в диалоге файлов For lf = 1 To .SelectedItems.Count x = .SelectedItems(lf) 'считываем полный путь к файлу 'Workbooks.Open x 'открытие книги 'можно также без х 'Workbooks.Open .SelectedItems(lf) Cells(lf + 8, 1).Value = .SelectedItems(lf) Next End With MsgBox "Пути с именами файлов записаны, начиная с ячейки A9" End Sub Полностью раскрытую тему, как это сделать можно найти на странице: http://www.excel-vba.ru/chto-umeet-excel/dialogovoe-okno-vybora-fajlovpapki/ Там же можно скачать файл пример под статьей. Поэтому реализовать такое реально за 30 минут.

Рассказать друзьям

Подпишитесь на полезные статьи

Примеры заданий и практические советы по аутсорсингу задач

   



На дайджест уже подписалось 555214 читателей!

Присоединяйтесь к нам в соцсетях!