из StringGrid в Excel

← →
X_ksandr_X © (2007-04-16 09:33) [0]

Всем привет.
Люди добрые подскажите плиз. У меня есть Excel файл, который я подгружаю в StrinGrid с этим проблемм нет. Мне нужно сделать так чтоб загруженные данные я мог редоктировать и по нажатии на кнопку они изменялись в данном файле Excel.
Заранее спасибо.

← →
Jan1 (2007-04-16 10:18) [1]

> У меня есть Excel файл, который я подгружаю в StrinGrid
> с этим проблемм нет

чем ADO и DBGrid не устроил?

← →
X_ksandr_X © (2007-04-16 10:31) [2]

К сожалению я не использую пока сдесь БД и SQL. Мне пока всего лишь навсего нужно переместить данные в Excel.

← →
Jan1 (2007-04-16 10:37) [3]

http://delphikingdom.ru/asp/itemq.asp?mode=1&itemid=2

← →
Desdechado © (2007-04-16 10:53) [4]

Имхо, проще использовать книжку экселя как набор данных, тогда не надо ничего перемещать.

← →
X_ksandr_X © (2007-04-16 10:57) [5]

Ладно всем спасибо за советы.
Попробуем.

← →
Карелин Артем © (2007-04-16 11:37) [6]

function TMainData.StringGrid2Excel(const ExcelDoc: variant; const row, col: integer; const Grid: TStringGrid): integer; var y: integer; i, j: integer; RowCount, ColCount: integer; Cell1, Cell2, ArrayData: Variant; begin Screen.Cursor := crHourGlass; Application.ProcessMessages; y := row; RowCount := Grid.RowCount; ColCount := Grid.ColCount; ArrayData := VarArrayCreate([0, RowCount + 1, 0, ColCount], varVariant); for i := 0 to RowCount do for J := 0 to ColCount do ArrayData[I, J] := Grid.Cells[i, j]; Cell1 := ExcelDoc.Cells[Row + 1, Col]; Cell2 := ExcelDoc.Cells[Row + RowCount - 2, Col + ColCount - 2]; ExcelDoc.Range[Cell1, Cell2].NumberFormat := "0"; ExcelDoc.Range[Cell1, Cell2].Value := ArrayData; Screen.Cursor := crDefault; Result := RowCount - 1; end;

← →
Jan1 (2007-04-16 11:52) [7]

> К сожалению я не использую пока сдесь БД и SQL. Мне пока
> всего лишь навсего нужно переместить данные в Excel.

а зря. на порядок меньше кода бы было.

← →
Карелин Артем © (2007-04-16 11:59) [8]

> Jan1 (16.04.07 11:52) [7]

Уверен? )))

← →
Jan1 (2007-04-16 12:00) [9]

> Уверен? )))

DBGrid+ADODataSet+ADOConnection и нет даже строчки кода :)

> Jan1 (16.04.07 12:00) [9]

Эта связка хороша только в простейших случаях, когда данные в виде примитивной таблицы представлены.
У меня например есть множество шаблонов, в которых надо заполнять неизвестно где расположенные именованные области, обьединенные ячейки, разбросанные по всему листу. Я как-то плохо представляю как заполнить например шаблон полиса ОСАГО через SQL. А так все хорошо заполняется несколькими коротким кодом.

← →
Jan1 (2007-04-16 12:19) [11]

> Карелин Артем © (16.04.07 12:18) [10]

Ты 100 раз прав! Я с утрировал, но может автору это и надо? Может он велик себе придумал? :)

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