Macro Issue

deepakqlikview_123 — Tue, 31 Mar 2015 07:17:39 GMT

Hello All,

We are using below macro for taking all chart data in CSV file

UB ExportChartToCSV

Dim myCharts(2)

myCharts(0) = "Coat"

myCharts(1) = "Suit"

myCharts(2) = "Boxes"

For Each item In myCharts

SET objChart = ActiveDocument.GetSheetObject(item)

objChart.Export "C:\" & item & ".CSV", ", "

END SUB

But problem is that it is not working properly and only gives csv file for first chart not for remaining charts.

Can you please suggest on this.

Thanks

Re: Macro Issue

marcus_sommer — Tue, 31 Mar 2015 08:12:29 GMT

Try this:

For i = 0 to ubound(myCharts)

SET objChart = ActiveDocument.GetSheetObject(myCharts(i))

objChart.Export "C:\" & myCharts(i) & ".CSV", ", "

- Marcus