Tabela Execell

['Lenneth 498]

Boa Noite,Gostaria de saber como faço pra abrir minha tabela execell no delphi

[Fr33dom 1]

tenta assim :

 

uses

ComObj;

 

adiciona uma : StringGrid (paleta Additional)

 

 

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(xlCellTypeLastCell, 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:\Tuatabela.xls') then

ShowMessage('Tabela Exportada');

end;

 

@ Edit : Acabei de experimentar e funciona bem , vlw :rock:

[AceStryker 32]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

['Lenneth 498]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

vlws ajudou muito!

 

[X]

[ℛiqu∊ 15]