Нужна аналогичная программа (надстройка, макрос) для Excel?
Оформите заказ, не забыв прикрепить примеры файлов, и описать, что и как должно работать.
Загрузка данных из текстового файла в таблицу Excel |
Макрос предназначен для загрузки данных из выбранного текстового файла.
В данном примере макрос загружает из текстового файла (формата CSV) список минимальных и максимальных температур за указанный год.
Год выбирается на листе из выпадающего списка.
На листе запуска всего 2 кнопки - первая запускает макрос загрузки данных, вторая - очищает заполненную таблицу.
В демонстрационных целях в программу введена дополнительная опция "Отключить пересчёт формул":
- при установленной галочке загрузка данных происходит моментально, так как отлючаются обновление экрана и пересчёт формул
- при снятой галочке макрос работает намного медленнее, но зато "эффектнее" - по мере добавления строк в таблицу формулы пересчитываются, и видно, как в итоговой таблице накапливаются результаты вычислений
В прикреплённом архиве - файл Excel с макросом (LoadTemperatures.xls), и текстовый файл (temperature.txt) с данными о температурах за несколько лет.
(именно на этом текстовом файле можно протестировать работу программы)
- 27050 просмотров
Комментарии
Все правильно. Наглеть не буду. Сам понял как:
Для тех кто хочет останавливать добавление строк в таблицу, перед
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
Отправить комментарий