Excel 2007 автоматическое удаление старых строк при потоковом поступлении новых

[Swindler_1]

Сообщение от doober

Если бы сразу сказали,что время критично,то я пошел бы немного другим путем,но это уже завтра с утра

буду обязательно

[Swindler_1]

"...В свойствах импорта данных можно установить параметр типа "заменить данные при обновлении" или "с точностью до 500 строк", только запрос в MSQuery написать..." /Философ/

Из-за этого сообщения я вчера и полез в MSQuery. Добился автозагрузки, фонового обновления данных (о чем писал ранее), но вот указанных параметров НЕ НАШЕЛ... Возможно Вам эти строки будут более ясны, чем малоопытному в Excel юзеру типа меня.

[doober]

По запросам вам может помочь Евгений ТесленкоTeslenko_EA,он спец в этом вопросе.Запросы -это не мое.
Раздел Microsoft Office Access.Если он прочитает эту тему,думаю что то подскажет

[Swindler_1]

Сообщение от doober

Если бы сразу сказали,что время критично,то я пошел бы немного другим путем,но это уже завтра с утра

Здравствуйте!
А можно проделать этот "другой путь"?

[Swindler_1]

Сообщение от doober

По запросам вам может помочь Евгений ТесленкоTeslenko_EA,он спец в этом вопросе.Запросы -это не мое.
Раздел Microsoft Office Access.Если он прочитает эту тему,думаю что то подскажет

За рекомендацию благодарю! Обращение сделал. Жду ответа Евгения.

[doober]

Другой путь-принцип тот же,позволяет раз в 1 секунду обновляться с файла CSV.Табло секунд-своего рода контроль,если идет пропуск в обновлении файла,соответственно эта секунда не отображается

[Swindler_1]

Результаты:
1. количество строк осталось прежним (1305);
2. таблица постоянно мерцает (я так понимаю - результат отработки цикла, так должно быть?)
3. счетчик циклически отрабатывает 00 - 59;
4. диаграмма построилась штатно, не мерцает, но по 1305 строкам...

Вчерашний (ночной) результат:
1. загрузка обоих ядер проца - 100%
2. Excel тупит непросветно

Сегодняшний вариант куда более удачен, но... 1305 строк...
Подскажите, мож я где-то набаранил?

[doober]

Первоначально надо очистить диапазон с данными,оставить только первую строку.Я не ввел очистку листа.Вставка идет с 2 по 501 строку.Замените на
Выставте 2 секунды,неужели 1 секунда что то решит существенно.У вас Время реакции будет больше
Подберите оптимальное время обновления,чтобы всем было хорошо

Public Sub NextTime()

 Sheets("Лист3").Range("A2:I3000").ClearContents'  добавте эту строку  в начале процедуры
Дальше код
  
End Sub

[Swindler_1]

Сообщение от doober

Первоначально надо очистить диапазон с данными,оставить только первую строку.Я не ввел очистку листа.Вставка идет с 2 по 501 строку...

Период обновления я сразу выставил 10 секунд (о времени реакции с Вами абсолютно согласен).
Строку в начало кода вставил (ну... после "Public Sub NextTime()"), как и следовало ожидать - лист очистился, но проверить работу пока не могу (пт...вс 21:00GMT на рынке выходные). Сегодня 00:00 все покажет.
О результатах сразу отпишусь.

Очистка листа, я так понял, будет происходить при каждом запуске. Верно?

[Swindler_1]

Ой, простите!!!
Все великолепно работает!!!
Проставил значения 300 (для эксперимента); требуемые исторические данные - "на месте". Диаграмма - норма (мерцает раз/10сек) - эт не критично.
После 00:00 отпишусь как все работает в динамике с новыми данными.
В любом случае Вам ОГРОМНАЯ БЛАГОДАРНОСТЬ (об этом позже).
Всего доброго!