Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Delphi6 OleApplication Excel How to add new worksheets to active workbook.
Have a need to have seven initial worksheets in a workbook, but how do you add another 4 to the three as default? Both the 'add on opening' workbook and the 'add on fly' to an open workbook methods are required please. Code so far...
procedure ExcelOpen(Sender: TObject; Excelname:String);
begin
// If the workbook exists, open it, else create an instance of it.
OleApplication := CreateOleObject('Excel.App
OleApplication.visible :=false;
if fileexists(dataq.outdir+'\
begin
OleWorkBook:=OleApplicatio
end else begin
OleWorkBook:=OleApplicatio
// what is the code that should generate the total 7 worksheets?
end;
end;
procedure ExcelOpen(Sender: TObject; Excelname:String);
begin
// If the workbook exists, open it, else create an instance of it.
OleApplication := CreateOleObject('Excel.App
OleApplication.visible :=false;
if fileexists(dataq.outdir+'\
begin
OleWorkBook:=OleApplicatio
end else begin
OleWorkBook:=OleApplicatio
// what is the code that should generate the total 7 worksheets?
end;
end;
Asked:
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
Hope this helps,
Russell
procedure ExcelOpen(Sender: TObject; Excelname:String);
var OleApplication: OleVariant;
OleWorkBook: Olevariant;
dwIndex: Integer;
begin
// If the workbook exists, open it, else create an instance of it.
OleApplication:=CreateOleO
OleApplication.Visible:=Fa
if fileexists(dataq.outdir+'\
OleWorkBook:=OleApplicatio
else
OleWorkBook:=OleApplicatio
// what is the code that should generate the total 7 worksheets?
for dwIndex:=OleWorkBook.WorkS
begin
OleWorkBook.Worksheets.Add
end;
end;