Microsoft Dynamics NAV (Archived)

Creating new Excel and adding required no. of sheets using .Net variables

(1) Share

Report

Posted on by Community Member

I'm facing problem in adding additional sheets to an excel .

while executing the below code I'm able to create new excel sheet,

After creating the excel file I'm not able add additional sheets to that excel.

It is showing error like

Please suggest any possible ways of adding sheets.

Thanks in Advance.

*This post is locked for comments

I have the same question (0)

All responses (5)

Answers (3)

Suggested answer

Alexander Ermakov 28,096 on at

Like (1)

Report

There is an option to use Excel Buffer:

saurav-nav.blogspot.ru/.../nav-2013-r2-multiple-sheets-in-excel.html

and without Excel Buffer:

aniket-dynamicsnav.blogspot.ru/.../export-to-excel-with-multiple-sheet.html

Was this reply helpful? Yes No
Community Member on at

Like (1)

Report

Thank you for your replay.

I have done this already using Excel buffer.

And I have already seen the in 2nd link also. In that they are using Automation variables .

But I want it by using only .Net variables.

Please provide any other possible ways of solution.

Was this reply helpful? Yes No
Verified answer

Binesh 7,885 on at

Like (0)

Report

Hello Sreekanth,

See the bellow screenshot, here i developed the solution for dynamic sheet adding in excel workbook.

For variables see bellow screenshot.

Was this reply helpful? Yes No
Verified answer

Jatin Patel 2,641 on at

Like (1)

Report

Hi Sreekanth,

You can create below function in Excel Buffer table and use it to add new sheet.

AddNewSheet(SheetName : Text[250])

IF SheetName = '' THEN

ERROR(Text002);

IF ISNULL(XlWrkBkWriter) THEN BEGIN

CreateBook(SheetName);

ActiveSheetName := SheetName; //first sheet activated

END ELSE BEGIN

WHILE XlWrkBkWriter.HasWorksheet(SheetName) DO BEGIN

IF NOT FirstIncrement THEN BEGIN

SheetName := SheetName + '-01';

FirstIncrement := TRUE;

END ELSE BEGIN

SheetName := INCSTR(SheetName);

END;

END;

XlWrkShtWriter := XlWrkBkWriter.AddWorksheet(SheetName);

FirstIncrement := FALSE;

ActiveSheetName := SheetName; //last sheet activated

END;

WriteSheet('',COMPANYNAME,USERID);

DELETEALL;

ClearNewRow;

Was this reply helpful? Yes No
Verified answer

keoma 32,729 on at

Like (1)

Report

better you use the .net classes which are used in table ExcelBuffer.

Was this reply helpful? Yes No