расчет мощности в заданые часы

[boa]

выбираю внешний источник данных, выбираю подключение, а там пусто.

А вкладка Таблицы у вас есть(Clip3.jpg)? она тоже пустая?

[mixail64]

Нет даже вкладки "Таблица" только "Существующие подключения"

[mixail64]

это фото экранов

[boa]

Добавил в файл макрос и форму
Для создания нового коннекта запустите макрос AddCoonectToTables

после этого создайте на основе созданного коннекта сводную таблицу

[boa]

А вот и сам файл
    Следующая строка должна создавать сводную таблицу на основе созданного коннекта, но не работает
    выдает ошибку "Потеряна связь с Microsoft Excel для просмотра присоединенных листов". Причину нагуглить не смог
    Может кто-то знает причину и поможет отредактировать.
   

Код Выделить Развернуть

ThisWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:=NewConn).CreatePivotTable TableDestination:=Selection(1)

P.S.

Такие вещи проще делать сводной таблицей

Да уж, не получилось "проще"

[mixail64]

Да все совсем не просто. Сделал как написано, все получилось и пришел к той же ошибке

[boa]

...все получилось и пришел к той же ошибке

что опять не так?

[mixail64]

Нет все получилось, то компьютер глюкнул. А так при смене часов все пересчитывает, т.е. то что мне хотелось. Благодаря Вам я узнал много нового. Огромное Вам спасибо!!!

[mixail64]

А вообще это для сравнения стоимости электроэнергии по ценовым категориям, может еще кому то понадобится.

[boa]

А вообще, суть решения была в построение сводной таблицы из двух диапазонов
тема избитая...
может, как-то я этот макрос доработаю..., выложу в готовые решения. Идей много.
сейчас у меня есть макрос который создает OLEDB-коннекты для экселевских, текстовых и аксесовских файлов. sql'ку я потом дописываю ручками. а вот вариант с программным созданием sql-запроса, думаю, имеет путевку в жизнь...
если тема интересна - пишите комменты или в личку