Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.10.2012, 10:05   #1
ins813
Форумчанин
 
Регистрация: 18.05.2012
Сообщений: 111
По умолчанию Вывод данных из DBrida в уже существующую таблицу Excel

Немного подразобрался,вот код
Код Delphi
var
exApp, exBook, exSheet, exRng, exRngTop,v : Variant;
i, Cnt, Row : Integer;
Dt1, Dt2 : TDateTime;
begin
//Подключение к БД.
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text :='SELECT date,time,name,ed_izm,kol_vo,street ,predpr FROM dbo.material';
ADOQuery1.Active:=true;
//Запускаем и подключаемся к экземпляру MS Excel.
exApp := CreateOleObject('Excel.Application' );
//Делаем окно MS Excel видимым.
exApp.Visible := True;
//Создаём рабочую книгу и получаем ссылку на её интерфейс.
//exBook := exApp.WorkBooks.Add;//

exApp.WorkBooks.Open('d:\1.xls'); // открываем существующий файл

//Ссылка на первый лист рабочей книги.
exSheet := exBook.WorkSheets[1];// - Вот сдесь выдает ошибку

First chance exception at $75439617. Exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process Project1.exe (5948)

Если Создаю новую книгу, то все ОК, если загружаю существующую то выскакивает Ошибка выше.

Последний раз редактировалось ins813; 02.10.2012 в 12:54. Причина: Забыл добавить
ins813 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Добавить столбец с данными, из запроса в существующую таблицу. Tolius Microsoft Office Access 0 04.05.2011 16:43
Догрузка данных в ранее загруженную таблицу из Excel artemavd Общие вопросы Delphi 6 18.03.2011 15:06
Добавление данных в таблицу Excel slai Общие вопросы Delphi 1 11.10.2010 06:49
Добавление полей в существующую таблицу. DIgorevich БД в Delphi 7 12.07.2010 15:27
Передача данных из Excel в созданную таблицу Самоучка БД в Delphi 2 06.11.2008 20:53