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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 26.04.2010, 23:19   #1
DaMadQuest
Пользователь
 
Регистрация: 17.03.2010
Сообщений: 21
Вопрос грид в Excel

подскажите пожалуйста, как сдвинуть грид вниз

у меня следующий код есть, он эскпортирует данные в Excel из DBGrid

Код:
procedure TMainForm.N16Click(Sender: TObject);
var
i,j,index: Integer;
ExcelApp,sheet: Variant;

begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.Visible:=true;
ExcelApp.WorkBooks.Add(-4167);
ExcelApp.WorkBooks[1].WorkSheets[1].name:='***';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['***'];
 Sheet.Range['B2']:='Name';
 Sheet.Range['B3']:='Name';
 Sheet.Range['B4']:='Name';
 Sheet.Range['B5']:='Name';
 Sheet.Range['B6']:='Name';
 Sheet.Range['B7']:='+/-';
index:=3;
DataForm.DBGrid1.DataSource.DataSet.First;
for i:=1 to DataForm.DBGrid1.DataSource.DataSet.RecordCount do
begin
for j:=1 to DataForm.DBGrid1.FieldCount do
sheet.cells[j,index]:=DataForm.DBGrid1.fields[j-1].asstring;
inc(index);
DataForm.DBGrid1.DataSource.DataSet.Next;
end;
end;
он создается в самом верху... помогите пожалуйста, как его передвинуть
DaMadQuest вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Продвинутый грид SONce Компоненты Delphi 10 03.01.2011 17:17
Вопрос про ГРИД Mavlon Помощь студентам 1 13.02.2010 15:41
Нестандартный хороший грид Шульц БД в Delphi 2 07.01.2009 02:17
Обновление ДБ Грид-а opel.omega Общие вопросы Delphi 6 24.11.2008 12:58
Сложный грид pkv БД в Delphi 15 09.11.2007 14:08