Открыть файл в той же директории excel - Word и Excel - помощь в работе с программами

Ukurov

Пользователь

Сообщений: 11
Регистрация: 24.02.2014

19.08.2015 10:54:58

Добрый день!
Есть макрос, который открывает файлы находящиеся по определенному адресу, выглядит это так:
WorkBooks.Open Filename:=»C:ЭкономикаБПфайл.xlsx»
Как сделать так, чтобы при перемещении папки «БП» или изменении имени папки макрос всё равно открывал файлы, находящиеся в этой папке (т.е. открывал файлы в текущей папке)?

Источник

Как с помощью макроса открыть файл находящийся в этой же папке?
Объясню на примере.
Имеем: Книга1(с нашим макросом), Книга2(его надо открыть).
Оба файла лежат в папке «D:temp».
Если папка постоянна то открывается все очень просто:

Workbooks.Open Filename:="D:tempКнига2.xlsx"
Но, если поменять путь например «D:1temp» то файл уже не откроется.
Вопрос: Как открыть файл когда путь меняется при условии, что знаем имя файла (Книга2) и они лежат в одной и той же папке?

P.S. Если знаете функцию которая вернет путь к первоначальному(тоесть открытому) файлу то подскажите, это тоже решит проблему. Например:

put={функция ворачивающая путь к файлу} Workbooks.Open Filename:=put & "D:tempКнига2.xlsx"
Заранее при много благодарен.

Workbooks.Open ThisWorkbook.Path & "Книга2.xlsx"

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…
www.excel-vba.ru
Просто СПАСИБО [+оказать+]
Считаешь СПАСИБО мало? Яндекс.Деньги: 41001332272872; WM: R298726502453

put={функция ворачивающая путь к файлу}

put = ThisWorkbook.Path
put = ActiveWorkbook.Path
putExcel = Application.Path
• В первом примере указан путь к файлу, где содержится сама программа, которая в настоящий момент выполняет код VBA.
• Во втором примере указан путь к активному файлу.
• В третьем примере указан путь к папке, в которой установлен MS Excel. При наличии у Вас нескольких версий, укажет путь к версии, в которой Вы работаете в данный момент.

Может и я на что сгожусь … Если сгодился, можете меня по+благодарить+.

Источник

Предположим, вам нужно открыть несколько документов в той же папке с документами, что и в текущей открытой книге, вам нужно будет пройти через проводник, чтобы найти папку и открыть документы. Можем ли мы просто щелкнуть кнопку в Excel, чтобы открыть папку, содержащую текущую книгу? Да, вам пригодятся следующие приемы:

Открыть папку с содержанием текущей книги с формулой
Открыть содержащую папку с VBA
Открыть содержащую папку текущей книги с помощью Kutools for Excel

Открыть папку с содержанием текущей книги с формулой

Если мы сможем получить путь сохранения текущей книги, будет легко открыть содержащую ее папку. На самом деле, мы можем легко получить путь сохранения текущей книги с помощью формулы.

Шаг 1. Выберите пустую ячейку и введите = ЛЕВАЯ (ЯЧЕЙКА («имя файла»); НАЙТИ («[«; ЯЧЕЙКА («имя файла»); 1) -1), то вы получите текущий путь сохранения книги. См. Снимок экрана:

Шаг 2: Скопируйте путь сохранения из ячейки;

Шаг 3. В проводнике окон вставьте путь для сохранения в поле адреса вверху и нажмите клавишу Enter. Затем он открывает папку, содержащую текущую книгу.

Откройте содержащую папку с VBA

1. Нажмите Alt + F11 открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код VBA в Модули окно.

3. Нажмите Run для запуска кода VBA.

Код VBA при открытии содержащей папки:

Application.Dialogs (xlDialogOpen). Показать ActiveWorkbook.Path

Открыть содержащую папку текущей книги с помощью Kutools for Excel

Kutools for Excel‘s Откройте папку содержащие инструмент упростит вашу работу и быстро откроет папку с текущей книгой.

Kutools for Excel включает более 100 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

После нажатия Предприятие > Рабочие инструменты > Откройте папку содержащие, он открывает папку, содержащую текущую книгу. Более того, текущая книга выбирается в папке с документами.

Наблюдения и советы этой статьи мы подготовили на основании опыта команды Kutools for Excel’s Откройте папку содержащие может помочь вам быстро открыть содержащую папку активной книги и выбрать книгу в папке. Нажмите, чтобы узнать больше…

Относительные статьи:

Вставить текущее местоположение файла Excel в ячейку

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник

koliash

0 / 0 / 0

Регистрация: 21.05.2011

Сообщений: 10

Открытие файла в той же папке что и книга

22.05.2011, 20:07. Показов 7737. Ответов 1

Метки нет (Все метки)

Visual Basic

1
2
3

Workbooks.OpenText Filename:='D:Lumexsplumprosecv_tab.txt', Origin:=866 _
        , StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
        14, 1), Array(21, 1), Array(28, 1)), TrailingMinusNumbers:=True

