hi,

[#1]

Hi,

Any idea why my macro to export a chart to excel was working when my Excel was in 2010 but now that I have 2013 in the server,

the macro is only generating 1 line of data in my chart.

My macro is as follows :-

sub Cab()

set Chart = ActiveDocument.GetSheetObject( "CH01" )

"C:\DailyReports\CAB\CAB.xls",5

end sub

[Siva_Sankar]

Kindly attach your application. will see.

[#3]

Hi Siva,

Sorry the application is too huge to attach.

Binary "
aspl-qlikview\anglis2\sales\angliss spore with adjustments\valueentry7.qvw";

SET ThousandSep=',';

SET DecimalSep='.';

SET MoneyThousandSep=',';

SET MoneyDecimalSep='.';

SET MoneyFormat='$#,##0.00;($#,##0.00)';

SET TimeFormat='h:mm:ss TT';

SET DateFormat='DD-MM-YY';

SET TimestampFormat='DD-MM-YY h:mm:ss[.fff] TT';

SET MonthNames='Jan;Feb;Mar;Apr;May;Jun;Jul;Aug;Sep;Oct;Nov;Dec';

SET DayNames='Mon;Tue;Wed;Thu;Fri;Sat;Sun';

ODBC CONNECT TO (XUserId is BWFKVYRNJbaMXUVMXDGB, XPassword is GJHZSWFGRZMeGbVMYbMB);

CustomerAddress:

LOAD

text("No_") as CustomerNo,

Name,

Address,

"Address 2",

City,

"Country Code",

"Phone No_"

;

SQL SELECT *

FROM ASPLNAV.dbo."Angliss Singapore Pte_ Ltd_$Customer";

The macro is

sub Cab()

ActiveDocument.ClearAll

set Chart = ActiveDocument.GetSheetObject( "CH01" )

chart.exportex "C:\DailyReports\CAB\CAB.xls",5

ActiveDocument.ClearAll

end sub

Best regards,

Jenny Tan

MIS Manager

Angliss Singapore Pte Ltd

A member of Bidvest Asia Pacific Group

Mobile: 97839001

DID: 6770 4194

Tel: 6778 8787

Fax: 6770 4126

Email address: tan_jenny@angliss.com.sg<mailto:tan_jenny@angliss.com.sg>

Website: www.angliss.com.sg<http://www.angliss.com.sg/>

<http://www.angliss.asia/>

[Siva_Sankar]

Jenny,

Kindly copy paste the below code.

Make sure that you have the highlighted path available in your computer, else use any of your path available in your computer

sub Cab()

SET objExcelApp = CREATEOBJECT("Excel.Application") 

ActiveDocument.ClearAll

set Chart = ActiveDocument.GetSheetObject( "CH01" )

chart.exportex "C:\DailyReports\CAB\CAB.xls",5

end sub