Загрузка таблици

[Divers85]

Как прописать чтобы при открытии проекта автоматически открывалась таблица Excel

[Stilet]

Например так:
ShellExecute(form1.handle,'open','D :\Help\R.xls','r.xls','D:\Help\',1)

или через ExcelApplication

[Divers85]

Как это прорисать в проекте Delphi?

[СТРАННИК]

Кидаешь на форму StringGrid и добавляешь следующее:

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 := 1 to y do
AGrid.Cells[(r - 1), (k - 1)] := RangeMatrix[K, R];
Inc(k, 1);
AGrid.RowCount := k + 1;
until k > x;
RangeMatrix := Unassigned;
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
Result := True;
end;
end;
end;


Использование функции

procedure TForm1.Button1Click(Sender: TObject);
begin
if Xls_To_StringGrid(StringGrid1, 'C:\Table1.xls') then
ShowMessage('Table has been exported!');
end;

[Divers85]

Слушай все написал. При компеляции Delphi выдал ошибку
[Error] Unit1.pas(30): Undeclared identifier: 'Xls_To_StringGrid'

[Maslan]

А ты напиши "function Xls_To_StringGrid(AGrid: TStringGrid; AXLSFile: string): Boolean;..... и т.д." ДО попытки её вызова...