Сохранение в Excel

← →
vigo_ (2007-10-03 15:20) [0]

Добрый день,
как сохранить данные из TClientDataSet в файл "*.xls"? Какие используются для этого компоненты и т.д. Спасибо.

← →
Сергей М. © (2007-10-03 15:23) [1]

> как сохранить данные из TClientDataSet в файл "*.xls"?

Средствами исключительно TClientDataSet - никак.

> Какие используются для этого компоненты и т.д.

Любые подходящие компоненты, работающие с xls-форматом.

← →
Ping (2007-10-03 15:29) [2]

как сохранить данные из TClientDataSet в файл "*.xls"?

CDS.SaveToFile("c:\data.xls");

:-)

А если еще и так:

CDS.SaveToFile("c:\data.xls", dfXML);

то Excel его даже откроет...

← →
vigo_ (2007-10-03 15:35) [3]

> CDS.SaveToFile("c:\data.xls", dfXML);

Undeclared identifier: "dfXML"

← →
Ping (2007-10-03 16:08) [4]

vigo_ (03.10.07 15:35) [3]

Ты бы список параметров SaveToFile() посмотрел бы в справке.

← →
vigo_ (2007-10-03 16:27) [5]

> Ping (03.10.07 16:08) [4]

параметры я посмотрел, надо было DBClient подключить. Но сохранилась такая же ж.. как и твои рекомендации. Не понятно, зачем советовать заведомо левую информацию?

вот нашел-таки, если кому понадобится:
procedure TfmView.BtnSaveClick(Sender: TObject); var XL, XArr: Variant; i, j: Integer; begin // Ñîçäàåì ìàññèâ ýëåìåíòîâ, ïîëó÷åííûõ â ðåçóëüòàòå çàïðîñà XArr:=VarArrayCreate([1, fmMain.CDSRes.FieldCount],varVariant); XL:=CreateOLEObject("Excel.Application"); // Ñîçäàíèå OLE îáúåêòà XL.WorkBooks.add; XL.Visible := True; j := 1; fmMain.CDSRes.First; while not fmMain.CDSRes.Eof do begin i := 1; while i <= fmMain.CDSRes.FieldCount do begin XArr[i] := fmMain.CDSRes.Fields[i-1].Value; Inc(i); end; XL.Range["A"+IntToStr(j), CHR(64+fmMain.CDSRes.FieldCount)+IntToStr(j)].Value := XArr; fmMain.CDSRes.Next; Inc(j); end; XL.Range["A1",CHR(64+fmMain.CDSRes.FieldCount)+IntToStr(j)].select; XL.Selection.Font.Name := "Courier New"; XL.Selection.Font.Size := 8; XL.selection.Columns.AutoFit; XL.Range["A1","A1"].select; end;

> vigo_ (03.10.07 16:27) [5]

И как вся эта ботва связана с "сохранить данные .. в файл "*.xls" ?

Никак не связана.

← →
Ping (2007-10-03 16:37) [7]

vigo_ (03.10.07 16:27) [5]

Но сохранилась такая же ж.. как и твои рекомендации. Не понятно, зачем советовать заведомо левую информацию?

Ты просил сохранить в *.xls? Просил.
Сохранилось в *.xls? Сохранилось.
В MS Excel открылось? Открылось.

Значит, проблема не в моих рекомендациях, а в твоем вопросе.

вот нашел-таки, если кому понадобится:

Опять ерунду говоришь. Где в приведенном тобой коде сохранение в *.xls?

Резюме: "Не перекладывай с больной головы..." (С) Пословица

Сохранение в Excel Найти похожие ветки