Форум: "Основная";
Поиск по всему сайту: 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.052 c
1-94454           Decoda                2002-04-15 21:38  2002.04.29  
А можно не изобретать велосипед ?


3-94317           AndreyP               2002-04-09 13:23  2002.04.29  
Показ результата выборки


14-94552          drpass                2002-03-22 18:54  2002.04.29  
О тупости клиентов


14-94546          yakshe                2002-03-05 04:37  2002.04.29  
Необычный вопрос.


1-94519           stormick              2002-04-16 23:34  2002.04.29  
Listbox....