Форум: "Базы";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Вниз
из 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 и нет даже строчки кода :)
← →
Карелин Артем © (2007-04-16 12:18) [10]
> Jan1 (16.04.07 12:00) [9]
Эта связка хороша только в простейших случаях, когда данные в виде примитивной таблицы представлены.
У меня например есть множество шаблонов, в которых надо заполнять неизвестно где расположенные именованные области, обьединенные ячейки, разбросанные по всему листу. Я как-то плохо представляю как заполнить например шаблон полиса ОСАГО через SQL. А так все хорошо заполняется несколькими коротким кодом.
← →
Jan1 (2007-04-16 12:19) [11]
> Карелин Артем © (16.04.07 12:18) [10]
Ты 100 раз прав! Я с утрировал, но может автору это и надо? Может он велик себе придумал? :)
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2007.07.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.048 c
