Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.29;
Скачать: CL | DM;

Вниз

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

 
ymin ©   (2002-04-15 14:48) [0]

Как организовать передачу данных из StringGrid в файл Excel?


 
Song ©   (2002-04-15 14:49) [1]

А поискать?


 
ymin ©   (2002-04-15 15:03) [2]

Поискал, но ничего не понял :(


 
Леха_   (2002-04-15 15:50) [3]

Иди на королевство там на эту тему есть прекрасные статьи


 
AFROLOV ©   (2002-04-15 17:17) [4]

http://www.afalinasoft.com/rus/tips/index.html


 
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;



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.008 c
1-94422
dimonf
2002-04-17 19:50
2002.04.29
Подскажите, как правильно позиционировать TPanel и StringGrid?


3-94304
dr_neo_rostov
2002-04-08 21:48
2002.04.29
Найти Самый ЛУЧШИЙ SQL


7-94602
Diana
2002-01-30 21:32
2002.04.29
Подскажите что я не так сделала....


3-94341
Alex Y
2002-04-10 04:35
2002.04.29
SQL запрос


1-94506
LazorenkoX
2002-04-16 09:26
2002.04.29
record; packed record