Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Вниз

из 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;




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.033 c
1-94419           marlin                2002-04-17 14:39  2002.04.29  
Ввод с клавиатуры в консольном приложении


1-94416           ListView              2002-04-17 19:42  2002.04.29  
Как в ЛистВиеве при щелчке на каком нибуть итемсе получить егоимя


1-94364           KvORubin              2002-04-16 09:15  2002.04.29  
Как коректно дать комманду с одной на другую *.EXE


4-94614           ebeden                2002-02-23 01:51  2002.04.29  
Перехват нажатий клавиш


4-94609           Begunkov              2002-02-21 20:00  2002.04.29  
Блокировка части файла