Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Delphi+xls [D7, WinXP]

Vilux © (2004-07-19 11:45:00)
Использую следующую процедуру для вытаскивания данных из xls-файла, вопрос в том, как мне узнать цвет ячейки, из которой я беру данные? Или ссылку на доки. плиз, если можете...

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;
// Create Excel-OLE Object
XLApp := CreateOleObject('Excel.Application');
try
// Hide Excel
XLApp.Visible := False;

// Open the Workbook
XLApp.Workbooks.Open(AXLSFile);

// Sheet := XLApp.Workbooks[1].WorkSheets[1];
Sheet := XLApp.Workbooks[ExtractFileName(AXLSFile)].WorkSheets[1];

Sheet.Cells.SpecialCells(xlCellTypeLastCell, EmptyParam).Activate;
// Get the value of the last row
x := XLApp.ActiveCell.Row;
// Get the value of the last column
y := XLApp.ActiveCell.Column;

// Set Stringgrid's row &col dimensions.

AGrid.RowCount := x;
AGrid.ColCount := y;

// Assign the Variant associated with the WorkSheet to the Delphi Variant

RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Interior;
// Define the loop for filling in the TStringGrid
k := 1;
repeat
for r := 1 to y do
AGrid.Cells[(r - 1), (k - 1)] := inttostr(RangeMatrix[K, R]);
Inc(k, 1);
AGrid.RowCount := k + 1;
until k > x;
// Unassign the Delphi Variant Matrix
RangeMatrix := Unassigned;

finally
// Quit Excel
if not VarIsEmpty(XLApp) then
begin
// XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
Result := True;
end;
end;
end;

Суслик (2004-07-19 12:34:00) [1]

> Рад бы доки почитать... но где их взять?

заходиет в VBA (alt+f11) в екселе. И читаете. Там описана вся com модель.

Vilux (2004-07-19 12:32:00) [2]
Я в коде, приведенном выше, допустил ошибку... должно быть
RangeMatrix := XLApp.Range['A1', XLApp.Cells.Item[X, Y]].Value;
Так вот, я не знаю, как сформировать матрицу, чтобы еще цвет присутствовал. Рад бы доки почитать... но где их взять?
И как использовать Range вместе с Select. О действии Range я только догадываюсь по примеру...

Суслик (2004-07-19 12:21:00) [3]
все можно.
Select делает selection.

Но вы можете заибть на это - сразу используйте range

Vilux (2004-07-19 12:14:00) [4]
ПОпробовал, наешл там только через метод select. Т.е. сначала надо выделить ячейку, потом получить значение цвета, но это долго. Нельзя ли указать координату ячейки и получить цвет?

Суслик (2004-07-19 11:50:00) [5]
лучшая дока всегда был сам ексель:
1. начни запись макроса
2. установи цвет ячейки
3. останови запись.
4. по alt+f11 постмотри vb код.

Сделай точно такое же дело в дельфи (только код адапитуруй)

Это унверсальный совет. Можно, конечно, копать msdn на предмет изучения объектной модели екселя - но, поверь, пиведенный мной путь быстрее.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »