Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
etc.. XcelApp.activeCell.Value;
etc.. XcelApp.activeCell.Value2;
[b]Var[/b]
Form1: TForm1 //automatically done by Delphi
LineNumber, LCID: integer;
procedure TForm1.bbtOpenClick(Sender: TObject); //Open Excel
var
WBk: _WorkBook;
WS : _WorkSheet;
FileName: OleVariant;
begin
if OpenDialog1.Execute then
begin
LCID := GetUserDefaultLCID;
XcelApp.Connect;
XcelApp.visisible[LCID] := true;
FileName := OpenDialog1.FileName;
WBk := XcelApp.WorkBooks.Open( FileName, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam,
EmptyParam, LCID);
WS := WBk.Worksheets.Item['Sheet1'] as _Worksheet;
WS.Activate(LCID);
end; [b] //if [/b]
end;
procedure TForm1.bbtLoadClick(Sender: TObject); //Open Excel
var
i,j : integer;
begin
j:= StrToInt(edtRangeEnd.Text);
For i:=1 to j do
begin
Table1.Append;
Table1No.Value := i;
LineString ;= IntToStr(i);
with XcelApp do
begin
Range['A'+ LineString, 'A' + LineString].Select;
Table1Date.Value := XcelApp.activeCell.Value;
Range['B'+ LineString, 'B' + LineString].Select;
Table1Time.Value := XcelApp.activeCell.Value;
Range['C'+ LineString, 'C' + LineString].Select;
Table1Tag.Value := XcelApp.activeCell.Value;
Range['D'+ LineString, 'D' + LineString].Select;
Table1Span.Value := XcelApp.activeCell.Value;
end; [b]//with[/b]
Table1.Post;
end; [b]//For[/b]
end;