|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.09.2007, 16:29 | #1 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
Excel и StringGrid...
Как скопировать данные из таблички Excel в табличку StringGrid?
например скопировать целый столбец сразу?
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
18.09.2007, 16:51 | #2 |
Форумчанин
Регистрация: 16.04.2007
Сообщений: 298
|
uses ComObj; function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean; const xlCellTypeLastCell = $0000000B; var XLApp, Sheet: OLEVariant; RangeMatrix: Variant; x, y, k, r: Integer; begin Result := False; XLApp := CreateOleObject('Excel.Application'); try XLApp.Visible := False; XLApp.Workbooks.Open(AXLSFile); Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1]; Sheet.Cells.SpecialCells(xlCellType LastCell, EmptyParam).Activate; x := XLApp.ActiveCell.Row; y := XLApp.ActiveCell.Column; AGrid.RowCount := x; AGrid.ColCount := y; RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value; k := 1; repeat for r := 1to y do AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R]; Inc(k, 1); AGrid.RowCount := k + 1; until k > x; RangeMatrix := Unassigned; finally На, разбирайся, понять можно. А вообще, скачай себе DRKB и живи спокойно.
ifnot VarIsEmpty(XLApp) then begin XLApp.Quit; XLAPP := Unassigned; Sheet := Unassigned; Result := True; end; end; end;
Не надо ничего усложнять. Все достаточно тривиально.
|
18.09.2007, 17:07 | #3 |
Форумчанин
Регистрация: 01.02.2007
Сообщений: 785
|
буду разбираться и буду скачивать
спасиба!
Изо всей благодати
В руках крепко сжатых Я донесу только капли |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Borland C++ Builder - импорт из Excel в StringGrid | nuser | C++ Builder | 3 | 10.01.2015 12:38 |
Excel и StringGrid в Delphi | monushka | Помощь студентам | 28 | 28.10.2009 16:33 |
из StringGrid в Excel | artemavd | Общие вопросы Delphi | 6 | 24.07.2008 18:14 |
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол | Askat | Общие вопросы Delphi | 0 | 18.07.2007 06:28 |
Excel и StringGrid | apx_angel | Компоненты Delphi | 2 | 20.02.2007 00:20 |