из StringGrid в файл Excel?

← →
agrig (2002-04-15 20:08) [5]

Привет коллега!
Как я понимаю, тебе через ClipBoard.
Как-то писалась такая вещь. у меня для таблицы БД, но я думаю, ты разберешь:)
процедурка загружает, ты открываешь Excel им копируешь!

//======================================================================================
//========КОПИРОВАНИЕ В CLIPBOARD=================
procedure TDataModule1.CopyTableToClipboard(DataSet: TDataSet; aFieldNames, aExcelCaptions: TStrings);
var x : Word;
HeaderRow : string;
Clip : TClipboard;
TempStr : TStrings;
TableRow : string;
begin
if Assigned(DataSet) = False then Exit;
if DataSet.Fields.Count = 0 then begin
raise Exception.Create(NO_FIELDS_IN_DATASET);
end; // END IF

TempStr := TStringList.Create;
Clip := TClipboard.Create;
HeaderRow := "";
try
//заголовки
DataSet.First;
for x := 0 to aExcelCaptions.Count - 1 do begin
HeaderRow := HeaderRow + aExcelCaptions.Strings[x] + #9;
end; // END FOR
if HeaderRow[Length(HeaderRow)] = #9 then
HeaderRow[Length(HeaderRow)] := " ";
HeaderRow := TrimRight(HeaderRow);
TempStr.Append(HeaderRow);

//данные
while not DataSet.EOF do begin
for x := 0 to aFieldNames.Count - 1 do begin
TableRow := TableRow + fieldToStr(DataSet.FieldByName(aFieldNames.Strings[x])) + #9;
end; // END FOR
if TableRow[Length(TableRow)] = #9 then
TableRow[Length(TableRow)] := " ";
TableRow := TrimRight(TableRow);
TempStr.Append(TableRow);
TableRow := "";
DataSet.Next;
end; // END WHILE
Clip.AsText := TempStr.Text;
finally
TempStr.Free;
Clip.Free;
end; // END TRY FINALLY
end;

из StringGrid в файл Excel? Найти похожие ветки