|
Вопрос # 5 275/ вопрос решён / |
|
Доброго времени суток, уважаемые эксперты!
У меня такой вопрос, к моей программе подключенна база данных Access в ней есть 5 таблиц с данными. Программа создает определенную отчетность и передает её в Excel, так вот как сделать что бы при выборе определенной таблицы из комбобокса данные которые содержатся в ней загружались в определенный диапозон ячеек в Excel, ну что бы у каждой таблицы был свой диапозон ячеек и данные из одной таблицы не могли записываться в диапозон другой таблицы????
 |
Вопрос задал: Анучин (статус: Посетитель)
Вопрос отправлен: 11 мая 2011, 00:06
Состояние вопроса: решён, ответов: 1.
|
Ответ #1. Отвечает эксперт: Мережников Андрей
Здравствуйте, Анучин!
если известно сколько строк отвести под каждую таблицу, то в чем проблема? Пусть m - максимальное число строк, отводимое под данные из одной таблицы, k - начальное смещение (под заголовок и т.п.), n - номер таблицы по порядку, i - номер записи по порядку из выбранной таблицы, тогда номер строки, куда помещаем данные определяется по формуле: k+(n-1)*m+i-1
 |
Ответ отправил: Мережников Андрей (статус: Абитуриент)
Время отправки: 11 мая 2011, 22:45
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 27; последнее сообщение — 18 мая 2011, 03:06; участников в обсуждении: 3.
Страницы: [« Предыдущая] [1] [2]
|
|
Анучин (статус: Посетитель), 16 мая 2011, 19:31 [#21]:
Мережников Андрей: да я сообразить ни как не могу какой цикл нужно написать
|
|
|
Мережников Андрей (статус: Абитуриент), 16 мая 2011, 19:36 [#22]:
примерно так:
for i:=0 to Combobox.Items.Count-1
do begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= ' select * from '+ sEdit1.Text +' where numtb='+QuotedStr(Combobox.Items.Strings[i]);// если
будете заполнять по имени таблицы, иначе cтрока должна выглядеть так:
//ADOQuery2.SQL.Text:= ' select * from '+ sEdit1.Text +' where numtb='+IntToStr(i);
ADOQuery2.Open;
if ADOQuery2.RecordCount > 0 then
begin
//здесь заполняем лист Excel - лучше вынести это в отдельную процедуру
//здесь же определяем диапазон ячеек по значению i
end;
ADOQuery2.close;
end;
|
|
|
Мережников Андрей (статус: Абитуриент), 16 мая 2011, 20:02 [#24]:
в процедуре заполнения листа Excel. передавать туда параметром i
|
|
|
Анучин (статус: Посетитель), 16 мая 2011, 22:29 [#25]:
Мережников Андрей:
я понимаю что задолбал вас с этим вопросом, но я честно ни как не могу понять , вот куда здесь записывается диапозон ячеек для каждой таблицы????
for i:=0 to Combobox.Items.Count-1
do begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= ' select * from '+ sEdit1.Text +' where numtb='+QuotedStr(Combobox.Items.Strings[i]);
ADOQuery2.Open;
if ADOQuery2.RecordCount > 0 then
begin
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=True;
Workbook:=Excel.Workbooks.Open('C:\Лист.xlsx');
Sheet:= WorkBook.Sheets[1];
i:=6;
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
Sheet.Range['B1', EmptyParam].EntireRow.AutoFit;
Excel.Rows[6].WrapText:=true;
Sheet.Range['B' + IntToStr(i)]:= ADOQuery2.FieldByName('Предмет').AsString;
Sheet.Range['c' + IntToStr(i)]:= ADOQuery2.FieldByName('Экзамеы').AsString;
Sheet.Range['D' + IntToStr(i)]:= ADOQuery2.FieldByName('Зачеты').AsString;
Sheet.Range['E1', EmptyParam].EntireRow.AutoFit;
Sheet.Range['F1', EmptyParam].EntireRow.AutoFit;
Sheet.Range['E' + IntToStr(i)]:= ADOQuery2.FieldByName('Курсовая').AsString;
Sheet.Range['G' + IntToStr(i)]:= ADOQuery2.FieldByName('Всего').AsString;
Sheet.Range['H' + IntToStr(i)]:= ADOQuery2.FieldByName('Теоритические').AsString;
Sheet.Range['I' + IntToStr(i)]:= ADOQuery2.FieldByName('Лабораторно').AsString;
Sheet.Range['J' + IntToStr(i)]:= ADOQuery2.FieldByName('Курсовое').AsString;
ADOQuery2.Next;
i:=i+1
end;
ADOQuery2.Close;
end;
end;
|
|
|
Мережников Андрей (статус: Абитуриент), 17 мая 2011, 06:02 [#26]:
сделать надо так:
Excel:=CreateOleObject('Excel.Application');
Excel.Visible:=True;
Workbook:=Excel.Workbooks.Open('C:\Лист.xlsx');
Sheet:= WorkBook.Sheets[1];
for i:=0 to Combobox.Items.Count-1
do begin
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= ' select * from '+ sEdit1.Text +' where numtb='+QuotedStr(Combobox.Items.Strings[i]);
ADOQuery2.Open;
if ADOQuery2.RecordCount > 0 then
begin
//i:=6;
k:=5+(i-1)*m;
//вместо m подставь количество строк, которое отводишь под диапазон
ADOQuery2.First;
while not ADOQuery2.Eof do
begin
Sheet.Range['B1', EmptyParam].EntireRow.AutoFit;
Excel.Rows[6].WrapText:=true;
Sheet.Range['B' + IntToStr(k)]:= ADOQuery2.FieldByName('Предмет').AsString;
Sheet.Range['c' + IntToStr(k)]:= ADOQuery2.FieldByName('Экзамеы').AsString;
Sheet.Range['D' + IntToStr(k)]:= ADOQuery2.FieldByName('Зачеты').AsString;
Sheet.Range['E1', EmptyParam].EntireRow.AutoFit;
Sheet.Range['F1', EmptyParam].EntireRow.AutoFit;
Sheet.Range['E' + IntToStr(k)]:= ADOQuery2.FieldByName('Курсовая').AsString;
Sheet.Range['G' + IntToStr(k)]:= ADOQuery2.FieldByName('Всего').AsString;
Sheet.Range['H' + IntToStr(k)]:= ADOQuery2.FieldByName('Теоритические').AsString;
Sheet.Range['I' + IntToStr(k)]:= ADOQuery2.FieldByName('Лабораторно').AsString;
Sheet.Range['J' + IntToStr(k)]:= ADOQuery2.FieldByName('Курсовое').AsString;
ADOQuery2.Next;
inc(k);
end;
end;
ADOQuery2.Close;
end;
|
17 мая 2011, 22:55: Статус вопроса изменён на решённый (изменил автор вопроса — Анучин)
|
corban (статус: 2-ой класс), 18 мая 2011, 03:06 [#27]:
а зачем вы делаете Excel видимым перед заполнением? будет притормаживать если данных много, лучше сделать его невидимым - будет быстрее заполнятся, а в конце процедуры при необходимости уже показать...
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
