mail mail
Нужен макрос для Excel?
Сделайте заказ прямо сейчас!
Ищете готовое решение?
Выбирайте и покупайте!
У вас есть интернет-магазин?
Настроим парсер под любой сайт!

Нужна аналогичная программа (надстройка, макрос) для Excel?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.

Загрузка данных из текстового файла в таблицу Excel

Скриншот программы загрузки списка температур из текстового файла

Макрос предназначен для загрузки данных из выбранного текстового файла.

В данном примере макрос загружает из текстового файла (формата CSV) список минимальных и максимальных температур за указанный год.

Год выбирается на листе из выпадающего списка.

На листе запуска всего 2 кнопки - первая запускает макрос загрузки данных, вторая - очищает заполненную таблицу.

В демонстрационных целях в программу введена дополнительная опция "Отключить пересчёт формул":

  • при установленной галочке загрузка данных происходит моментально, так как отлючаются обновление экрана и пересчёт формул
  • при снятой галочке макрос работает намного медленнее, но зато "эффектнее" - по мере добавления строк в таблицу формулы пересчитываются, и видно, как в итоговой таблице накапливаются результаты вычислений

 

В прикреплённом архиве - файл Excel с макросом (LoadTemperatures.xls), и текстовый файл (temperature.txt) с данными о температурах за несколько лет.

(именно на этом текстовом файле можно протестировать работу программы)

 

 

ВложениеРазмерЗагрузкиПоследняя загрузка
LoadTemperatures.zip72.63 КБ63 года 3 недели назад

Комментарии

Все правильно. Наглеть не буду. Сам понял как:
Для тех кто хочет останавливать добавление строк в таблицу, перед
cell = dat
cell.entirerow.cells(7) = arr(2) ' вторая запись - в 7 столбец
cell.entirerow.cells(5) = arr(3) ' третья запись - в 5 столбец
вставляем
If arr(0) = "" Then Exit For

Александр, техподдержка по бесплатным макросам не предоставляется.
Можем сделать макрос под ваши нужды под заказ, если готовы оплатить.

Добрый день.
Макрос считывает все строки из файла, в том числе и пустые.
Хотел остановить цикл FOR когда в перой ячейке нечего нет:
If arr(0) = "" Then
Но как это лучше сделать?

Большое спасибо. Помогло.

Александр, попробуйте так:

cell = dat
cell.entirerow.cells(7) = arr(2) ' вторая запись - в 7 столбец
cell.entirerow.cells(5) = arr(3) ' третья запись - в 5 столбец

Добрый день.
Подскажите пожалуйста по данному макросу, где можно посмотреть пример вставки не по порядку, а в определенной последовательности?

Например из файла txt 2-ю запись после разделителя вставляем в 7-ой столбец, 3-ю запись в 5-й столбец и т.д. в зависимости от мною указанного порядка.

Часть Вашего кода:
'Добавляем строку в таблицу, начиная с найденной ячейки
cell = dat
cell.Next = arr(10) ' min temp
cell.Next.Next = arr(11) ' max temp

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
        _____                   ____   _     
____ |___ | __ _ ___ / ___| | |__
|_ / / / / _` | / __| | | | '_ \
/ / / / | (_| | | (__ | |___ | |_) |
/___| /_/ \__,_| \___| \____| |_.__/
Введите код, изображенный в стиле ASCII-арт.