Работает, если вместо полного пути с именем задаю просто имя файла — выдаёт ошибку хотя файл в той же папке.

Visual Basic

1
2
3

Workbooks.OpenText Filename:='secv_tab.txt', Origin:=866 _
        , StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
        14, 1), Array(21, 1), Array(28, 1)), TrailingMinusNumbers:=True

Как с этим боротся?

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	22.05.2011, 20:07
1

Источник

1 Power Query. Знакомство с Power Query В этом уроке мы познакомимся в Power Query.
Зачем нужен Power Query
Как установить Power Query
Как его Настроить
Как изменить запрос 2 Power Query. Подключение XML В этом уроке мы научимся подключаться к файлам в формате XML и импортировать эти данные в Excel. 3 Power Query. Уникальные значения двух столбцов В этом уроке мы получим уникальные значения из двух столбцов таблицы. 4 Power Query. Импорт таблиц PDF Импорт таблиц из файла PDF, импорт таблиц из множества PDF файлов с объединением в один датасет. 5 Power Query. Собрать разбитую строку В этом практическом уроке мы научимся соединять разбитую строку. Этот пример взят из реальной практики одного из спонсоров канала. 6 Power Query. Пивот со счетом В этом уроке мы создадим пивот, в котором будут пронумерованы столбцы. 7 Power Query. Минимальное значение в диапазоне В этом уроке мы найдем минимальное значение в диапазоне строк. 8 Power Query. Нарастающий итог 2 В этом уроке мы изучим еще один способ сделать нарастающий итог в Power Query. 9 Power Query. Нарастающий итог 3 В этом уроке мы разберем еще один способ выполнить нарастающий итог в Power Query. 10 Power Query. Прирост населения Китая В этом уроке мы сравним прирост населения Китая с приростом населения мира в целом за последние 200 лет. 11 Power Query. Повторяющиеся значения в строке В этом уроке разберем как определить есть ли в строке повторения. 12 Power Query. Таблица навигации по функциям М В этом уроке вы узнаете как создать таблицу навигации по всем функциям языка Power Query. 13 Power Query. Удалить запросы и модель данных из книги Разберем как быстро удалить все запросы и модель данных из текущей книги. 14 Power Query. Открыть еще 1 Excel и еще 3 трюка В этом видео я покажу как открыть еще 1 файл Excel, если у вас уже запущен Power Query. 15 Power Query. Подключиться к ZIP архиву Пользовательская функция для подключения к zip файлу. Подключимся к txt файлу, который находится в zip архиве. 16 Power Query. Импорт Word Импортируем таблицу из документа Word. Для спонсоров разберем импорт таблицы с объединенными ячейками. 17 Power Query. Фильтрация списком В этом уроке мы хотим отфильтровать таблицу при помощи списка, например, хотим получить продажи определенных товаров. 18 Power Query. Пользовательская функция Switch В этом уроке мы создадим пользовательскую функцию Switch. 19 Power Query. Информация о формате, Чтение zip В этом уроке мы узнаем как получить информацию о формате ячеек при помощи Power Query. 20 Power Query. Импорт данных из gz В этом уроке мы разберем как импортировать файл в формате gz. 21 Power Query. Удалить лишние пробелы, Text.Split В этом уроке мы научимся удалять лишние пробелы в текстовом столбце таблицы. 22 Power Query. Параметры в SQL-запросе Вы хотите, чтобы в ваш SQL-запрос подставлялось значение из параметра, источником которого является ячейка с листа Excel. 23 Power Query. Параметры в SQL-запросе 2 Ваш запрос очень большой и количество параметров в нем большое. Как организовать все так, чтобы было удобно работать. 24 Power Query. Добавить столбец в каждую таблицу табличного столбца В этом уроке вы узнаете как трансформировать табличный столбец, например, вы сможете добавить столбец индекса внутрь каждой таблицы табличного столбца. 25 Power Query. Интервальный просмотр 1 (ВПР 1) Объединить 2 таблицы с интервальным просмотром = 1. 26 Power Query. Относительный путь к файлу и папке Если ваш источник находится в той же папке, что и отчет, то вы можете указать относительный путь. В таком случае подключение не будет ломаться, если вы запустите файл на другом компьютере. 27 Power Query. Нарастающий итог в каждой категории Применим функцию нарастающего итога не ко всей таблице, а к определенному окну. 28 Power Query. ВПР без Merge или Join Вам нужно подставить данные из столбца другой таблицы. Как это сделать без объединения таблиц.

Источник