Ребята, помогите с экспортом данных в Excel Из dbgrideh
Привожу рабочий код , но проблема что мне в первой строке Excel файла нужно выводить имена столбцов, а уже во второй писать данные.
Сейчас получается, что названия столбцов затирают первую строку.
То есть , если убрать названия столбцов
Код:
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,1] := 'MARKA';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,2] := 'DEVICE';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,3] := 'ADDRESS';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,4] := 'FIO';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,5] := 'DATE';
, тогда экспортирует правильно. Но мне нужно с названиями колонок
Код:
procedure Timport.BitBtn1Click(Sender: TObject);
var
ExcelApp: Variant;
v_file: String;
begin
v_file:=('Импорт.xls');
SaveDialog1.FileName:=v_file;
If SaveDialog1.Execute then
begin
v_file:=SaveDialog1.FileName;
If FileExists(v_file) then
begin
If Application.MessageBox(PChar('Файл "'+v_file+
'" уже существует.'+#13+'Заменить существующий файл?'),
'Сохранение',MB_YESNO+MB_ICONWARNING)<>6 then
Exit;
end;
SaveDBGridEhToExportFile(TDBGridEhExportAsXLS,
form2.DBGridEh1,v_file,True);
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open(v_file);
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,1] := 'MARKA';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,2] := 'DEVICE';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,3] := 'ADDRESS';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,4] := 'FIO';
ExcelApp.WorkBooks[1].WorkSheets[1].Cells[1,5] := 'DATE';
ExcelApp.Columns.AutoFit;
ExcelApp.ActiveSheet.UsedRange.Columns.Borders.LineStyle:=1;
ExcelApp.ActiveSheet.UsedRange.Rows.Borders.LineStyle:=1;
ExcelApp.Workbooks.Close; //закрываем
ExcelApp.Quit ;
ExcelApp := Unassigned;
If Application.MessageBox(PChar('Файл "'+v_file+'" - сохранен'+
#13+'Открыть?'),'Вопрос',
MB_YESNO+MB_ICONQUESTION)=6 then
begin
ExcelApp := CreateOleObject('Excel.Application');
ExcelApp.WorkBooks.Open(v_file);
ExcelApp.Visible := true;
ExcelApp:=UnAssigned
end;
DBGridEh1.SetFocus;
import.Button5.Enabled:=true;
end;
end;
Спасибо