Export the Report into Excel

Business Central/NAV Developers Forum
1

Hi All,

How to do the Export the Report into Excel using array??..

Regards,

Padma

2

Hi Padma,

What do you mean by array ?

Is this Classic client or RTC ?

G.

3

Can you be more clear what problem you are facing…

4

Hi,

Mohana i am not facing any problem.This is first time i am trying the Export into Excel using array.I dont have any deep knowledge about arrays.

Regards,

Padma

5

Then why do you want to do with Array?

6

HI

Example of Array;

K=0;

K=K+1;

Array[K] :=Value;

I will use a Array because my value change, If i have 10 value Say 1,2,3…10

so my result of value is for 10 times.

Array[1] := value1;

Array[2] :=value2…etc.

7

This is one of my task.That’s why i want to do that.

8

You want us to do your task?

try yourself and let us know what problem you are facing…

9

Hi Padma This may helpful

http://dynamicsuser.net/forums/p/31675/166416.aspx#166416

Thanks

Jerome Marshal. J

10

Check Report 6. That has excel export capability.

g.

11

Hello Mohana,

i am trying also.Then intermediate i il ask the forum also.If you know tell me otherwise no problem.

12

Hi Marshal ,

Thanks for your help.

13

Hi Padma This may helpful

http://dynamicsuser.net/forums/p/31675/166416.aspx#166416

Thanks

Jerome Marshal. J

14

This is an example of using the excel buffer…

Documentation()
Paddy Test Excel Report

Customer - OnPreDataItem()
Window.OPEN(
Text001 +
‘@1@@@@@@@@@@@@@@@@@@@@@’);
Window.UPDATE(1,0);
TotalRecNo := Customer.COUNTAPPROX;
RecNo :=0;

TempExcelBuffer.DELETEALL;
CLEAR(TempExcelBuffer);
EnterCell(1, 1, Text000, TRUE, TRUE, FALSE);

Row := 3;

Customer - OnAfterGetRecord()
Row := Row + 1;
EnterCell(Row, 1, “No.”, FALSE, FALSE, FALSE);
EnterCell(Row, 2, Name, FALSE, FALSE, FALSE);

RecNo := RecNo + 1;
Window.UPDATE(1,ROUND(RecNo / TotalRecNo * 10000,1));

Customer - OnPostDataItem()
Window.CLOSE;

TempExcelBuffer.CreateBook;
TempExcelBuffer.CreateSheet(Text000,Text000,COMPANYNAME,USERID);
TempExcelBuffer.GiveUserControl;

EnterCell(RowNo : Integer;ColumnNo : Integer;CellValue : Text[250];Bold : Boolean;Italic : Boolean;UnderLine : Boolean)
TempExcelBuffer.INIT;
TempExcelBuffer.VALIDATE(“Row No.”,RowNo);
TempExcelBuffer.VALIDATE(“Column No.”,ColumnNo);
TempExcelBuffer.“Cell Value as Text” := CellValue;
TempExcelBuffer.Formula := ‘’;
TempExcelBuffer.Bold := Bold;
TempExcelBuffer.Italic := Italic;
TempExcelBuffer.Underline := UnderLine;
TempExcelBuffer.INSERT;

15

Hi

if your problem solved then please verify the solution

Thanks

Jerome marshal. J